diff options
| -rw-r--r-- | challenge-151/abigail/README.md | 1 | ||||
| -rw-r--r-- | challenge-151/abigail/tcl/ch-2.tcl | 20 |
2 files changed, 21 insertions, 0 deletions
diff --git a/challenge-151/abigail/README.md b/challenge-151/abigail/README.md index 0d3e8807d3..7c068e4d4a 100644 --- a/challenge-151/abigail/README.md +++ b/challenge-151/abigail/README.md @@ -27,3 +27,4 @@ * [Python](python/ch-2.py) * [R](r/ch-2.r) * [Ruby](ruby/ch-2.rb) +* [Tcl](tcl/ch-2.tcl) diff --git a/challenge-151/abigail/tcl/ch-2.tcl b/challenge-151/abigail/tcl/ch-2.tcl new file mode 100644 index 0000000000..591ac69870 --- /dev/null +++ b/challenge-151/abigail/tcl/ch-2.tcl @@ -0,0 +1,20 @@ +#!/usr/local/opt/tcl-tk/bin/tclsh + +# +# See https://theweeklychallenge.org/blog/perl-weekly-challenge-151 +# + +# +# Run as: tclsh ch-2.tcl < input-file +# + +while {[gets stdin line] >= 0} { + set h [split $line " "] + lappend h 0 0 + for {set i [expr [llength $h] - 3]} {$i >= 2} {incr i -1} { + set v1 [expr [lindex $h $i] + [lindex $h [expr $i + 2]]] + set v2 [lindex $h [expr $i + 1]] + lset h $i [expr $v1 < $v2 ? $v2 : $v1] + } + puts [expr [lindex $h 0] + [lindex $h 2]] +} |