r4rstest.out

Scheme跨平台编译器

SECTION(2 1)
SECTION(3 4)
 #<procedure>
    #<procedure>
       #<procedure>
          #<procedure>
             #<procedure>
                #<procedure>
                   #<procedure>
                      #<procedure>
                         #<procedure>
(#t #f #f #f #f #f #f #f #f)#t
(#t #f #f #f #f #f #f #f #f)#f
(#f #t #f #f #f #f #f #f #f)#\a
(#f #f #t #f #f #f #f #f #f)()
(#f #f #f #t #f #f #f #f #f)9739
(#f #f #f #f #t #f #f #f #f)(test)
(#f #f #f #f #f #t #f #f #f)#<procedure>
(#f #f #f #f #f #f #t #f #f)"test"
(#f #f #f #f #f #f #t #f #f)""
(#f #f #f #f #f #f #f #t #f)test
(#f #f #f #f #f #f #f #f #t)#()
(#f #f #f #f #f #f #f #f #t)#(a b c)
SECTION(4 1 2)
(quote (quote a))  ==> (quote a)
(quote (quote a))  ==> (quote a)
SECTION(4 1 3)
(#<procedure> 3 4)  ==> 12
SECTION(4 1 4)
(#<procedure> 4)  ==> 8
(#<procedure> 7 10)  ==> 3
(#<procedure> 6)  ==> 10
(#<procedure> 3 4 5 6)  ==> (3 4 5 6)
(#<procedure> 3 4 5 6)  ==> (5 6)
SECTION(4 1 5)
(if yes)  ==> yes
(if no)  ==> no
(if 1)  ==> 1
SECTION(4 1 6)
(define 3)  ==> 3
(set! 5)  ==> 5
SECTION(4 2 1)
(cond greater)  ==> greater
(cond equal)  ==> equal
(cond 2)  ==> 2
(case composite)  ==> composite
(case consonant)  ==> consonant
(and #t)  ==> #t
(and #f)  ==> #f
(and (f g))  ==> (f g)
(and #t)  ==> #t
(or #t)  ==> #t
(or #t)  ==> #t
(or #f)  ==> #f
(or #f)  ==> #f
(or (b c))  ==> (b c)
SECTION(4 2 2)
(let 6)  ==> 6
(let 35)  ==> 35
(let* 70)  ==> 70
(letrec #t)  ==> #t
(let 5)  ==> 5
(let 34)  ==> 34
(let 6)  ==> 6
(let 34)  ==> 34
(let* 7)  ==> 7
(let* 34)  ==> 34
(let* 8)  ==> 8
(let* 34)  ==> 34
(letrec 9)  ==> 9
(letrec 34)  ==> 34
(letrec 10)  ==> 10
(letrec 34)  ==> 34
SECTION(4 2 3)
(begin 6)  ==> 6
SECTION(4 2 4)
(do #(0 1 2 3 4))  ==> #(0 1 2 3 4)
(do 25)  ==> 25
(let 1)  ==> 1
(let ((6 1 3) (-5 -2)))  ==> ((6 1 3) (-5 -2))
(let -1)  ==> -1
SECTION(4 2 6)
(quasiquote (list 3 4))  ==> (list 3 4)
(quasiquote (list a (quote a)))  ==> (list a (quote a))
(quasiquote (a 3 4 5 6 b))  ==> (a 3 4 5 6 b)
(quasiquote ((foo 7) . cons))  ==> ((foo 7) . cons)
(quasiquote #(10 5 2 4 3 8))  ==> #(10 5 2 4 3 8)
(quasiquote 5)  ==> 5
(quasiquote (a (quasiquote (b (unquote (+ 1 2)) (unquote (foo 4 d)) e)) f))  ==> (a (quasiquote (b (unquote (+ 1 2)) (unquote (foo 4 d)) e)) f)
(quasiquote (a (quasiquote (b (unquote x) (unquote (quote y)) d)) e))  ==> (a (quasiquote (b (unquote x) (unquote (quote y)) d)) e)
(quasiquote (list 3 4))  ==> (list 3 4)
(quasiquote (quasiquote (list (unquote (+ 1 2)) 4)))  ==> (quasiquote (list (unquote (+ 1 2)) 4))
SECTION(5 2 1)
(define 6)  ==> 6
(define 1)  ==> 1
(#<procedure> 6)  ==> (3 6)
(#<procedure> 6)  ==> 9
SECTION(5 2 2)
(#<procedure>)  ==> 5
(define 34)  ==> 34
(#<procedure>)  ==> 5
(define 34)  ==> 34
(#<procedure> 88)  ==> 88
(#<procedure> 4)  ==> 4
(define 34)  ==> 34
(internal-define 99)  ==> 99
(internal-define 77)  ==> 77
SECTION(6 1)
(#<procedure> #t)  ==> #f
(#<procedure> 3)  ==> #f
(#<procedure> (3))  ==> #f
(#<procedure> #f)  ==> #t
(#<procedure> ())  ==> #f
(#<procedure> ())  ==> #f
(#<procedure> nil)  ==> #f
SECTION(6 2)
(#<procedure> a a)  ==> #t
(#<procedure> a b)  ==> #f
(#<procedure> 2 2)  ==> #t
(#<procedure> () ())  ==> #t
(#<procedure> 10000 10000)  ==> #t
(#<procedure> (1 . 2) (1 . 2))  ==> #f
(#<procedure> #<procedure> #<procedure>)  ==> #f
(#<procedure> #f nil)  ==> #f
(#<procedure> #<procedure> #<procedure>)  ==> #t
(#<procedure> #<procedure> #<procedure>)  ==> #t
(#<procedure> #<procedure> #<procedure>)  ==> #f
(#<procedure> #<procedure> #<procedure>)  ==> #f
(#<procedure> a a)  ==> #t
(#<procedure> (a) (a))  ==> #f
(#<procedure> () ())  ==> #t
(#<procedure> #<procedure> #<procedure>)  ==> #t
(#<procedure> (a) (a))  ==> #t
(#<procedure> #() #())  ==> #t
(#<procedure> #<procedure> #<procedure>)  ==> #t
(#<procedure> a a)  ==> #t
(#<procedure> (a) (a))  ==> #t
(#<procedure> (a (b) c) (a (b) c))  ==> #t
(#<procedure> "abc" "abc")  ==> #t
(#<procedure> 2 2)  ==> #t
(#<procedure> #(a a a a a) #(a a a a a))  ==> #t
SECTION(6 3)
(dot (a b c d e))  ==> (a b c d e)
(#<procedure> (a b c))  ==> #t
(set-cdr! (a . 4))  ==> (a . 4)
(#<procedure> (a . 4) (a . 4))  ==> #t
(dot (a b c . d))  ==> (a b c . d)
(#<procedure> (a . 4))  ==> #f
(list? #f)  ==> #f
(#<procedure> a ())  ==> (a)
(#<procedure> (a) (b c d))  ==> ((a) b c d)
(#<procedure> "a" (b c))  ==> ("a" b c)
(#<procedure> a 3)  ==> (a . 3)
(#<procedure> (a b) c)  ==> ((a b) . c)
(#<procedure> (a b c))  ==> a
(#<procedure> ((a) b c d))  ==> (a)
(#<procedure> (1 . 2))  ==> 1
(#<procedure> ((a) b c d))  ==> (b c d)
(#<procedure> (1 . 2))  ==> 2
(#<procedure> a 7 c)  ==> (a 7 c)
(#<procedure>)  ==> ()
(#<procedure> (a b c))  ==> 3
(#<procedure> (a (b) (c d e)))  ==> 3
(#<procedure> ())  ==> 0
(#<procedure> (x) (y))  ==> (x y)
(#<procedure> (a) (b c d))  ==> (a b c d)
(#<procedure> (a (b)) ((c)))  ==> (a (b) (c))
(#<procedure>)  ==> ()
(#<procedure> (a b) (c . d))  ==> (a b c . d)
(#<procedure> () a)  ==> a
(#<procedure> (a b c))  ==> (c b a)
(#<procedure> (a (b c) d (e (f))))  ==> ((e (f)) d (b c) a)
(#<procedure> (a b c d) 2)  ==> c
(#<procedure> a (a b c))  ==> (a b c)
(#<procedure> b (a b c))  ==> (b c)
(#<procedure> a (b c d))  ==> #f
(#<procedure> (a) (b (a) c))  ==> #f
(#<procedure> (a) (b (a) c))  ==> ((a) c)
(#<procedure> 101 (100 101 102))  ==> (101 102)
(#<procedure> a ((a 1) (b 2) (c 3)))  ==> (a 1)
(#<procedure> b ((a 1) (b 2) (c 3)))  ==> (b 2)
(#<procedure> d ((a 1) (b 2) (c 3)))  ==> #f
(#<procedure> (a) (((a)) ((b)) ((c))))  ==> #f
(#<procedure> (a) (((a)) ((b)) ((c))))  ==> ((a))
(#<procedure> 5 ((2 3) (5 7) (11 13)))  ==> (5 7)
SECTION(6 4)
(#<procedure> a)  ==> #t
(standard-case #t)  ==> #t
(standard-case #t)  ==> #t
(#<procedure> flying-fish)  ==> "flying-fish"
(#<procedure> martin)  ==> "martin"
(#<procedure> Malvina)  ==> "Malvina"
(standard-case #t)  ==> #t
(string-set! "cb")  ==> "cb"
(#<procedure> ab)  ==> "ab"
(#<procedure> "ab")  ==> ab
(#<procedure> mississippi mississippi)  ==> #t
(string->symbol #f)  ==> #f
(#<procedure> "jollywog")  ==> jollywog
SECTION(6 5 5)
(#<procedure> 3)  ==> #t
(#<procedure> 3)  ==> #t
(#<procedure> 3)  ==> #t
(#<procedure> 3)  ==> #t
(#<procedure> 3)  ==> #t
(#<procedure> 3)  ==> #t
(#<procedure> 3)  ==> #f
(#<procedure> 22 22 22)  ==> #t
(#<procedure> 22 22)  ==> #t
(#<procedure> 34 34 35)  ==> #f
(#<procedure> 34 35)  ==> #f
(#<procedure> 3 -6246)  ==> #t
(#<procedure> 9 9 -2424)  ==> #f
(#<procedure> 3 -4 -6246)  ==> #t
(#<procedure> 9 9)  ==> #t
(#<procedure> 8 9)  ==> #f
(#<procedure> -1 2 3 4 5 6 7 8)  ==> #t
(#<procedure> -1 2 3 4 4 5 6 7)  ==> #f
(#<procedure> -1 2 3 4 5 6 7 8)  ==> #t
(#<procedure> -1 2 3 4 4 5 6 7)  ==> #t
(#<procedure> 1 3 2)  ==> #f
(#<procedure> 1 3 2)  ==> #f
(#<procedure> 0)  ==> #t
(#<procedure> 1)  ==> #f
(#<procedure> -1)  ==> #f
(#<procedure> -100)  ==> #f
(#<procedure> 4)  ==> #t
(#<procedure> -4)  ==> #f
(#<procedure> 0)  ==> #f
(#<procedure> 4)  ==> #f
(#<procedure> -4)  ==> #t
(#<procedure> 0)  ==> #f
(#<procedure> 3)  ==> #t
(#<procedure> 2)  ==> #f
(#<procedure> -4)  ==> #f
(#<procedure> -1)  ==> #t
(#<procedure> 3)  ==> #f
(#<procedure> 2)  ==> #t
(#<procedure> -4)  ==> #t
(#<procedure> -1)  ==> #f
(#<procedure> 34 5 7 38 6)  ==> 38
(#<procedure> 3 5 5 330 4 -24)  ==> -24
(#<procedure> 3 4)  ==> 7
(#<procedure> 3)  ==> 3
(#<procedure>)  ==> 0
(#<procedure> 4)  ==> 4
(#<procedure>)  ==> 1
(#<procedure> 3 4)  ==> -1
(#<procedure> 3)  ==> -3
(#<procedure> -7)  ==> 7
(#<procedure> 7)  ==> 7
(#<procedure> 0)  ==> 0
(#<procedure> 35 7)  ==> 5
(#<procedure> -35 7)  ==> -5
(#<procedure> 35 -7)  ==> -5
(#<procedure> -35 -7)  ==> 5
(#<procedure> 13 4)  ==> 1
(#<procedure> 13 4)  ==> 1
(#<procedure> -13 4)  ==> 3
(#<procedure> -13 4)  ==> -1
(#<procedure> 13 -4)  ==> -3
(#<procedure> 13 -4)  ==> 1
(#<procedure> -13 -4)  ==> -1
(#<procedure> -13 -4)  ==> -1
(#<procedure> 0 86400)  ==> 0
(#<procedure> 0 -86400)  ==> 0
(#<procedure> 238 9)  ==> #t
(#<procedure> -238 9)  ==> #t
(#<procedure> 238 -9)  ==> #t
(#<procedure> -238 -9)  ==> #t
(#<procedure> 0 4)  ==> 4
(#<procedure> -4 0)  ==> 4
(#<procedure> 32 -36)  ==> 4
(#<procedure>)  ==> 0
(#<procedure> 32 -36)  ==> 288
(#<procedure>)  ==> 1
SECTION(6 5 5)
(#<procedure> "+#.#")  ==> #t
(#<procedure> "-#.#")  ==> #t
(#<procedure> "#.#")  ==> #t
(#<procedure> "1/0")  ==> #t
(#<procedure> "-1/0")  ==> #t
(#<procedure> "0/0")  ==> #t
(#<procedure> "+1/0i")  ==> #t
(#<procedure> "-1/0i")  ==> #t
(#<procedure> "0/0i")  ==> #t
(#<procedure> "0/0-0/0i")  ==> #t
(#<procedure> "1/0-1/0i")  ==> #t
(#<procedure> "-1/0+1/0i")  ==> #t
(#<procedure> "#i")  ==> #t
(#<procedure> "#e")  ==> #t
(#<procedure> "#")  ==> #t
(#<procedure> "#i0/0")  ==> #t
SECTION(6 5 9)
(#<procedure> 0)  ==> "0"
(#<procedure> 100)  ==> "100"
(#<procedure> 256 16)  ==> "100"
(#<procedure> "100")  ==> 100
(#<procedure> "100" 16)  ==> 256
(#<procedure> "")  ==> #f
(#<procedure> ".")  ==> #f
(#<procedure> "d")  ==> #f
(#<procedure> "D")  ==> #f
(#<procedure> "i")  ==> #f
(#<procedure> "I")  ==> #f
(#<procedure> "3i")  ==> #f
(#<procedure> "3I")  ==> #f
(#<procedure> "33i")  ==> #f
(#<procedure> "33I")  ==> #f
(#<procedure> "3.3i")  ==> #f
(#<procedure> "3.3I")  ==> #f
(#<procedure> "-")  ==> #f
(#<procedure> "+")  ==> #f
(string->number #t)  ==> #t
(string->number #t)  ==> #t
SECTION(6 6)
(#<procedure> #\a)  ==> #t
(#<procedure> #\()  ==> #t
(#<procedure> #\space)  ==> #t
(#<procedure> #\newline)  ==> #t
(#<procedure> #\A #\B)  ==> #f
(#<procedure> #\a #\b)  ==> #f
(#<procedure> #\9 #\0)  ==> #f
(#<procedure> #\A #\A)  ==> #t
(#<procedure> #\A #\B)  ==> #t
(#<procedure> #\a #\b)  ==> #t
(#<procedure> #\9 #\0)  ==> #f
(#<procedure> #\A #\A)  ==> #f
(#<procedure> #\A #\B)  ==> #f
(#<procedure> #\a #\b)  ==> #f
(#<procedure> #\9 #\0)  ==> #t
(#<procedure> #\A #\A)  ==> #f
(#<procedure> #\A #\B)  ==> #t
(#<procedure> #\a #\b)  ==> #t
(#<procedure> #\9 #\0)  ==> #f
(#<procedure> #\A #\A)  ==> #t
(#<procedure> #\A #\B)  ==> #f
(#<procedure> #\a #\b)  ==> #f
(#<procedure> #\9 #\0)  ==> #t
(#<procedure> #\A #\A)  ==> #t
(#<procedure> #\A #\B)  ==> #f
(#<procedure> #\a #\B)  ==> #f
(#<procedure> #\A #\b)  ==> #f
(#<procedure> #\a #\b)  ==> #f
(#<procedure> #\9 #\0)  ==> #f
(#<procedure> #\A #\A)  ==> #t
(#<procedure> #\A #\a)  ==> #t
(#<procedure> #\A #\B)  ==> #t
(#<procedure> #\a #\B)  ==> #t
(#<procedure> #\A #\b)  ==> #t
(#<procedure> #\a #\b)  ==> #t
(#<procedure> #\9 #\0)  ==> #f
(#<procedure> #\A #\A)  ==> #f
(#<procedure> #\A #\a)  ==> #f
(#<procedure> #\A #\B)  ==> #f
(#<procedure> #\a #\B)  ==> #f
(#<procedure> #\A #\b)  ==> #f
(#<procedure> #\a #\b)  ==> #f
(#<procedure> #\9 #\0)  ==> #t
(#<procedure> #\A #\A)  ==> #f
(#<procedure> #\A #\a)  ==> #f
(#<procedure> #\A #\B)  ==> #t
(#<procedure> #\a #\B)  ==> #t
(#<procedure> #\A #\b)  ==> #t
(#<procedure> #\a #\b)  ==> #t
(#<procedure> #\9 #\0)  ==> #f
(#<procedure> #\A #\A)  ==> #t
(#<procedure> #\A #\a)  ==> #t
(#<procedure> #\A #\B)  ==> #f
(#<procedure> #\a #\B)  ==> #f
(#<procedure> #\A #\b)  ==> #f
(#<procedure> #\a #\b)  ==> #f
(#<procedure> #\9 #\0)  ==> #t
(#<procedure> #\A #\A)  ==> #t
(#<procedure> #\A #\a)  ==> #t
(#<procedure> #\a)  ==> #t
(#<procedure> #\A)  ==> #t
(#<procedure> #\z)  ==> #t
(#<procedure> #\Z)  ==> #t
(#<procedure> #\0)  ==> #f
(#<procedure> #\9)  ==> #f
(#<procedure> #\space)  ==> #f
(#<procedure> #\;)  ==> #f
(#<procedure> #\a)  ==> #f
(#<procedure> #\A)  ==> #f
(#<procedure> #\z)  ==> #f
(#<procedure> #\Z)  ==> #f
(#<procedure> #\0)  ==> #t
(#<procedure> #\9)  ==> #t
(#<procedure> #\space)  ==> #f
(#<procedure> #\;)  ==> #f
(#<procedure> #\a)  ==> #f
(#<procedure> #\A)  ==> #f
(#<procedure> #\z)  ==> #f
(#<procedure> #\Z)  ==> #f
(#<procedure> #\0)  ==> #f
(#<procedure> #\9)  ==> #f