balanced-parens.raku

balanced-parens.raku

#!/usr/bin/env raku

use v6.d;
use Grammar::Tracer;

grammar BalancedParens {
    token TOP { <balanced-paren> }

    token balanced-paren { <lparen> <balanced-paren>* <rparen> }
    
    token lparen { '(' }
    token rparen { ')' }
}

sub MAIN() {
    # Uncomment whatever you wanna take a closer look at
    #say BalancedParens.parse("()");
    #say BalancedParens.parse("(())");
    #say BalancedParens.parse("(()())");
    #say BalancedParens.parse("(((())()))");
    #say BalancedParens.parse("(()"); # Fails
    #say BalancedParens.parse("(()()))"); # Fails
}