Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

18 lines (15 sloc) 0.292 kb
use 5.012;
use lib 'lib';
use Quiz;
my $app = Quiz->new;
my $state = 0;
while (1) {
say $app->ask($state), " ";
my $ans = $app->answer($state, (<> ~~ /tak/));
if (ref $ans eq 'ARRAY') {
say join ", ", @$ans;
exit 0;
} else {
$state = $ans;
}
}
Jump to Line
Something went wrong with that request. Please try again.