RosettaCodeData/Task/Higher-order-functions/ZX-Spectrum-Basic/higher-order-functions.basic

mirror of https://github.com/acmeism/RosettaCodeData.git
10 DEF FN f(f$,x,y)=VAL ("FN "+f$+"("+STR$ (x)+","+STR$ (y)+")")
20 DEF FN n(x,y)=(x+y)^2
30 PRINT FN f("n",10,11)
	`10 DEF FN f(f$,x,y)=VAL ("FN "+f$+"("+STR$ (x)+","+STR$ (y)+")")`
	`20 DEF FN n(x,y)=(x+y)^2`
	`30 PRINT FN f("n",10,11)`