本页所列之例程的实现代码是名语言,因此源代码有参照意义。
procedure(〇? N) → boolean? N : 米?
procedure(〇? N) → boolean?
procedure
(〇? N) → boolean?
同:𥥪?
> (〇? 0)#t> (〇? 1)#f> (〇? 1.1)#f> (〇? "abcdefg")zero?: contract violation expected: number? given: "abcdefg"
#t
#f
zero?: contract violation
expected: number?
given: "abcdefg"
procedure( N) → 釆? N : 米?
procedure( N) → 釆?
( N) → 釆?
另见:宩化
> ( 0.014)0.01> ( 0.015)0.01> ( 0.016)0.02> ( 0.044)0.04> ( 0.045)0.04> ( 0.046)0.05> ( 0.0465 3)0.046
0.01
0.02
0.04
0.05
0.046