Loops/Nested: Difference between revisions
Added Quackery.
(Added C implementation without goto) |
(Added Quackery.) |
||
Line 2,969:
(array->list 20 (random-array 10 10))
</lang>
=={{header|Quackery}}==
<lang Quackery> []
5 times
[ []
5 times [ 20 random 1+ join ]
nested join ]
dup say "Array contains:" cr
witheach
[ witheach
[ echo sp ]
cr ]
cr
say "Array up to item = 20:" cr
witheach
[ false swap
witheach
[ dup 20 = iff
[ drop not conclude ]
else
[ echo sp ] ]
iff conclude
else cr ]</lang>
{{out}}
<pre>Array contains:
16 9 10 11 6
2 10 14 12 20
19 4 4 3 18
15 20 10 7 3
10 19 14 10 7
Array up to item = 20:
16 9 10 11 6
2 10 14 12
</pre>
=={{header|R}}==
| |||