1: #line 358 "./lpsrc/flx_stdlib_regress.pak" 2: //Check lists 3: #import <flx.flxh> 4: open List; 5: val f = fun (x:int) (y:int) => x - y; 6: print$ fold_left f 3$ list[int](); endl; 7: print$ fold_left f 3$ list(4); endl; 8: print$ fold_left f 3$ list(4, 5); endl; 9: print$ fold_left f 3$ list(4, 5, 6); endl; 10: print$ fold_left f 3$ list(4, 5, 6, 7); endl;
1: 3 2: -1 3: -6 4: -12 5: -19