in reply to (Golf) Fraction Reduction
The best I could get was 45:
no_slogan++map$_/(grep!($_[0]%$_|$_[1]%$_),1..$_)[-1],@_
Russ
Brainbench 'Most Valuable Professional' for Perl
In Section
Meditations