Feature/Parity: Add fp:apply

Author: LaCuneta

engine/src/main/coffee/extensions/fp.coffee

@@ -131,6 +131,9 @@ iterateForLast = (f, initialValue, repetitions) ->
 
   result
 
+apply = (f, values) ->
+  f(values...)
+
 module.exports = {
 
   porter: undefined
@@ -150,6 +153,7 @@ module.exports = {
     , flatten
     , "iterate": iterateToList
     , "iterate-last": iterateForLast
+    , apply
     }
     Object.keys(prims).forEach( (p) => prims[p.toUpperCase()] = prims[p] )
     { name: "fp", prims }

engine/src/main/coffee/extensions/fp.json

@@ -74,5 +74,10 @@
     , "argTypes": ["reporter", "wildcard", "number"]
     , "returnType": "wildcard"
     }
+    , {
+      "name": "apply"
+    , "argTypes": ["reporter", "list"]
+    , "returnType": "wildcard"
+    }
   ]
 }

resources/test/commands/Fp.txt

@@ -108,3 +108,10 @@ Flatten
   fp:flatten [1 2 3 4 5 6] => [1 2 3 4 5 6]
   fp:flatten [] => []
   fp:flatten [[] []] => []
+
+Apply
+  extensions [fp]
+  fp:apply [[a b] -> a + b] [10 5] => 15
+  map [l -> fp:apply [[a b] -> a + b] l] [[10 5] [6 8] [9 22]] => [15 14 31]
+  map [l -> fp:apply word l] [[1 2 3] [4 5] [6 7 8 9]] => ["123" "45" "6789"]
+  fp:apply [[a b] -> a + b] [10] => ERROR anonymous procedure expected 2 inputs, but only got 1