19 lines
241 B
Text
19 lines
241 B
Text
/# Rosetta Code problem: http://rosettacode.org/wiki/Apply_a_callback_to_an_array
|
|
by Galileo, 05/2022 #/
|
|
|
|
include ..\Utilitys.pmt
|
|
|
|
def ++
|
|
1 +
|
|
enddef
|
|
|
|
def square
|
|
dup *
|
|
enddef
|
|
|
|
( 1 2 3 ) dup
|
|
|
|
getid ++ map swap
|
|
getid square map
|
|
|
|
pstack
|