12 lines
315 B
Plaintext
12 lines
315 B
Plaintext
// Immediately invoked
|
|
DIC(INVOCA FVNCTIO (x) VT { REDI (x + I) } (V))
|
|
|
|
// From an array
|
|
DESIGNA fns VT [FVNCTIO (x) VT { REDI (x + I) }]
|
|
DIC(INVOCA fns[I] (V))
|
|
|
|
// Passing a named function as an argument
|
|
DEFINI apply (f, x) VT { REDI (INVOCA f (x)) }
|
|
DEFINI sqr (x) VT { REDI (x * x) }
|
|
DIC(INVOCA apply (sqr, IV))
|