Re: [golf] Kaprekar Numbers

41:

$_=$_[0]**2;$==y///c/2;/.{$=}/;$&+$'==pop
[download]

Caution: Contents may have been coded under pressure.

Comment on Re: [golf] Kaprekar Numbers Download Code

Replies are listed 'Best First'.
Re^2: [golf] Kaprekar Numbers by truedfx (Monk) on Jul 07, 2005 at 20:36 UTC
Based on your idea, I got it to 38: # 34567890123456789012345678901234567890 $_=$_[0]**2;pos=y///c/2;//g;$`+$'==pop [download] (Edit: and using thospel's "@_" instead of $_[0] makes it 37. I wonder how I managed to miss that...)	[reply] [d/l]
Re^3: [golf] Kaprekar Numbers by thospel (Hermit) on Jul 08, 2005 at 18:51 UTC
Like this it's 34: (pos=$_="@_"**2)/=2;//g;$`+$'==pop [download]	[reply] [d/l]


Come for the quick hacks, stay for the epiphanies.
	PerlMonks