| 12345678910111213 |
- (* Below is a literal assignment, which is
- * identical to cons := "p"| "t" | "k" | "w" | "h" | "n"; *)
- cons ::= p t k w h n;
- (* And this could also be done with two rules and a literal
- * assignment *)
- vowel := ("a" | "e" | "i" | "o" | "u") (4: "" | "'");
- (* Here is a weighted disjunction *)
- syll := 4: cons vowel | vowel;
- (* And finally, here's an output statement *)
- puts syll rep[1..6, syll];
|
