123456789101112131415 |
- word := begin rep.<1..4, syll> end;
- syll := cons vowel;
- end := cons vowel final | cons 'é' final | cons 'a' final | 'r' | 'n';
- begin := vowel | initcons vowel;
- cons ::= b c d d ch d f g g gn h j l l l lh m m m n n n nh
- p qu r s s s ss ss ss sc sc t t t tg tj tz tz tr rt v z;
- initcons ::= b c d ch d f g gn h j l m n p qu r s sc t v;
- vowel := 4: commonvowel | uncommonvowel;
- commonvowel ::= a i u e é o;
- uncommonvowel ::= à è ó ò í ú;
- final := 's' | 6: '';
- puts word;
|