source: to-imperative/trunk/samples/perm4.rf @ 2303

Last change on this file since 2303 was 1766, checked in by orlov, 16 years ago
  • Example of choice-terms using.
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 158 bytes
Line 
1$use StdIO;
2
3$func Perm e1 c2 = ;
4
5Perm {
6  e1 [t2] = <WriteLN e1 t2>;
7  e1 [t2]+c3, <Perm e1 t2 c3>, $fail;
8  e1 c2 = /*empty*/;
9}
10
11Main = <Perm [1,2,3,4]>;
Note: See TracBrowser for help on using the repository browser.