This is the code I came up with for the 2nd part of day24 for AoC. I modified it from the first part I did, but for that I ended up using displayln at lines 8–10 and using shell to sort them. What would be an efficient way to collect all the different generated chains in a list or similar? I tried using set! and appends but the performance turned terrible.

Mmm I find that code rather pretty