Re^2: Egyptian fractions (Golf Anyone?)

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$..$/

Comment on Re^2: Egyptian fractions (Golf Anyone?) Download Code

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]


Don't ask to ask, just ask
	PerlMonks