RosettaCodeData/Task/Function-composition/ZX-Spectrum-Basic/function-composition-2.basic

6 lines
147 B
Plaintext

10 DEF FN f(x)=SQR x
20 DEF FN g(x)=ABS x
30 DEF FN c(a$,b$,x)=VAL ("FN "+a$+"(FN "+b$+"(x))")
40 PRINT FN c("f","g",-4)
50 PRINT FN c("g","f",-4)