Apply a callback to an array: Difference between revisions
Content added Content deleted
m (→{{header|Fortran}}: Fixed a works with header (I think)) |
|||
Line 426: | Line 426: | ||
let values = array (1,10) [(i,i)|i <- [1..10]] :: Array Int Int |
let values = array (1,10) [(i,i)|i <- [1..10]] :: Array Int Int |
||
amap square values |
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}}== |
=={{header|IDL}}== |