RosettaCodeData/Task/Partial-function-application/Mathematica/partial-function-application.math

6 lines
98 B
Text
Raw Permalink Normal View History

2013-04-10 23:57:08 -07:00
fs[f_, s_] := Map[f, s]
f1 [n_] := n*2
f2 [n_] := n^2
fsf1[s_] := fs[f1, s]
fsf2[s_] := fs[f2, s]