이승중
가입: 2010년 6월 22일 올린 글: 561
|
올려짐: 2010년9월30일 2:18 주제: 미로검증에 필요한 함수 |
|
|
테스트 하기 쉽게 maze에 대한 함수들을 제공해드립니다.
채점 시에는 데이터 속 구조를 다르게 해서 채점할 예정이므로
속구조에 의존하지 마시기 바랍니다.
반드시 제공된 함수들만을 사용해서 문제를 푸셔야합니다.
또한 숙제 제출시에는 소스에 아래 코드를 포함시키시면 안됩니다.
혹시 구현에 오류사항이 있다면 밑에 답글로 달아주셔서
다른 분들도 알 수 있게 해주세요~
코드: | (define (can-enter room maze)
(list-ref (cdr maze) room))
(define same-room? equal?)
(define empty-set ())
(define add-element cons)
(define (is-member? room roomset)
(cond ((null? roomset) #f)
((equal? room (car roomset)) #t)
(else (is-member? room (cdr roomset)))))
(define (is-subset? rs1 rs2)
(cond ((null? rs1) #t)
((is-member? (car rs1) rs2) (is-subset? (cdr rs1) rs2))
(else #f)))
(define maze1
(cons 4
'((1 4) (0 5) (3 6) (2 7)
(0 5 8) (1 4) (2) (3)
(4 12) (10 13) (9 11 14) (10)
(8 13) (9 12) (10 15) (14))))
(define room1 0)
(define room2 15)
(define room3 7)
(define (maze-check maze start end) ...)
(maze-check maze1 room1 room2)
(maze-check maze1 room2 room3) |
|
|