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

아래의 소스 코드는 Groovy 용으로 작성돠었던 소스파일 testWhile.groovy를 Io용으로 고친 것이다.
* 소스에 한글이 포함된 경우 반드시 UTF-8 인코딩으로 저장해야 한다. 그렇지 않으면 에러기 난다.
* (Ubuntu에서는 OS 자체에서 UTF-8 인코딩을 기본으로 하고 있으므로, 한글 처리에 아무 문제가 없을 것이다.)


소스 파일명: testWhile.io

1. #  Filename: testWhile.io
2. #
3. #  Purpose:  Example using the while loop syntax
4. #                while ....
5. #
6. #  Execute: io testWhile.io -200 300
8. // 사용법 표시
9. printUsage := method (
10.      "Using: groovy testWhile.groovy [integer1] [integer2]" println
11.     "This finds the greatest common divisor of the given two integers." println
12. )
14. if (args size < 3) then (
15.     printUsage()
16.    exit(1)
17. )
19. val1 := args at(1) asNumber
20. val2 := args at(2) asNumber
22. ////////////////////////////////////////////////
23. // 명령행 인자의 두 스트링을 가져와서
24. // 긴정수(long) 타입으로 변환하여
25. // 변수 val1과 val2에 저장한다.
26. a := val1 abs
27. b := val2 abs
29. // a는 |val1|, |val2| 중 큰 값
30. if (a < b) then (
31.     a := val2 abs
32.     b := val1 abs
33. )
35. if (b == 0) then (
36.    "GCD(#{val1}, #{val2}) = #{a}" interpolate println
37.     exit(0)
38. )
40. ////////////////////////////////////////
41. // Euclidean 알고리즘의 시작
42. //
43. // a를 b로 나누어 몫은 q에, 나머지는 r에 저장
44. q := (a / b) floor
45. r := a % b
47. ////////////////////////////////////////
48. // Euclidean 알고리즘의 반복 (나머지 r이 0이 될 때 까지)
49. while (r > 0,
50.     a := b
51.     b := r
52.     q := (a / b)  floor
53.     r := a % b
54. )
56. // 나머지가 0이면 그 때 나눈 수(제수) b가 최대공약수(GCD)이다.
57. gcd := b
59. // 최대공약수(GCD)를 출력한다.
60. "GCD(#{val1}, #{val2}) = #{gcd}" interpolate println

실행> io testWhile.io
Using: io testWhile.io [integer1] [integer2]
This finds the greatest common divisor of the given two integers.

실행> io testWhile.io -50, 200
GCD(-50, 200) = 50

실행> io testWhile.io 50, -30
GCD(50, -30) = 10

실행> io testWhile.io 0. 30
GCD(0, 30) = 30





이 저작물은 크리에이티브 커먼즈 코리아 저작자표시-비영리-변경금지 2.0 대한민국 라이센스에 따라 이용하실 수 있습니다.