RosettaCodeData/Task/Trabb-Pardo-Knuth-algorithm/Raku/trabb-pardo-knuth-algorithm.raku

7 lines
202 B
Raku
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
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 }";
}