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

소스 파일명: TestWhile.fs

1. (*
2.  *  Filename: TestWhile.fs
3.  *
4.  *  Purpose:  Example using the while loop syntax
5.  *                while ....
6.  * 
7.  *  Compile: fsc --codepage:949 TestWhile.fs
8.  *  Execute: TestWhile -200 300
9.  *)
11. #light
13. // 사용법 표시
14. let printUsage x =
15.     printfn "Using: TestWhile.py [integer1] [integer2]"
16.     printfn "This finds the greatest common divisor of the given two integers."
18. let cmdArgs = System.Environment.GetCommandLineArgs()
19. if not ((Array.length cmdArgs) = 3) then
20.     printUsage 0
21.     exit(1)
23. // --------------------------------------
24. // 명령행 인자의 두 스트링을 가져와서
25. // 정수 타입으로 변환하여
26. // 변수 val1과 val2에 저장한다.
27. let val1 = int cmdArgs.[1]
28. let val2 = int cmdArgs.[2]
30. // a는 |val1|, |val2| 중 큰 값
31. let mutable a = abs val1
32. let mutable b = abs val2
34. if a < b then
35.     a <- abs val2
36.     b <- abs val1
38. if b = 0 then
39.     printfn "GCD(%d, %d) = %d" val1 val2 a
40.     exit(0)
42. // --------------------------------------
43. // Euclidean 알고리즘의 시작
44. //
45. // a를 b로 나누어 몫은 q에, 나머지는 r에 저장
46. let mutable q = a / b
47. let mutable r = a % b
49. // --------------------------------------
50. // Euclidean 알고리즘의 반복 (나머지 r이 0이 될 때 까지)
51. while not (r = 0) do
52.     a <- b
53.     b <- r
54.     q <- a / b
55.     r <- a % b
57. // 나머지가 0이면 그 때 나눈 수(제수) b가 최대공약수(GCD)이다.
58. let gcd = b
60. // 최대공약수(GCD)를 출력한다.
61. printfn "GCD(%d, %d) = %d" val1 val2 gcd

컴파일:

Command> fsc TestWhile.fs

실행:

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

Command> TestWhile -200 300
GCD(-200, 300) = 100

Command> TestWhile -200 0
GCD(-200, 0) = 200

Command> TestWhile 125 100
GCD(125, 100) = 25

Command> TestWhile 23 25
GCD(23, 25) = 1