Select Code to Download

clark:~/Desktop jim$ ./egypt.pl 19/20
...
clark:~/Desktop jim$ ./egypt.pl 18/20
18/20 = 1/2 + 1/3 + 1/15

sub egypt {my$f=2;do{return(--$f,egypt($_[0]/$f))unless$_[0]%$f++}
...
pharaoh(hiero($_[0]*(int($_[1]/$_[0])+1)-$_[1],$_[1]*(int($_[1]/
$_[0])+1))))}

sub egypt {
...
    $_[1], $_[1] * (int($_[1] / $_[0]) + 1))))
}

sub egypt {
...
    $_[0] > 1;
}

print "$ARGV[0] = " , join(
...
    ), "\n";

sub hiero {
    my (%nf, %df);
...
    return (eval join('*', 1, (map {($_) x $nf{$_}} keys %nf)),
            eval join('*', 1, (map {($_) x $df{$_}} keys %df)));
}

sub pharaoh {
    return $_[0] == 1 ? "$_[0]/$_[1]" : ( "1/" . (int($_[1] / 
...
}