Apply a callback to an array: Difference between revisions
→{{header|Icon}}
m (→{{header|Fortran}}: Fixed a works with header (I think)) |
|||
Line 426:
let values = array (1,10) [(i,i)|i <- [1..10]] :: Array Int Int
amap square values
=={{header|Icon}}==
procedure main()
local lst
lst := [10, 20, 30, 40]
every callback(!lst)
end
procedure callback(arg)
write("->", arg)
end
=={{header|IDL}}==
|