Help for this page

Select Code to Download


  1. or download this
    use strict;
    use warnings;
    ...
    my $rolls = $grammar->parse(\$input, 'Actions');
        
    print "Result: @$$rolls\n";
    
  2. or download this
    Dice_Expression ::= Simple_Dice action => ::first