From e1ed8ffb51feb3b189286ad96e03273e9552ac6d Mon Sep 17 00:00:00 2001 From: elioat Date: Fri, 5 May 2023 22:58:46 -0400 Subject: got it? --- lil/giblang.lil | 21 +++++++++------------ 1 file 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 -- cgit 1.4.1-2-gfad0