in reply to Luhn Number Golf
This is 60 characters. I've verified it by comparing the results to the referenced code from http://perl.about.com/library/weekly/aa080600h.htm.
sub luhn { # 1 2 3 4 5 6 #23456789012345678901234567890123456789012345678901234567890 my$s;$_=reverse@_;s/(.)(.)/$1.$2*2/ge;$s+=$_ for/./g;!chop$s }
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Re: Luhn Number Golf
by PrakashK (Pilgrim) on Feb 26, 2002 at 21:47 UTC | |
by chipmunk (Parson) on Feb 26, 2002 at 22:15 UTC | |
by blakem (Monsignor) on Mar 08, 2002 at 09:10 UTC | |
Re: Re: Luhn Number Golf
by petral (Curate) on Feb 27, 2002 at 17:02 UTC |
In Section
Meditations