RosettaCodeData/Task/Execute-HQ9+/Perl-6/execute-hq9+-2.pl6
2015-11-18 06:14:39 +00:00

6 lines
123 B
Raku

my $hq9 = HQ9Interpreter.new;
while 1 {
my $in = prompt('HQ9+>').chomp;
last unless $in.chars;
$hq9.run($in)
}