diff options
author | elioat <elioat@tilde.institute> | 2023-05-06 08:02:34 -0400 |
---|---|---|
committer | elioat <elioat@tilde.institute> | 2023-05-06 08:02:34 -0400 |
commit | 464d6b689f18713f1ee306ec2f1c9ab79120d568 (patch) | |
tree | 0a3639394dcdfa4948e0da92d2bdc86c32944690 | |
parent | e1ed8ffb51feb3b189286ad96e03273e9552ac6d (diff) | |
download | tour-464d6b689f18713f1ee306ec2f1c9ab79120d568.tar.gz |
SUCCESS
-rw-r--r-- | lil/giblang.lil | 20 | ||||
-rw-r--r-- | lil/scratch.lil | 21 |
2 files changed, 27 insertions, 14 deletions
diff --git a/lil/giblang.lil b/lil/giblang.lil index 7370a8c..ddd13de 100644 --- a/lil/giblang.lil +++ b/lil/giblang.lil @@ -1,17 +1,9 @@ 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") +cons: "|" split "b|c|d|f|g|h|j|k|l|m|n|p|r|s|t|v|w|z|ch|sh|zh|th" + vow: "|" split "a|e|i|o|u|y|ee|ai|ae|au" -on syl v c do - "" fuse random[v 1],random[c 1] -end +on syl do random[vow],random[cons] end +on word do "" fuse syl @ range random[1,2,3,4] end +on words x do word @ range x 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] \ No newline at end of file +show[words[12]] \ No newline at end of file diff --git a/lil/scratch.lil b/lil/scratch.lil new file mode 100644 index 0000000..00ece6d --- /dev/null +++ b/lil/scratch.lil @@ -0,0 +1,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] |