RosettaCodeData/Task/Inverted-syntax/Perl-6/inverted-syntax-8.pl6

5 lines
86 B
Raku
Raw Permalink Normal View History

2013-04-10 22:43:41 -07:00
my $answer;
repeat {
$answer = prompt "Gimme an answer: ";
} until $answer ~~ 42;