(최대공약수 구하기) while... 반복문 예제 for Julia

소스 파일명: testWhile.jl

1. #  Filename: testWhile.jl
2. #
3. #  Purpose:  Example using the while loop syntax
4. #                while .... end
5. #
6. # Execute: julia testWhile.jl -200 300
7. #
9. # 사용법 표시
10. function printUsage()
11.     println("Using: julia testWhile.jl [integer1] [integer2]")
12.     println("This finds the greatest common divisor of the given two integers.")
13. end
15. if length(ARGS) != 2
16.     printUsage()
17.     exit(1)
18. end
20. # --------------------------------------
21. # 명령행 인자의 두 스트링을 가져와서
22. # 정수 타입으로 변환하여
23. # 변수 val1과 val2에 저장한다.
24. val1 = int64(parse_int(ARGS[1]))
25. val2 = int64(parse_int(ARGS[2]))
27. # a는 |val1|, |val2| 중 큰 값
28. a = abs(val1)
29. b = abs(val2)
31. if a < b
32.     a = abs(val2)
33.     b = abs(val1)
34. end
36. if b == 0
37.     @printf("GCD(%d, %d) = %d\n", val1, val2, a)
38.     exit(0)
39. end
41. # --------------------------------------
42. # Euclidean 알고리즘의 시작
43. #
44. # a를 b로 나누어 몫은 q에, 나머지는 r에 저장
45. q = a / b
46. r = a % b
48. # --------------------------------------
49. # Euclidean 알고리즘의 반복 (나머지 r이 0이 될 때 까지)
50. while r != 0
51.     a = b
52.     b = r
53.     q = a / b
54.     r = a % b
55. end
57. # 나머지가 0이면 그 때 나눈 수(제수) b가 최대공약수(GCD)이다.
58. gcd = b
60. # 최대공약수(GCD)를 출력한다.
61. @printf("GCD(%d, %d) = %d\n", val1, val2, gcd)

 

실행:

Command> julia testWhile.jl
Using: julia testWhile.jl [integer1] [integer2]
This finds the greatest common divisor of the given two integers.

Command> julia testWhile.jl -200 300
GCD(-200, 300) = 100

Command> julia testWhile.jl -200 0
GCD(-200, 0) = 200

Command> julia testWhile.jl 125 100
GCD(125, 100) = 25

Command> julia testWhile.jl 23 25
GCD(23, 25) = 1