blob: e4fce4d1eef198db4105a108f36b5366407cba18 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
(let [{
: flatten
: create-corpus
} (require :src.story.story)]
(let [corpus (create-corpus "src/story/story.test.dat")
get-story (partial flatten corpus corpus.start)]
(print "\n== POEMS ==")
(for [_ 1 10] (print (get-story))))
(let [corpus (create-corpus "src/story/cards.dat")
get-story (partial flatten corpus corpus.draw)]
(print "\n== CARDS ==")
(for [_ 1 10] (print (get-story)))))
|
