Initial data commit

Task/Catamorphism/True-BASIC/catamorphism.basic

@@ -0,0 +1,46 @@
+SHARE n(10)
+FOR i = 1 to 10
+    LET n(i) = i
+NEXT i
+
+FUNCTION fnmin(a,b)
+    IF (a < b) then LET fnmin = a else LET fnmin = b
+END FUNCTION
+FUNCTION fnmax(a,b)
+    IF (a < b) then LET fnmax = b else LET fnmax = a
+END FUNCTION
+
+FUNCTION cat(cont, op$)
+    LET temp = n(1)
+    LET temp$ = ""
+    FOR i = 2 TO cont
+        IF op$ = "+" then LET temp = temp+n(i)
+        IF op$ = "-" then LET temp = temp-n(i)
+        IF op$ = "*" then LET temp = temp*n(i)
+        IF op$ = "/" then LET temp = temp/n(i)
+        IF op$ = "^" then LET temp = temp^n(i)
+        IF op$ = "max" then LET temp = fnmax(temp,n(i))
+        IF op$ = "min" then LET temp = fnmin(temp,n(i))
+        IF op$ = "avg" then LET temp = temp+n(i)
+        IF op$ = "cat" then LET temp$ = temp$ & str$(n(i))
+    NEXT i
+    IF op$ = "avg" then
+       LET temp = temp / cont
+    END IF
+    IF op$ = "cat" then
+       LET t$ = str$(n(1)) & temp$
+       LET temp = VAL(t$)
+    END IF
+    LET cat = temp
+END FUNCTION
+
+PRINT "  +: "; " "; cat(10, "+")
+PRINT "  -: "; " "; cat(10, "-")
+PRINT "  *: "; " "; cat(10, "*")
+PRINT "  /: "; " "; cat(10, "/")
+PRINT "  ^: "; " "; cat(10, "^")
+PRINT "min: "; " "; cat(10, "min")
+PRINT "max: "; " "; cat(10, "max")
+PRINT "avg: "; " "; cat(10, "avg")
+PRINT "cat: "; " "; cat(10, "cat")
+END