38 lines
579 B
Racket
38 lines
579 B
Racket
#lang planet dyoo/whalesong/base
|
|
|
|
|
|
(number? 0)
|
|
(number? 3.14)
|
|
(number? (expt 2 100))
|
|
(number? 2+3i)
|
|
(number? "42")
|
|
(number? 'this-is-a-test)
|
|
(number? (list 3 4 5))
|
|
|
|
(max 3)
|
|
(max 3 4 5 6)
|
|
(max 3 1 4 1 5 9 2 6)
|
|
(max 3 20)
|
|
(max 20 3)
|
|
|
|
(min 3)
|
|
(min 3 4 5 6)
|
|
(min 3 1 4 1 5 9 2 6)
|
|
(min 3 20)
|
|
(min 20 3)
|
|
|
|
|
|
(positive? 0)
|
|
(negative? 0)
|
|
(positive? 42)
|
|
(negative? 42)
|
|
(positive? -42)
|
|
(negative? -42)
|
|
(positive? 3.1415926)
|
|
(negative? 3.1415926)
|
|
(positive? -3.1415926)
|
|
(negative? -3.1415926)
|
|
(positive? (expt 2 100))
|
|
(negative? (expt 2 100))
|
|
(positive? (expt -2 91))
|
|
(negative? (expt -2 91)) |