10 lines
216 B
Text
10 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
|