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

6 lines
98 B
Plaintext

fs[f_, s_] := Map[f, s]
f1 [n_] := n*2
f2 [n_] := n^2
fsf1[s_] := fs[f1, s]
fsf2[s_] := fs[f2, s]