강동옥
가입: 2009년 9월 18일 올린 글: 602
|
올려짐: 2013년9월11일 14:55 주제: 숙제1 테스트케이스 몇가지 |
|
|
OCaml에 익숙하시지 않은 분들을 위하여 조교팀에서 숙제 테스트케이스를 하나씩 올려드립니다. 각각이 잘 돌아가는 코드를 내주세요.
여러분이 참여한 만큼 함께 배웁니다.
서로 테스트케이스를 만들고 게시판에 공유해주세요
1.
[Test]
코드: | sigma (1, 10, fun x -> x) |
[Value]
2.
[Test]
코드: | eval (LESS (NUM 3, NUM 5)) |
[Value]
3.
[Test]
코드: | natadd (ZERO, (SUCC (SUCC ZERO))) |
[Value]
4.
[Test]
코드: | checkMetro (AREA ("a", CONNECT (AREA ("b", STATION "a"), AREA("c", STATION "b")))) |
[Value]
5.
[Test]
코드: | let t2 = insert (1, insert (10, insert(30,EMPTY))) in
let t3 = insert (25, insert (34, insert(9, insert (11,EMPTY)))) in
let t5 = merge (t2,t3) in
(findMin t5,findMin (deleteMin t5)) (* 1,9 *) |
[Value]
 |
|