11 lines
216 B
Text
11 lines
216 B
Text
|
open number //sin,cos,asin,acos
|
||
|
|
open list //zipWith
|
||
|
|
|
||
|
|
cube x = x ** 3
|
||
|
|
croot x = x ** (1/3)
|
||
|
|
|
||
|
|
funclist = [sin, cos, cube]
|
||
|
|
funclisti = [asin, acos, croot]
|
||
|
|
|
||
|
|
zipWith (\f inversef -> (inversef << f) 0.5) funclist funclisti
|