source: to-imperative/trunk/samples/Syntax/clash1.rf @ 1775

Last change on this file since 1775 was 1775, checked in by orlov, 15 years ago
  • Simple test for pattern matching.
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 177 bytes
Line 
1$use Convert StdIO;
2
3$func? Eq (e1) (e2) = ;
4
5Eq (e1) (e2) = e1 : e2;
6
7Main =
8  <To-Chars ABC> :: e1,
9  <To-Chars ABC> :: e2,
10  e1 : e2,
11  <Eq ((e1)) ((e2))>,
12  <PrintLN OK!>;
13
Note: See TracBrowser for help on using the repository browser.