June 2018 Update

Task/Function-composition/Elena/function-composition.elena

@@ -3,12 +3,12 @@ import extensions.
 func1 extension op
 {
     compose(BaseFunction1 f)
-        = (:x)(self eval(f eval:x)).
+        = (:x)(self(f(x))).
 }
 
 program =
 [
     var fg := (:x)(x + 1) compose(:x)(x * x).
 
-    console printLine(fg eval(3)).
+    console printLine(fg(3)).
 ].

Task/Function-composition/Fortress/function-composition-1.fortress

@@ -0,0 +1,5 @@
+  compose[\A, B, C\](f:A->B, g:B->C, i:Any): A->C = do
+    f(g(i))
+  end
+
+  composed(i:RR64): RR64 = compose(sin, cos, i)

Task/Function-composition/Fortress/function-composition-2.fortress

@@ -0,0 +1,5 @@
+  alt_compose(f:Number->RR64, g:Number->RR64, i:RR64): ()->RR64 = do
+    f(g(i))
+  end
+
+  alt_composed(i:RR64): RR64 = compose(sin, cos, i)

Task/Function-composition/Fortress/function-composition-3.fortress

@@ -0,0 +1 @@
+  opr_composed(i:Number): Number->RR64 = (sin COMPOSE cos)(i)

Task/Function-composition/Julia/function-composition-1.julia

@@ -0,0 +1 @@
+@show (asin ∘ sin)(0.5)

Task/Function-composition/Julia/function-composition-2.julia

@@ -0,0 +1,2 @@
+compose(f::Function, g::Function) = (x) -> g(f(x))
+@show compose(sin, asin)(0.5)

Task/Function-composition/Julia/function-composition.julia

@@ -1 +0,0 @@
-compose(f::Function, g::Function) = x->f(g(x))

Task/Function-composition/Perl-6/function-composition.pl6

@@ -1,3 +1,3 @@
 sub triple($n) { 3 * $n }
-my &f = &triple ∘ &[-] ∘ { $^n + 2 };
-say &f(5); # Prints "-21".
+my &f = &triple ∘ &prefix:<-> ∘ { $^n + 2 };
+say &f(5); # prints "-21".