RosettaCodeData/Task/First-class-functions/Mathematica/first-class-functions-1.math
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

4 lines
163 B
Text

funcs = {Sin, Cos, #^3 &};
funcsi = {ArcSin, ArcCos, #^(1/3) &};
compositefuncs = Composition @@@ Transpose[{funcs, funcsi}];
Table[i[0.666], {i, compositefuncs}]