RosettaCodeData/Task/Trabb-Pardo-Knuth-algorithm/Perl-6/trabb-pardo-knuth-algorithm.pl6
Ingy döt Net 68f8f3e56b all tasks
2013-04-11 01:07:29 -07:00

6 lines
202 B
Raku

my @nums = prompt("Please type 11 space-separated numbers: ").words
until @nums == 11;
for @nums.reverse -> $n {
my $r = $n.abs.sqrt + 5 * $n ** 3;
say "$n\t{ $r > 400 ?? 'Urk!' !! $r }";
}