Data commit

Task/First-class-functions/Fantom/first-class-functions.fantom

@@ -0,0 +1,19 @@
+class FirstClassFns
+{
+  static |Obj -> Obj| compose (|Obj -> Obj| fn1, |Obj -> Obj| fn2)
+  {
+    return |Obj x -> Obj| { fn2 (fn1 (x)) }
+  }
+
+  public static Void main ()
+  {
+    cube := |Float a -> Float| { a * a * a }
+    cbrt := |Float a -> Float| { a.pow(1/3f) }
+
+    |Float->Float|[] fns := [Float#sin.func, Float#cos.func, cube]
+    |Float->Float|[] inv := [Float#asin.func, Float#acos.func, cbrt]
+    |Float->Float|[] composed := fns.map |fn, i| { compose(fn, inv[i]) }
+
+    composed.each |fn| { echo (fn(0.5f)) }
+  }
+}