in reply to Re: Golf: Buying with exact change
in 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]

Replies are listed 'Best First'.
Re^3: Golf: Buying with exact change
by Thelonious (Scribe) on Feb 22, 2005 at 05:02 UTC
    59 

    sub largest {
# 345678 1 2345678 2 2345678 3 2345678 4 2345678 5 23456789
@r=map'('.5x$_.')*',@_;for($=**=2;(5x$=)=~/^@r$/x;$=--){}$=
}
[reply]

In Section Meditations