장민석
가입: 2006년 9월 5일 올린 글: 165
|
올려짐: 2007년4월25일 5:53 주제: 2-2 가벼운 테스트 셋 |
|
|
코드: | (myMatch '(1 0 0 1) (dot (plus (dot (atom 1) (atom 0))) (atom 1)))
(myMatch '(1 0 1 1) (dot (plus (dot (atom 1) (atom 0))) (atom 1)))
(myMatch '(1 0 1 0 1 0 1) (dot (plus (dot (atom 1) (atom 0))) (atom 1)))
(myMatch '(1 0 0 1) (dot (dot (atom 1) (plus (atom 0))) (atom 1)))
(myMatch '(1 0 0 0 1) (dot (dot (atom 1) (plus (atom 0))) (atom 1)))
(myMatch '(1 0 0 1 0) (dot (dot (atom 1) (plus (atom 0))) (atom 1)))
(myMatch '(1 9 4 9 4 1 0) (dot (bar (plus (bar (dot (atom 9) (atom 4)) (atom 1))) (atom 7)) (atom 0)))
(myMatch '(9 4 1 9 4 1 7 0) (dot (bar (plus (bar (dot (atom 9) (atom 4)) (atom 1))) (atom 7)) (atom 0)))
(myMatch '(7 0) (dot (bar (plus (bar (dot (atom 9) (atom 4)) (atom 1))) (atom 7)) (atom 0)))
(myMatch '(1 7 0) (dot (bar (plus (bar (dot (atom 9) (atom 4)) (atom 1))) (atom 7)) (atom 0)))
(myMatch '(1 1 7 1 9 4 7 0) (dot (bar (plus (bar (dot (atom 9) (atom 4)) (atom 1))) (atom 7)) (atom 0)))
(myMatch '(1 2 3 1 3 3 2 1) (plus (bar (bar (atom 1) (atom 2)) (atom 3))))
(myMatch '(1 3 3 1 3 3 2 2) (plus (bar (bar (atom 1) (atom 2)) (atom 3))))
(myMatch '(3 1 1 1 3 1 2 1) (plus (bar (bar (atom 1) (atom 2)) (atom 3))))
(myMatch '(2 2 1 2 3 2 2 2) (plus (bar (bar (atom 1) (atom 2)) (atom 3))))
(myMatch '(3 3 3 3 3 3 3 3) (plus (bar (bar (atom 1) (atom 2)) (atom 3))))
(myMatch '(1 2 3 1 3 3 2 2) (plus (bar (bar (atom 1) (atom 2)) (atom 3))))
(myMatch '(1 2 4 1 3 3 2 1) (plus (bar (bar (atom 1) (atom 2)) (atom 3))))
(myMatch '(1 2 3 1 0 1 1 2) (plus (bar (bar (atom 1) (atom 2)) (atom 3)))) |
결과입니다.
코드: | #f
#f
#t
#t
#t
#f
#t
#f
#t
#f
#f
#t
#t
#t
#t
#t
#t
#f
#f |
|
|