김예성
가입: 2010년 9월 3일
올린 글: 8
|
 올려짐: 2010년10월8일 22:50 주제: 3-4 간단한 테스트 셋입니다. |
 |
|
3-4 간단한 테스트 셋을 만들어 보았습니다.
너무 트리비얼한 형태라서 죄송할 따름입니다.
숙제 마감 시간이 다가오네요 마무리 잘하세요 -
소스 마지막 (in으로 끝나겠죠?)에 다음을 붙여주세요 -
| 코드: |
let testtree :=
(
makeTree(456,
makeLtree
(188,
makeTree
(77,
makeLtree
(12,
makeTree
(100,
makeLtree(10, leaf(1))
,
makeRtree(20, leaf(2))
)
),
makeRtree(15, makeRtree(5, leaf(3)))
)
)
,
makeRtree
(64,
makeTree
(23,
makeTree(15, leaf(13), makeLtree(48, leaf(66))),
leaf(345)
)
)
)
)
in
let proc printbool(b) =
(
if (b) then write(11111)
else write(22222)
)
in
(
bft(testtree); dft(testtree); printbool(isEmpty(lTree(rTree(rTree(testtree))))); printbool(isEmpty(rTree(lTree(testtree)))); write(nodeVal(testtree))
)
|
[제 실행 결과]
| 코드: |
456
188
64
77
23
12
15
15
345
100
5
13
48
10
20
3
66
1
2
456
188
77
12
100
10
1
20
2
15
5
3
64
23
15
13
48
66
345
22222
11111
456
|
|
|
FAQ
검색
멤버리스트
사용자 그룹
사용자 등록하기
개인 정보
비공개 메시지를 확인하려면 로그인하십시오
로그인
