RosettaCodeData/Task/First-class-functions/Ursala/first-class-functions.ursala

10 lines
151 B
Plaintext

#import std
#import flo
functions = <sin,cos,times^/~& sqr>
inverses = <asin,acos,math..cbrt>
#cast %eL
main = (gang (+)*p\functions inverses) 0.5