17 lines
278 B
Text
17 lines
278 B
Text
link compose
|
|
procedure main(arglist)
|
|
|
|
fun := [sin,cos,cube]
|
|
inv := [asin,acos,cuberoot]
|
|
x := 0.5
|
|
every i := 1 to *inv do
|
|
write("f(",x,") := ", compose(inv[i],fun[i])(x))
|
|
end
|
|
|
|
procedure cube(x)
|
|
return x*x*x
|
|
end
|
|
|
|
procedure cuberoot(x)
|
|
return x ^ (1./3)
|
|
end
|