RosettaCodeData/Task/Trabb-Pardo-Knuth-algorithm/Raku/trabb-pardo-knuth-algorithm.raku
2023-07-01 13:44:08 -04: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 }";
}