From 2a03fd9a56c82a711854ae82a7e596482ee8f67b Mon Sep 17 00:00:00 2001
From: sanine <sanine.not@pm.me>
Date: Wed, 1 Jan 2025 10:11:34 -0600
Subject: initial commit

---
 grammar.lua | 75 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 75 insertions(+)
 create mode 100644 grammar.lua

(limited to 'grammar.lua')

diff --git a/grammar.lua b/grammar.lua
new file mode 100644
index 0000000..27e75f7
--- /dev/null
+++ b/grammar.lua
@@ -0,0 +1,75 @@
+local module = {}
+setmetatable(module, {__index=_G})
+setfenv(1, module)
+
+
+local Grammar = {}
+
+function module.createGrammar(nonterminals, functions, terminals)
+  local self = {
+    nonterminals = nonterminals,
+    functions = functions,
+    terminals = terminals,
+  }
+  setmetatable(self, {__index=Grammar})
+  return self
+end
+
+
+function Grammar.expandSymbol(self, sequence, index, expansion)
+  table.remove(sequence, index)
+  for i=1,#expansion do
+    table.insert(sequence, index+i-1, expansion[i])
+  end
+end
+
+
+function Grammar.expandSequence(self, sequence, n)
+  local i = 1
+  while i <= #sequence do
+    local choices = self.nonterminals[sequence[i]]
+    if choices then
+      if #choices == 1 then
+        self:expandSymbol(sequence, i, choices[1])
+        return true, 0
+      else
+        local choice = choices[1 + (n % #choices)]
+        self:expandSymbol(sequence, i, choice)
+        return true, 1
+      end
+    else
+      i = i+1
+    end
+  end
+  return false, 0
+end
+
+
+function Grammar.expand(self, genome, maxLength)
+  maxLoops = maxLoops or 2
+  local sequence = { '<start>' }
+  local geneIndex = 0
+  local count = 0
+  local continue = true
+  while continue do
+    local gene
+    if (count > maxLoops * #genome) then
+      gene = 0
+    else
+      gene = genome[1 + (geneIndex % #genome)]
+    end
+    local increment
+    continue, increment = self:expandSequence(sequence, gene)
+    if not continue then break end
+    geneIndex = geneIndex+increment
+    count = count + 1
+  end
+  local result = ''
+  for _, s in ipairs(sequence) do
+    result = result .. s .. ' '
+  end
+  return result
+end
+
+
+return module
-- 
cgit v1.2.1