gistfile1.txt

use v6;

sub n($num){
    [+] $num.comb(/\d/).map: * ** 2
}

sub isHappy($num){
    my $seen = 0;
    for $num, &n ... * {
        when $seen      { return False }
        when 1          { return True  }
        $seen |= $_;
    }
}

sub happyTo($num){
    (1 ..^ $num).grep: &isHappy
}

say happyTo(50).perl;