http://qs1969.pair.com?node_id=89112


in reply to Re: Re: (Golf) Kaprekar's Process
in thread (Golf) Kaprekar's Process

And I can take it down a litter further massaging your code into this:
sub g{ # 1 2 3 4 5 6 + 7 # 12345678901234567890123456789012345678901234567890123456789012345678 +9012 return$,if($_=pop)==495;$_=join'',sort split//,$_;$,++;g((reverse)-$ +_) }
But I can't do one on my own... my own solution came in at 83 :(

mr.nick ...