RosettaCodeData/Task/Greatest-subsequential-sum/Forth/greatest-subsequential-sum-2.fth

3 lines
106 B
Forth
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
test 11 max-sub .array [3 5 6 -2 -1 4 ] = 15 ok
test2 11 max-sub .array [3 5 6 -2 -1 4 -4 2 99 ] = 112 ok