advent-of-code/2022/01/first.b98

8 lines
211 B
Text
Raw Normal View History

2022-12-01 18:48:22 +01:00
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< $<