Greedy algorithm for Egyptian fractions: Difference between revisions

Content added Content deleted
m (→‎{{header|Perl 6}}: more superstitious parens)
(→‎{{header|Perl 6}}: surperfluous but operator)
Line 44: Line 44:
say .nude.join('/'), " = ", $_ but Egyptian for 43/48, 5/121, 2014/59;
say .nude.join('/'), " = ", $_ but Egyptian for 43/48, 5/121, 2014/59;


my @sample = map { $_ => ($_ but Egyptian).denominators },
my @sample = map { $_ => .denominators },
grep * < 1,
grep * < 1,
map {$_ but Egyptian},
map {$_ but Egyptian},
Retrieved from "https://rosettacode.org/wiki/Greedy_algorithm_for_Egyptian_fractions"