tasks a-s

2013-04-10 23:57:08 -07:00 · 2013-04-10 23:57:08 -07:00 · b83f433714
commit b83f433714
parent 47bf37c096
12433 changed files with 156208 additions and 123 deletions
--- a/Task/Partial-function-application/CoffeeScript/partial-function-application-1.coffeescript
+++ b/Task/Partial-function-application/CoffeeScript/partial-function-application-1.coffeescript
@ -0,0 +1,13 @@
+partial = (f, g) ->
+  (s) -> f(g, s)
+
+fs = (f, s) -> (f(a) for a in s)
+f1 = (a) -> a * 2
+f2 = (a) -> a * a
+fsf1 = partial(fs, f1)
+fsf2 = partial(fs, f2)
+
+do ->
+  for seq in [[0..3], [2,4,6,8]]
+    console.log fsf1 seq
+    console.log fsf2 seq