git @ Cat's Eye Technologies Fountain / master eg / ignatz1.fountain
master

Tree @master (Download .tar.gz)

ignatz1.fountain @masterraw · history · blame

1
2
3
4
5
6
7
8
9
//
// Similar to the basic Samovar example.  Try it with `--seed 1299`.
//
Goal               ::= <. holding = 0 .> "Ignatz was at the lumberyard. " Action<holding>;
Action<holding>(*) ::= <. holding = 0 .> "Ignatz hopped over the brick. " Action<holding>
                     | <. holding = 0 .> "Ignatz picked up the brick. " <. holding += 1 .> Action<holding>
                     | <. holding = 1 .> "Ignatz tossed the brick from hand to hand. " Action<holding>
                     | <. holding = 1 .> "Ignatz put the brick down. " <. holding -= 1 .> Action<holding>
                     | <. holding = 1 .> "Ignatz threw the brick. The end.";