about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorelioat <elioat@tilde.institute>2023-05-06 08:02:34 -0400
committerelioat <elioat@tilde.institute>2023-05-06 08:02:34 -0400
commit464d6b689f18713f1ee306ec2f1c9ab79120d568 (patch)
tree0a3639394dcdfa4948e0da92d2bdc86c32944690
parente1ed8ffb51feb3b189286ad96e03273e9552ac6d (diff)
downloadtour-464d6b689f18713f1ee306ec2f1c9ab79120d568.tar.gz
SUCCESS
-rw-r--r--lil/giblang.lil20
-rw-r--r--lil/scratch.lil21
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]