8 lines
211 B
Text
8 lines
211 B
Text
|
00p10p;max in 0,0, current total in 1,0;v
|
||
|
|
>#;~:a-#v_$v@,a.g00; parses a number >
|
||
|
|
^+*a\-0'< : if not an empty line, add to total and read another number
|
||
|
|
^ p01+g01_v
|
||
|
|
^ vp00< >1v
|
||
|
|
^ >v $wg00:g0<
|
||
|
|
^p01< $<
|