aoc-day2.p6

use v6;
use Grammar::Debugger;
use Grammar::Tracer;

grammar PasswordChecker {
    # rule TOP { ^^ <minimum> '-' <maximum> <ws>* <letter> ':' <ws>* <password> $$ }
    rule TOP { <digit>+ '-' <digit>+ <ws>* <alpha> ':' <ws>* <alnum>+ }
}

sub check-password-validity(@inputs) {
    PasswordChecker.parse(@inputs[0]);# for @inputs;
}

sub MAIN() {
    # my $pattern = / <digit>+ '-' <digit>+ <ws>* <alpha> ':' <ws>* <alnum>+ /;
    my @passwords = '1-3 a: abcde', '1-3 b: cdefg', '2-9 c: ccccccccc';
    return @passwords[0] ~~ $pattern; # for @inputs;
}

DOC CHECK {
    use Test;

    subtest 'Example input' => {
        my @passwords = '1-3 a: abcde', '1-3 b: cdefg', '2-9 c: ccccccccc';
        check-password-validity(@passwords).&is(2);
    }
}