source:
to-imperative/trunk/samples/Syntax/iter5.rf
@
3968
Last change on this file since 3968 was 3968, checked in by yura, 12 years ago | |
---|---|
File size: 171 bytes |
Line | |
---|---|
1 | $module Test; |
2 | |
3 | $use StdIO; |
4 | |
5 | $func Main = e; |
6 | Main = |
7 | 1 2 : e.body 2 e = |
8 | e.body $iter { |
9 | e.body : s e.body2 = e.body2; |
10 | } :: e.body, |
11 | <WriteLn e.body>, |
12 | e.body : ; |
Note: See TracBrowser
for help on using the repository browser.