diff options
author | elioat <elioat@tilde.institute> | 2023-05-05 22:58:46 -0400 |
---|---|---|
committer | elioat <elioat@tilde.institute> | 2023-05-05 22:58:46 -0400 |
commit | e1ed8ffb51feb3b189286ad96e03273e9552ac6d (patch) | |
tree | 929a472db5ec1b57e9b7aa1c6707d2db9bc030c6 | |
parent | c4af194999cf6f58999a3e12bc87a54cfadfa054 (diff) | |
download | tour-e1ed8ffb51feb3b189286ad96e03273e9552ac6d.tar.gz |
got it?
-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 |