path: root/challenge-049/xkr47/raku/ch-1.p6

#!/usr/bin/env perl6

sub MAIN(Int $multiplier) {
    (1 .. ∞)
            .map(* * $multiplier)
            .grep(/^<[01]>+$/)
            .head(1)
            .say()
}