procgen  Diff

Differences From Artifact [851e9817dd]:

• File lib/bot.scm — part of check-in [6822b7d006] at 2019-03-30 03:45:34 on branch trunk — add libs (user: lexi, size: 1996) [annotate] [blame] [check-ins using]

To Artifact [d5281d581a]:

• File lib/bot.scm — part of check-in [294d779091] at 2019-04-17 23:45:48 on branch trunk — tidy up headers (user: lexi, size: 2137) [annotate] [blame] [check-ins using]

            1  +; [ʞ] bot.scm
            2  +;  ~ lexi hale <lexi@hale.su>
            3  +;  © affero general public license
            4  +;  > (load "lib/lisp-macro.scm")
            5  +;    (load "lib/bot.scm")
            6  +
     1      7   ; prep the random number generator
     2      8   (import (chicken random))
     3      9   (set-pseudo-random-seed! (random-bytes))
     4     10   
     5     11   ; generates a (case) structure that randomly returns
     6     12   ; one of its branches at equal probability
     7     13   (define-for-syntax (@one-of case-fn strs)