Data commit

Task/First-class-functions/XBS/first-class-functions.xbs

@@ -0,0 +1,19 @@
+func cube(x:number):number{
+	send x^3;
+}
+func cuberoot(x:number):number{
+	send x^(1/3);
+}
+
+func compose(f:function,g:function):function{
+	send func(n:number){
+		send f(g(n));
+	}
+}
+
+const a:[function]=[math.sin,math.cos,cube];
+const b:[function]=[math.asin,math.acos,cuberoot];
+
+each a as k,v{
+	log(compose(v,b[k])(0.5))
+}