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

소스 파일명: testWhile.lua

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

실행:

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

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

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

Command> lua testWhile.lua 21 81
GCD(21, 81) = 3

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





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