Markov chain text generator: Difference between revisions
Content deleted Content added
+Racket |
m →{{header|Racket}}: remove spurious space |
||
Line 1,205:
(hash-update! database prefix (curry cons suffix) '())
(loop (rest xs))]
[_ (
(define prefix (car (pick (hash->list database))))
| |||