RosettaCodeData/Task/Higher-order-functions/M2000-Interpreter/higher-order-functions-1.m2000
2023-07-01 13:44:08 -04:00

16 lines
230 B
Text

Function Foo (x) {
=x**2
}
Function Bar(&f(), k) {
=f(k)
}
Print Bar(&foo(), 20)=400
Group K {
Z=10
Function MulZ(x) {
=.Z*x
.Z++
}
}
Print Bar(&K.MulZ(), 20)=200
Print K.Z=11