Skip to main content
2 of 7
work around am apparent Perl 6 bug
smls
  • 4.5k
  • 15
  • 19

Perl 6, 52 bytes

->\n{(map {.comb[*-n]//|()},(5 X**1..*))[^(2**n/4)]}

Try it online!

smls
  • 4.5k
  • 15
  • 19