USING: io.encodings io.files.private math.parser splitting combinators.extras sequences.extras ;
IN: aoc2022-1
: load-file ( path -- seq ) cwd "/" append swap append utf8 file-lines ;

: group-elf ( seq -- seq ) [ empty? ] split-when ;

: elf-sum ( seq -- seq ) [ [ string>number ] map sum ] map ;

: max-list ( seq -- n ) 0 [ max ] reduce  ;

"2022-1.txt" load-file group-elf elf-sum
[ [ max-list dup ] keep remove-first ] twice
max-list
+ +