Untitled
12345678910111213141516171819202122
#!/usr/bin/env raku
use v6.d;
grammar G_24_02_a {
token TOP { <report>+ }
token report { <level> ** 1..5 }
token level { <value> \s? }
token value { <digit> <digit>? }
}
my $input = chomp q:to/INPUT/;
77 6 4 2 1
1 2 7 8 9
9 7 6 2 1
1 3 2 4 5
8 6 4 4 1
12 3 99
INPUT
say G_24_02_a.parse($input);
dd $input
Raku
INFO