source:
to-imperative/trunk/samples/Syntax/clash6.rf
@
1142
Last change on this file since 1142 was 1142, checked in by orlov, 17 years ago | |
---|---|
|
|
File size: 154 bytes |
Line | |
---|---|
1 | $use StdIO; |
2 | |
3 | $func "++" eZ = (eX) (eA) (eY); |
4 | |
5 | "++" $r eP '+' eY, |
6 | eP : $l eX '+' eA = |
7 | (eX) (eA) (eY); |
8 | |
9 | Main = <WriteLN <"++" 'AAA+BBB+CCC+DDD+EEE'>>; |
10 |
Note: See TracBrowser
for help on using the repository browser.