challenge-126/abigail/tcl/ch-1.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-1.tcl < input-file
#

while {[gets stdin line] >= 0} {
    set result   0
    set seen_one 0
    foreach char [split $line ""] {
        set result [expr 9 * $result]
        if {$seen_one == 1} {
            set result [expr $result + 8]
        } elseif {$char == 1} {
            set seen_one 1
        } elseif {$char > 0} {
            set result [expr $result + $char - 1]
        }
    }
    puts $result
}