1: #line 224 "./lpsrc/flx_stdlib_regress.pak" 2: //Check arrays 3: #import <flx.flxh> 4: val f = fun (x:int) (y:int) => x - y; 5: print$ fold_right f (array(4, 5)) 6; endl; 6: print$ fold_right f (array(4, 5, 6)) 7; endl; 7: print$ fold_right f (array(4, 5, 6, 7)) 8; endl;
1: 5 2: -2 3: 6