2024-08-02 18:22:14 +00:00
|
|
|
(let [{
|
|
|
|
|
: flatten
|
|
|
|
|
: create-corpus
|
|
|
|
|
} (require :src.story)]
|
|
|
|
|
|
|
|
|
|
(let [corpus (create-corpus "test/morpheme-word-epithet.txt")
|
|
|
|
|
origin-key :name
|
2024-08-03 23:09:10 +00:00
|
|
|
origin-table ["[morpheme.c][word] [epithet]"
|
|
|
|
|
"[prefix] [morpheme.c][word] [epithet]"
|
|
|
|
|
"[prefix] [morpheme.c][word]"
|
2024-08-02 18:22:14 +00:00
|
|
|
]
|
2024-08-03 23:09:10 +00:00
|
|
|
origin-string "[morpheme.c][word] [epithet]"
|
2024-08-02 18:22:14 +00:00
|
|
|
get-story-with-key
|
|
|
|
|
(partial flatten corpus (. corpus origin-key))
|
|
|
|
|
get-story-with-table
|
|
|
|
|
(partial flatten corpus origin-table)
|
|
|
|
|
get-story-with-string
|
|
|
|
|
(partial flatten corpus origin-string)
|
|
|
|
|
]
|
|
|
|
|
(print "\n== Cast of Characters ==")
|
|
|
|
|
(for [_ 1 4] (print (get-story-with-key)))
|
|
|
|
|
(for [_ 1 4] (print (get-story-with-table)))
|
|
|
|
|
(for [_ 1 4] (print (get-story-with-string)))))
|
