You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
31 lines
1.1 KiB
Racket
31 lines
1.1 KiB
Racket
9 years ago
|
#lang racket/base
|
||
|
|
|
||
|
|
(require br/ragg/examples/01-equal
|
||
|
|
rackunit)
|
||
|
|
|
||
|
|
(check-equal? (syntax->datum (parse ""))
|
||
|
|
'(equal))
|
||
|
|
(check-equal? (syntax->datum (parse "01"))
|
||
|
|
'(equal (zero (equal) #\0)
|
||
|
|
(one (equal) #\1)))
|
||
|
|
(check-equal? (syntax->datum (parse "10"))
|
||
|
|
'(equal (one (equal) #\1)
|
||
|
|
(zero (equal) #\0)))
|
||
|
|
(check-equal? (syntax->datum (parse "0011"))
|
||
|
|
'(equal (zero (equal) #\0)
|
||
|
|
(one (equal (zero (equal) #\0)
|
||
|
|
(one (equal) #\1))
|
||
|
|
#\1)))
|
||
|
|
(check-equal? (syntax->datum (parse "0110"))
|
||
|
|
'(equal (one (equal (zero (equal) #\0)
|
||
|
|
(one (equal) #\1))
|
||
|
|
#\1)
|
||
|
|
(zero (equal) #\0)))
|
||
|
|
|
||
|
|
(check-equal? (syntax->datum (parse "1100"))
|
||
|
|
'(equal (one (equal) #\1)
|
||
|
|
(zero (equal (one (equal) #\1)
|
||
|
|
(zero (equal) #\0))
|
||
|
|
#\0)))
|
||
|
|
|