in reply to (Golf) Fraction Reduction

The best I could get was 45:
map$_/(grep!($_[0]%$_|$_[1]%$_),1..$_)[-1],@_
no_slogan++

Russ
Brainbench 'Most Valuable Professional' for Perl