1.2.9. Array::fold_right

Start felix section to test/stdlib/slrt-1.01.09-0.flx[1 /1 ]
     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;
End felix section to test/stdlib/slrt-1.01.09-0.flx[1]
Start data section to test/stdlib/slrt-1.01.09-0.expect[1 /1 ]
     1: 5
     2: -2
     3: 6
End data section to test/stdlib/slrt-1.01.09-0.expect[1]