in reply to Re: Golf: Buying with exact changein thread Golf: Buying with exact change
64
sub largest { # 345678 1 2345678 2 2345678 3 2345678 4 2345678 5 2345678 6 234 my$r;$r.='('.5x$_.')*'for@_;for($i=1000;(5x$i)=~/^$r$/;$i--){}$i } [download]
sub largest { # 345678 1 2345678 2 2345678 3 2345678 4 2345678 5 23456789 @r=map'('.5x$_.')*',@_;for($=**=2;(5x$=)=~/^@r$/x;$=--){}$= }
www.com | www.net | www.org
No recent polls found
