http://www.perlmonks.org?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)-$
+_)
}

[download]
But I can't do one on my own... my own solution came in at 83 :(

mr.nick ...

In Section Meditations