Challenge 086, part 1 solution in tcl

1 files changed, 30 insertions, 0 deletions

diff --git a/challenge-086/shawn-wagner/tcl/ch-1.tcl b/challenge-086/shawn-wagner/tcl/ch-1.tcl
new file mode 100755
index 0000000000..43c6ab5ea1
--- /dev/null
+++ b/challenge-086/shawn-wagner/tcl/ch-1.tcl
@@ -0,0 +1,30 @@
+#!/usr/bin/env tclsh
+package require generator ;# From tcllib
+
+generator define genpairs {list} {
+    for {set m 0} {$m < [llength $list]} {incr m} {
+        for {set n 0} {$n < [llength $list]} {incr n} {
+            if {$m != $n} {
+                generator yield [::list [lindex $list $m] [lindex $list $n]]
+            }
+        }
+    }
+}
+
+proc diffne {total pair} {
+    lassign $pair a b
+    expr {$a - $b != $total}
+}
+
+proc task1 {N A} {
+    generator foreach match [generator dropWhile [list diffne $A] [genpairs $N]] {
+        lassign $match a b
+        puts "1 as $a - $b = $A"
+        return
+    }
+    puts 0
+}
+
+task1 {10 8 12 15 5} 7
+task1 {1 5 2 9 7} 6
+task1 {10 30 20 50 40} 15