[김태훈]

과제1은 작년과 동일하다기에 혹여 도움이 될까 하여 작년 게시판을 찾다가 발견한 자료입니다..

작년에 이 글을 올리셨던 선배님께 감사드리며...

혹 이 테스트셋으로 커버되지 않는 경우가 있다면 서로 공유하면 좋겠죠? ㅎㅎ 저도 혹시 알게 되면 올릴게요 ㅎㅎ

-------------------------------------------------------------------------

도우며 삽시다



######## zipper test ########

> (zipper () ())
()

> (zipper (list 1 2 3) ())
(1 2 3)

> (zipper () (list 1 2 3 4))
(1 2 3 4)

> (zipper (list 1 2 3 4) (list 5 6 7 8))
(1 5 2 6 3 7 4 8)

> (zipper (list (list 1 2 3) (list 7 8 9)) (list (list 4 5 6) (list 10 11 12)))
((1 2 3) (4 5 6) (7 8 9) (10 11 12))

> (zipper (list (list 1 2 3) () (list 7 8 9)) (list () (list 4 5 6) () (list 10 11 2)))
((1 2 3) () () (4 5 6) (7 8 9) () (10 11 2))



######## zipperN test ########

> (zipperN (list (list 1 3 5 7) (list 2 4 6) (list 0 0)))
(1 2 0 3 4 0 5 6 7)

> (zipperN (list () (list 1 3 5 7) () (list 2 4 6) (list 0 0) ()))
(1 2 0 3 4 0 5 6 7)

> (zipperN (list (list 1 10 100 1000 10000) (list 2 4 8 16 32 64 128 256 512 1024 2048 4096) (list 3 6 9 12 15 18) (list 5 25 125 625) () (list 'a 'b 'c)))
(1 2 3 5 a 10 4 6 25 b 100 8 9 125 c 1000 16 12 625 10000 32 15 64 18 128 256 512 1024 2048 4096)

> (zipperN (list (list 1 2 3 4 5 6 7 8) () () (list 100 200 300) (list 1000 2000 3000)))
(1 100 1000 2 200 2000 3 300 3000 4 5 6 7 8)

> (zipperN (list (list 1 9) (list 2) (list 3) (list 4) (list 5) () (list 6) (list 7) (list 8) () ()))
(1 2 3 4 5 6 7 8 9)

> (zipperN (list (list (list 1 2) (list 9 10)) (list (list 3 4) (list 11 12)) (list (list 5 6) (list 13 14)) (list 7 8)))
((1 2) (3 4) (5 6) 7 (9 10) (11 12) (13 14) 8)




######## iter test ########

> (let ((eight (iter 3 (lambda (x) (* x x))))) (eight 3))
6561

> (let ((eight (iter 3 (lambda (x) (* x x))))) (eight 2))
256

> (let ((div-by-16 (iter 4 (lambda (x) (/ x 2))))) (div-by-16 256))
16

> (let ((div-by-16 (iter 4 (lambda (x) (/ x 2))))) (div-by-16 1024))
64

> (let ((id-test (iter 0 (lambda (x) (* x x))))) (id-test 'abc))
abc

> (let ((id-test (iter 1 (lambda (x) (* x x))))) (id-test 'abc))
. *: expects type <number> as 1st argument, given: abc; other arguments were: abc

> (let ((cd4r (iter 4 cdr))) (cd4r (list 1 2 3 4 5 6 7 8 9 10)))
(5 6 7 8 9 10)

> (let ((ca3r (iter 3 car))) (ca3r (list (list (list (list 1 2 3) (list 4 5 6)) (list 1 2 3)) (list 10 20 30))))
(1 2 3)

> (let ((lllist (iter 3 list))) (lllist (list 1 2 3)))
((((1 2 3))))




######## fold test ########

> (flatten (list (list (list (list (list 1 2) (list 3 4 5)) (list 6 7) (list (list (list 8 9 10))) (list 11 12) () () (list 13 14 15))) (list (list 16 17 18) (list 19 20)) 21 22 23 24))
(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24)

> (flatten (list () () () () (list (list () ()) () ()) () (list ())))
()

> (foldsum (list (list (list (list (list 1 2) (list 3 4 5)) (list 6 7) (list (list (list 8 9 10))) (list 11 12) () () (list 13 14 15))) (list (list 16 17 18) (list 19 20)) 21 22 23 24))
300

> (foldsum (list () () () () (list (list () ()) () ()) () (list ())))
0



######## crazy2val test ########

> (crazy2val (list 'n))
-1

> (crazy2val (list 'p))
1

> (crazy2val (list 'z))
0

> (crazy2val (list 'n 'n))
-3

> (crazy2val (list 'z 'z))
0

> (crazy2val (list 'z 'n))
-2

> (crazy2val (list 'p 'n))
-1

> (crazy2val (list 'p 'z))
1

> (crazy2val (list 'p 'p))
3

> (crazy2val (list 'p 'p 'z))
3

> (crazy2val (list 'p 'p 'p))
7

> (crazy2val (list 'p 'p 'n))
-1

> (crazy2val (list 'p 'n 'p))
3

> (crazy2val (list 'p 'n 'z 'p 'n 'z 'p 'p 'n 'p 'n))
-585



######## crazy2add test ########

> (crazy2add (list 'p 'n 'z 'p 'n 'z 'p 'p 'n 'p 'n) (list 'p 'p 'n 'n 'p 'z 'p 'p 'n 'p 'z 'p 'n))
(z p n z z z z p n z z p n)

> (+ (crazy2val (list 'p 'n 'z 'p 'n 'z 'p 'p 'n 'p 'n)) (crazy2val (list 'p 'p 'n 'n 'p 'z 'p 'p 'n 'p 'z 'p 'n)))
-2178

> (crazy2val (list 'z 'p 'n 'z 'z 'z 'z 'p 'n 'z 'z 'p 'n))
-2178

> (crazy2add (list 'p 'p 'p) (list 'n 'n 'n))
(z z z)

> (crazy2add (list 'p 'p 'p) (list 'p))
(z z z p)

> (crazy2add (list 'p 'p 'p) (list 'z))
(p p p)



######## crazy2sub test ########

> (crazy2sub (list 'p 'n 'z 'p 'n 'z 'p 'p 'n 'p 'n) (list 'p 'p 'n 'n 'p 'z 'p 'p 'n 'p 'z 'p 'n))
(z z z z n z z z z z n n p)

> (- (crazy2val (list 'p 'n 'z 'p 'n 'z 'p 'p 'n 'p 'n)) (crazy2val (list 'p 'p 'n 'n 'p 'z 'p 'p 'n 'p 'z 'p 'n)))
1008

> (crazy2val (list 'z 'z 'z 'z 'n 'z 'z 'z 'z 'z 'n 'n 'p))
1008

> (crazy2sub (list 'p 'p 'p 'p 'p 'p 'p 'p) (list 'p 'p 'p 'p 'p 'p 'p 'p 'p 'p 'p 'p))
(z z z z z z z z n n n n)

> (- (crazy2val (list 'p 'p 'p 'p 'p 'p 'p 'p)) (crazy2val (list 'p 'p 'p 'p 'p 'p 'p 'p 'p 'p 'p 'p)))
-3840

> (crazy2val (list 'z 'z 'z 'z 'z 'z 'z 'z 'n 'n 'n 'n))
-3840

> (crazy2sub (list 'p 'p 'p) (list 'p 'p 'p))
(z z z)

> (crazy2sub (list 'n 'n 'n) (list 'n 'n 'n))
(z z z)

> (crazy2sub (list 'n 'z 'z 'p) (list 'p))
(z n z p)

[노준혁]

와우 감사합니다~ ㅋㅋ

[명경백]

감사합니다.

[안현주]

감사합니당~

[최영진09]

이은혜를..

[이종민]

우와 감사합니다!