Re^2: Egyptian fractions (Golf Anyone?)

[liverpole]

Hi Limbic~Region,

A couple of small changes will get you down to 142:

($n,$d)=split'/',shift;sub p{print"1/$_[0] "}{use Math::Pari
lcm;$u=int$d/$n+1;p$u;$l=lcm$d,$u;$n=$n*$l/$d-$l/$u;$d=$l;p($d),die$/i
+f$n==1;redo}

[tadman]

Refinement of this particular track at 130:

($n,$d)=split'/',pop;sub p{print"1/@_ "}{use Math::Pari
lcm;p$u=int$d/$n+1;$l=lcm$d,$u;$n=$n*$l/$d-($d=$l)/$u;$n-1?redo:
p$d+die$/}