14 lines
243 B
CoffeeScript
14 lines
243 B
CoffeeScript
|
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
|