challenge-146/abigail/bc/ch-2.bc


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

#
# See ../README.md
#

#
# Run as: bc ch-2.bc < input-file
#

while (1) {
    a = read (); if (a == 0) {break}
    b = read (); if (b == 0) {break}
    for (i = 1; i <= 2; i ++) {
        if (a < b) {
            b = b - a
        } else {
            a = a - b
        }
        if (a == 0 || b == 0) {
            break
        }
        print a, "/", b, " "
    }
    "
"
}