1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
# This is my first attempt at writing giblang in lil
# I shared it on the lilt forums, and got a more
# compact suggestion from Internet Janitor (maker of lil)
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")
on syl v c do
"" fuse random[v 1],random[c 1]
end
on word i v c do
"" fuse each x in i syl[v c] end
end
p:random[(1,2,2,3,4) 1]
r:range sum p
out:word[r vow cons]
show[out]
|