http://qs321.pair.com?node_id=147967


in reply to Re: Luhn Number Golf
in thread Luhn Number Golf

52 chars:
sub luhn { 
$_=reverse@_;s/(.)(.)/$1.$2*2/ge;s/\B/+/g;eval=~/0$/
}

[download]


  p

In Section Meditations