First-class functions: Difference between revisions

← Older editNewer edit →
Content deleted Content added
Line 977:
#symbol program =
[
#var fs := (%("mathOp get&.sin)([0)]", %("mathOp get&.cos)([0)]", ()[ this power:3.0r ]).
#var gs := (%("mathOp get&.arcsin)([0)]", %("mathOp get&.arccos)([0)]", ()[ this power:(1.0r / 3) ]).
 
fs zip:gs &into: (:f:g)[ 0.5r compose:f:g ]
Retrieved from "https://rosettacode.org/wiki/First-class_functions"