diff options
| -rw-r--r-- | lil/giblang.lil | 21 |
1 files changed, 9 insertions, 12 deletions
diff --git a/lil/giblang.lil b/lil/giblang.lil index b92f20b..7370a8c 100644 --- a/lil/giblang.lil +++ b/lil/giblang.lil @@ -1,20 +1,17 @@ +sys.seed:sys.ms cons: ("b", "c", "d", "f", "g", "h", "j", "k", "l", "m", "n", "p", "r", "s", "t", "v", "w", "z", "ch", "sh", "zh", "th") vow: ("a", "e", "i", "o", "u", "y", "ee", "ai", "ae", "au") -sys.seed:sys.ms - -on syl do - "" fuse random[vow 1],random[cons 1] +on syl v c do + "" fuse random[v 1],random[c 1] end -on apply func do - func[] +on word i v c do + "" fuse each x in i syl[v c] end end -x:apply[syl] -show[x] - -wrd:(syl[],syl[],syl[]) # I'd like to support a random number of syllables within a given range -word:"" fuse wrd +p:random[(1,2,2,3,4) 1] +r:range sum p -show[word] +out:word[r vow cons] +show[out] \ No newline at end of file |