Update all new Tasks

Task/Catamorphism/Tcl/catamorphism-1.tcl

@@ -0,0 +1,7 @@
+proc fold {lambda zero list} {
+    set accumulator $zero
+    foreach item $list {
+	set accumulator [apply $lambda $accumulator $item]
+    }
+    return $accumulator
+}

Task/Catamorphism/Tcl/catamorphism-2.tcl

@@ -0,0 +1,5 @@
+set 1to5 {1 2 3 4 5}
+
+puts [fold {{a b} {expr {$a+$b}}} 0 $1to5]
+puts [fold {{a b} {expr {$a*$b}}} 1 $1to5]
+puts [fold {{a b} {return $a,$b}} x $1to5]

Task/Catamorphism/Tcl/catamorphism-3.tcl

@@ -0,0 +1,3 @@
+puts [::tcl::mathop::+ {*}$1to5]
+puts [::tcl::mathop::* {*}$1to5]
+puts x,[join $1to5 ,]