diff options
| author | Abigail <abigail@abigail.freedom.nl> | 2022-02-09 20:15:55 +0100 |
|---|---|---|
| committer | Abigail <abigail@abigail.freedom.nl> | 2022-02-09 20:15:55 +0100 |
| commit | 6a4a6ce3bda463a34714c7c707b2caa26d93e571 (patch) | |
| tree | 6d46fa5bcad5a7bbc28969b09c90986a1d4f282c /challenge-151 | |
| parent | 495c230a90bd20dac94816da117ecbb16c2c20e8 (diff) | |
| download | perlweeklychallenge-club-6a4a6ce3bda463a34714c7c707b2caa26d93e571.tar.gz perlweeklychallenge-club-6a4a6ce3bda463a34714c7c707b2caa26d93e571.tar.bz2 perlweeklychallenge-club-6a4a6ce3bda463a34714c7c707b2caa26d93e571.zip | |
Week 151: Tcl solution for part 2.
Diffstat (limited to 'challenge-151')
| -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]] +} |