sub reduce { "@{[map 1x$_,@_]}"=~/(1+)\1* \1+$/;map$_/$+[1],@_ } [download]
sub reduce { ($x,$y)=@_;($x,$y)=($y%$x,$x)while$x;map$_/$y,@_ } [download]
MeowChow s aamecha.s a..a\u$&owag.print
In reply to (MeowChow) Re: (Golf) Fraction Reduction by MeowChow in thread (Golf) Fraction Reduction by Masem