play with raku and autobiographical numbers

[Marc Chantreux]

hello,

2020 describes itself as it is composed by

    2 0
    0 1
    2 2
    0 3

perfect golf excuse! I have :

    sub is_autobiographic (\x) {
        my \s = x.Str;
        my @r = s.comb;
        my %appearance_of;
        %appearance_of{$_}++ for @r;
        x ~~ join '', (%appearance_of{$_}//0 for 0..^@r);
    }

    (^∞
    ).race( :10000batch,:10degree
    ).grep( &is_autobiographic
    ).head(10).map(*.say)

anyone with something simpler?

marc