Week 145

2 files changed, 37 insertions, 0 deletions

diff --git a/challenge-145/abigail/tcl/ch-1.tcl b/challenge-145/abigail/tcl/ch-1.tcl
new file mode 100644
index 0000000000..46a9abcdba
--- /dev/null
+++ b/challenge-145/abigail/tcl/ch-1.tcl
@@ -0,0 +1,17 @@
+#
+# See ../README.md
+#
+
+#
+# Run as: tclsh ch-1.tcl < input-file
+#
+
+set a [split [gets stdin] " "]
+set b [split [gets stdin] " "]
+
+set sum 0
+for {set i 0} {$i < [llength $a]} {incr i} {
+    set sum [expr $sum + [lindex $a $i] * [lindex $b $i]]
+}
+
+puts $sum
diff --git a/challenge-145/abigail/tcl/ch-2.tcl b/challenge-145/abigail/tcl/ch-2.tcl
new file mode 100644
index 0000000000..13645cea5b
--- /dev/null
+++ b/challenge-145/abigail/tcl/ch-2.tcl
@@ -0,0 +1,20 @@
+#
+# See ../README.md
+#
+
+#
+# Run as: tclsh ch-2.tcl < input-file
+#
+
+while {[gets stdin line] >= 0} {
+    set palindromes [dict create]
+    for {set i 0} {$i < [string length $line]} {incr i} {
+        for {set j $i} {$j < [string length $line]} {incr j} {
+            set str [string range $line $i $j]
+            if {$str == [string reverse $str]} {
+                dict set palindromes $str 1
+            }
+        }
+    }
+    puts [dict keys $palindromes]
+}