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


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

#
# See ../README.md
#

#
# Run as: tclsh ch-2.tcl < input-file
#

while {[gets stdin line] >= 0} {
    lassign [split $line "/"] a b
    for {set i 1} {$i <= 2} {incr i} {
        if {$a < $b} {
            set b [expr $b - $a]
        } else {
            set a [expr $a - $b]
        }
        if {$a == 0 || $b == 0} {
            break
        }
        puts -nonewline "$a/$b "
    }
    puts ""
}