Select Code to Download

sub a {
($_=join"",sort pop=~/./g)!=459?1+a(-$_+reverse):1
#2345678901234567890123456789012345678901234567890
}