RosettaCodeData/Task/Trabb-Pardo-Knuth-algorithm/Perl-6/trabb-pardo-knuth-algorithm.pl6

7 lines
202 B
Raku
Raw Permalink Normal View History

2013-04-11 01:07:29 -07: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 }";
}