source:
to-imperative/trunk/samples/Syntax/iter1.rf
@
1230
Last change on this file since 1230 was 1230, checked in by orlov, 17 years ago | |
---|---|
|
|
File size: 154 bytes |
Line | |
---|---|
1 | $use StdIO; |
2 | |
3 | Main = |
4 | 1 2 3 : e.nums, |
5 | e.nums $iter { |
6 | e.nums : s.n e.rest = |
7 | <PrintLN s.n>, |
8 | e.rest; |
9 | } :: e.nums, |
10 | e.nums : /*empty*/; |
11 |
Note: See TracBrowser
for help on using the repository browser.