caranmegil/splork-mode
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Updates to correct more errors

Browse Source
This commit is contained in:
William Moore 2025-01-07 12:42:55 -06:00
parent 1c69a39836
commit 0d8f48633c
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
sent-struct.lsp
View File

@ -99,7 +99,7 @@
(if (<= 5 (random 10))
(setf sentence (format nil "~A ~A" sentence (find-pos words "ADJECTIVE" 'false)))
)
(setf sentence (format nil "~A ~A; ~A ~A" sentence (find-noun-with-article words) (find-noun-with-article words) (find-pos words "PREPOSITION" 'false) (find-place-noun words)))
(setf sentence (format nil "~A ~A ~A; ~A ~A" sentence (find-noun-with-article words) (find-noun-with-article words) (find-pos words "PREPOSITION" 'false) (find-place-noun words)))
sentence))
(lambda ()
"You must meet <name> at <place> and retrieve the [random(<adjective>, .5)] <noun>"

3
splork.lsp
View File

@ -74,7 +74,8 @@
(apply (eval x) '()))
(defun splork ()
(let* ((compiled-results '())
(let* ((sent-index nil)
(compiled-results '())
(generated-sentence ""))
(setf compiled-results (mapcar #'exec-lambda *sentence-structures*))
(setf sent-index (random (length compiled-results)))