Iterators: Difference between revisions
Iterators en BASIC256
m (J: show more detail about trailing empty example) |
(Iterators en BASIC256) |
||
Line 16:
If you language supports iterators, use them. Otherwise show how access to elements can be
separated from the containers that hold them.
=={{header|BASIC256}}==
{{trans|FreeBASIC}}
<lang freebasic>arraybase 1
dim list$ = {{"Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday"}, {"Red","Orange","Yellow","Green","Blue","Purple"}}
dim ind = {1,4,5}
print "All elements:"
for n = 1 to list$[?,]
for m = 1 to list$[,?]
print list$[n, m]; " ";
next m
print
next n
print
print "First, fourth, and fifth elements:"
for n = 1 to list$[?,]
for m = 1 to ind[?]
print list$[n, ind[m]]; " ";
next m
print
next n
print
print "Reverse first, fourth, and fifth elements:"
for m = 1 to ind[?]
print list$[1, list$[,?]+1-ind[m]]; " ";
next m
print
for m = 1 to ind[?]
print list$[2, list$[,?]-ind[m]]; " ";
next m
print
end
</lang>
<pre>Igual que la entrada de FreeBASIC.</pre>
=={{header|C++}}==
| |||