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

소스 파일명: TestNoWhile.fs

1. (*
2.  *  Filename: TestNoWhile.fs
3.  *
4.  *  Purpose:  Example using the while loop syntax
5.  *                while ....
6.  *
7.  *  Compile: fsc --codepage:949 TestNoWhile.fs
8.  *  Execute: TestNoWhile -200 300
9.  *)
11. #light
13. // 사용법 표시
14. let printUsage x =
15.     printfn "Using: TestNoWhile [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. let max x y = if y > x then y else x
35. let min x y = if y > x then x else y
37. let maxab = max a b
38. let minab = min a b
39. a <- maxab
40. b <- minab
42. // --------------------------------------
43. // 재귀호출 Euclidean 알고리즘
44. //
45. //     Euclidean 알고리즘의 반복 (나머지가 0이 될 때 까지)
46. //     나머지가 0이면 그 때 나눈 수(제수) x가 최대공약수(GCD)이다.
47. let rec gcdRecursive x y =
48.     match y with
49.     | 0 -> x
50.     | _ -> gcdRecursive y (x % y)
52. let gcd = gcdRecursive a b
54. // 최대공약수(GCD)를 출력한다.
55. printfn "GCD(%d, %d) = %d" val1 val2 gcd

컴파일:

Command> fsc TestNoWhile.fs

실행:

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

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

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

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

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