1: #line 261 "./lpsrc/flx_stdlib_regress.pak" 2: //Check lists 3: #import <flx.flxh> 4: open List; 5: fun str (x:list[int]) => 6: match x with 7: | Empty[int] => "()" 8: | Cons (?h, ?t) => "(" + (str h) + ", " + (str t) + ")" 9: endmatch 10: ; 11: print$ str$ list[int](); endl; 12: print$ str$ list(4); endl; 13: print$ str$ list(4, 5); endl; 14: print$ str$ list(4, 5, 6); endl; 15: print$ str$ list(4, 5, 6, 7); endl;
1: () 2: (4, ()) 3: (4, (5, ())) 4: (4, (5, (6, ()))) 5: (4, (5, (6, (7, ()))))