in reply to Re: Egyptian fractions (Golf Anyone?)
in thread Egyptian fractions

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}

[download]
s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/

Replies are listed 'Best First'.
Re^3: Egyptian fractions (Golf Anyone?)
by tadman (Prior) on Aug 25, 2006 at 17:13 UTC
    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$/}

    [download]
[reply]
[d/l]

In Section Obfuscated Code