52 lines
1.5 KiB
Scheme
52 lines
1.5 KiB
Scheme
; SPDX-FileCopyrightText: 2020 Arvydas Silanskas
|
|
; SPDX-License-Identifier: MIT
|
|
|
|
(define-library (srfi 194)
|
|
(cond-expand
|
|
(gambit
|
|
;; Should work for any Gambit no earlier than
|
|
;; v4.9.5-104-g562e58da 20240201212453
|
|
(import (gambit)))
|
|
(else
|
|
(import (scheme base)
|
|
(srfi 133))))
|
|
(import (scheme case-lambda)
|
|
(scheme inexact)
|
|
(scheme complex)
|
|
(scheme write)
|
|
(srfi 27)
|
|
(srfi 158)
|
|
(chicken platform))
|
|
(export
|
|
clamp-real-number
|
|
current-random-source
|
|
with-random-source
|
|
make-random-integer-generator
|
|
make-random-u1-generator
|
|
make-random-u8-generator make-random-s8-generator
|
|
make-random-u16-generator make-random-s16-generator
|
|
make-random-u32-generator make-random-s32-generator
|
|
make-random-u64-generator make-random-s64-generator
|
|
make-random-boolean-generator
|
|
make-random-char-generator
|
|
make-random-string-generator
|
|
make-random-real-generator
|
|
make-random-rectangular-generator
|
|
make-random-polar-generator
|
|
make-bernoulli-generator
|
|
make-binomial-generator
|
|
make-categorical-generator
|
|
make-normal-generator
|
|
make-exponential-generator
|
|
make-geometric-generator
|
|
make-poisson-generator
|
|
make-zipf-generator
|
|
make-sphere-generator
|
|
make-ellipsoid-generator
|
|
make-ball-generator
|
|
make-random-source-generator
|
|
gsampling)
|
|
(begin (register-feature! 'srfi-194))
|
|
(include "194-impl.scm")
|
|
(include "zipf-zri.scm")
|
|
(include "sphere.scm"))
|