注意:DrScheme 已经很老了。您也许应该升级到DrRacket受支持的版本。
R6RS 通过 SRFI-27 获得随机数:随机位源。
#!r6rs
(import (rnrs)
(srfi :27))
(random-integer 10) ; ==> 9
Run Code Online (Sandbox Code Playgroud)
对于某些实现,R5RS 仍然可以使用 SRFI-27,但它并不完全可移植。在球拍下,可以在 R5RS 模式下执行此操作:
#!r5rs
(#%require srfi/27) ; non portable way to include library
(random-integer 10) ; ==> 9
Run Code Online (Sandbox Code Playgroud)
您还可以包含球拍语言中提供的过程,但这会有点不太可移植:
#!r5rs
(#%require (only racket/base random)) ; non portable way to include non portable library procedure
(random 10) ; ==> 9
Run Code Online (Sandbox Code Playgroud)