RosettaCodeData/Task/Closures-Value-capture/Oforth/closures-value-capture.fth
2023-07-01 13:44:08 -04:00

2 lines
69 B
Forth

: newClosure(i) #[ i sq ] ;
10 seq map(#newClosure) at(7) perform .