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