8 lines
165 B
Text
8 lines
165 B
Text
0 A = ABS(INT(A))
|
|
1 B = ABS(INT(B))
|
|
2 GCD = A * NOT NOT B
|
|
3 FOR B = B + A * NOT B TO 0 STEP 0
|
|
4 A = GCD
|
|
5 GCD = B
|
|
6 B = A - INT (A / GCD) * GCD
|
|
7 NEXT B
|