adyxax/advent-of-code
1
0
Fork 0
Code Issues Pull requests Activity

2024-03 part 2 in factor using an EBNF parser this time

Browse source
This commit is contained in:
Julien Dessaux 2024-12-17 13:41:52 +01:00
parent 9ed8dc9af2
commit ed39b6aeaa
Signed by: adyxax
GPG key ID: F92E51B86E07177E
1 changed files with 22 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
2024/03-Mull_It_Over/03.factor
View file

@ -1,7 +1,7 @@
! Copyright (C) 2024 Julien (adyxax) Dessaux. ! Copyright (C) 2024 Julien (adyxax) Dessaux.
! See https://git.adyxax.org/adyxax/advent-of-code/tree/LICENSE for EUPL license. ! See https://git.adyxax.org/adyxax/advent-of-code/tree/LICENSE for EUPL license.
USING: accessors io.encodings.utf8 io.files kernel make math math.parser peg USING: accessors io.encodings.utf8 io.files kernel make math math.parser
peg.parsers prettyprint regexp sequences ; multiline peg peg.ebnf peg.parsers prettyprint regexp sequences ;
IN: aoc.2024.03 IN: aoc.2024.03
<PRIVATE <PRIVATE
@ -85,10 +85,29 @@ PEG: parse_input ( string -- ast )
[ compute ] each [ compute ] each
total>> ; total>> ;
! ----- part2 again with an EBNF parser this time ------------------------------
EBNF: parse_grammar [=[
number=[0-9]+ => [[ string>number ]]
mul = "mul("~ number:a ","~ number:b ")"~ => [[ a b mul boa ]]
dontblock = "don't()" (!("do()") .)* "do()" => [[ nop boa ]]
ignore = .~ => [[ nop boa ]]
program=(dontblock|mul|ignore)+
]=]
: part2bis ( filename -- n )
load_input
parse_grammar
0 t computer boa
swap
[ compute ] each
total>> ;
PRIVATE> PRIVATE>
: aoc202403 ( -- ) : aoc202403 ( -- )
"input" part1 . "input" part1 .
"input" part2 . ; "input" part2 .
"input" part2bis . ;
MAIN: aoc202403 MAIN: aoc202403