repl.it
Perl 6

No description

fork
loading
Files
  • main.p6
  • input.txt
main.p6
1
say [*] slurp("input.txt").comb.rotor(25).rotor(6).map(&flat).map(*>>.Int.&bag).sort(*{0})[0].{1,2}
?