Data commit

Task/Function-composition/M2000-Interpreter/function-composition-1.m2000

@@ -0,0 +1,10 @@
+Module CheckIt {
+      Compose = lambda (f, g)->{
+            =lambda f, g (x)->f(g(x))
+      }
+      Add5=lambda (x)->x+5
+      Division2=lambda (x)->x/2
+      Add5Div2=compose(Division2, Add5)
+      Print Add5Div2(15)=10  ' True
+}
+CheckIt

Task/Function-composition/M2000-Interpreter/function-composition-2.m2000

@@ -0,0 +1,37 @@
+class Compose {
+private:
+	composition$
+public:
+	function formula$ {
+		=.composition$
+	}
+	value (x){
+		=Eval(.composition$)
+	}
+Class:
+	module compose(a$, b$) {
+		.composition$<=a$+"("+b$+"(x))"
+	}
+}
+function Global Exp(x) {
+	=round(2.7182818284590452**x)
+}
+class ComposeStr$ {
+private:
+	composition$
+public:
+	function formula$ {
+		=.composition$
+	}
+	value (x$){
+		=Eval$(.composition$.)  // NEED A DOT AFTER STRING VARIABLE
+	}
+Class:
+	module composeStr(a$, b$) {
+		.composition$<=a$+"("+b$+"(x$))"
+	}
+}
+ExpLog=Compose("Exp", "Ln")
+Print ExpLog(3)
+UcaseLcase$=ComposeStr$("Ucase$", "Lcase$")
+Print UcaseLcase$("GOOD")