: fuel ( m -- n ) 3 /i 2 - 0 max [ f ] when-zero ; : part1 ( seq -- n ) [ fuel ] map-sum ; : part2 ( seq -- n ) [ [ fuel ] follow rest sum ] map-sum ;
Done