blob: 7f29b9ac504b62ffa08a488aa8221de2f6ede5f3 (
plain) (
blame)
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
27
28
29
30
31
32
33
34
|
#!/bin/env tclsh
source lib.tcl
setup 3 data
puts {Part 1: Sum of mul(x,y) calls...}
set mulsum 0
set mulsum_cf 0
set cf 1
foreach {inst a b} [regexp -all -inline {do\(\)|don't\(\)|mul\((\d+),(\d+)\)} $input] {
switch -- [string range $inst 0 2] {
mul {
set inc [expr {$a * $b}]
incr mulsum $inc
if $cf {
incr mulsum_cf $inc
}
}
do( {
set cf 1
}
don {
set cf 0
}
}
}
puts "Sum: $mulsum"
puts ""
puts {Part 2: ...with control flow.}
puts "Sum: $mulsum_cf"
|
