Loops/Foreach: Difference between revisions
→{{header|ALGOL 68}}
(→{{header|ALGOL 68}}: Corrected the ALGOL 68 RS FORALL syntax) |
|||
Line 287:
print((c," "))
OD</syntaxhighlight>
=={{header|Amazing Hopper}}==
<syntaxhighlight lang="bennugd">
#include <jambo.h>
Main
things = {}, len list=0
Set ' 100,200,300,"Hello world!", -3,-2,-1 ' Apndlist 'things'
Let ' len list := Length(things) '
Printnl ' "\nNormal count:\n" '
For each( n, things, len list )
Printnl ' "Thing : ", n '
Next
Printnl ' "\n\nReverse count:\n" '
For each reverse ( n, things, len list )
Printnl ' "Thing : ", n '
Next
End
</syntaxhighlight>
{{out}}
<pre>
Normal count:
Thing : 100
Thing : 200
Thing : 300
Thing : Hello world!
Thing : -3
Thing : -2
Thing : -1
Reverse count:
Thing : -1
Thing : -2
Thing : -3
Thing : Hello world!
Thing : 300
Thing : 200
Thing : 100
</pre>
=={{header|AmigaE}}==
|