Apply a callback to an array: Difference between revisions

Line 425:
=={{header|Elena}}==
 
<lang elena>#define ctrl'* = std'patterns'*.
#define std'routines'*.
#define std'dictionary'*.
 
#symbol PrintSecondPower
= aNumber => ('program'output << aNumber * aNumber << "%n").
 
#symbol Program =>
[
// first version
ctrl'Control run &list:(1, 2, 3, 4, 5) &foreach:
Scan::(1, 2, 3, 4, 5) run:PrintSecondPower.
aNumber => ('program'output << aNumber * aNumber << "%n").
// second version
(ArrayEnumerator::(6, 7, 8, 9, 10))~foreach run: anIndexer => (PrintSecondPower eval:(anIndexer content)).
].
</lang>
Anonymous user