[박선비]

테스트셋 공유합니다


(* hw2-1 *)
> (zipper '() '())
'()
> (zipper '() '(1 2 3 4))
'(1 2 3 4)
> (zipper '(1 2 3) '())
'(1 2 3)
> (zipper '() '(1))
'(1)
> (zipper '(1) '())
'(1)
> (zipper '(1 3 5 7 9) '(2 4 6 8 0))
'(1 2 3 4 5 6 7 8 9 0)
> (zipper '(1 3 5 7 9) '(2 4 6 9))
'(1 2 3 4 5 6 7 9 9)
> (zipper '(1 3 5 7 9) '(2 4))
'(1 2 3 4 5 7 9)
> (zipper '(1) '(2 3 4 5 6 7 9))
'(1 2 3 4 5 6 7 9)
> (zipper '(1 1 1 1 1) '(1 1 1 1 1 1 1 1 1))
'(1 1 1 1 1 1 1 1 1 1 1 1 1 1)
> (zipper '(0) '(1 1))
'(0 1 1)



(* hw2-2 *)
> (zipperN '((1 6 4) (7 9) (3)))
'(1 7 3 6 9 4)
> (zipperN '((2 3)(1 6 4) (7 9)))
'(2 1 7 3 6 9 4)
> (zipperN '((2 3)()(7 9)))
'(2 7 3 9)
> (zipperN '(()(1 6 4)(7 9)))
'(1 7 6 9 4)
> (zipperN '((2 3)(1 6 4)()))
'(2 1 3 6 4)
> (zipperN '((2 3)()()))
'(2 3)
> (zipperN '(()(1 6 4)()))
'(1 6 4)
> (zipperN '((2)(1 6 9 4)(7)))
'(2 1 7 6 9 4)
> (zipperN '((2 3)(1)(7 9 4 6)))
'(2 1 7 3 9 4 6)
> (zipperN '((2 3)(1 6 4)(7 9 5)))
'(2 1 7 3 6 9 4 5)
> (zipperN (list (list 1 2 3) (list 5 6 7) (list )))
'(1 5 2 6 3 7)
> (zipperN (list (list 1 2 3) (list 5 6 7) (list 0)))
'(1 5 0 2 6 3 7)
> (zipperN (list (list 0 1 1 2)))
'(0 1 1 2)
> (zipperN '((1 2 3) (4 5 6)))
'(1 4 2 5 3 6)
> (zipperN '((1 2 3) (4 5) (6 7 8 9)))
'(1 4 6 2 5 7 3 8 9)
> (zipperN '((1 2 3) () (6 7 8 9 0)))
'(1 6 2 7 3 8 9 0)
> (zipperN '((1 2 3) () (6 7 8 9 0) () () ()))
'(1 6 2 7 3 8 9 0)
> (zipperN '(() (1 2 3) () (6 7 8 9 0) () () ()))
'(1 6 2 7 3 8 9 0)
> (zipperN '((1 2 3) (4) (9 10 11)))
'(1 4 9 2 10 3 11)
> (zipperN '((1) (4) (9 10 11 5 6 6 7 9)))
'(1 4 9 10 11 5 6 6 7 9)
> (zipperN '((1) (4) (9 10 11 5 6 6 7 9) (a b c)))
'(1 4 9 a 10 b 11 c 5 6 6 7 9)
> (zipperN '(()))
'()
> (zipperN '(() () ()))
'()
> (zipperN '(() () () (1 2 3) () () (0 1 1 1 1 9)))
'(1 0 2 1 3 1 1 1 9)
> (zipperN '((1)))
'(1)
> (zipperN '((1) (9) (4) (4 3)))
'(1 9 4 4 3)
> (zipperN '((1 2 3 4 5 6 7) (9 8 7 6 5) (0 0 0 4) (4 3)))
'(1 9 0 4 2 8 0 3 3 7 0 4 6 4 5 5 6 7)



(* hw2-3 *)
> ((iter 5 (lambda (x) (* (+ 2 x) x))) 1)
4294967295
> ((iter 3 (lambda (x) (* (+ 2 x) x))) 1)
255
> ((iter 3 (lambda (x) (* (+ 2 x) x))) 4)
390624
> ((iter (- 4) (lambda (x) (* (+ 2 x) x))) 4)
152587890624
> ((iter 5 (lambda (x) (* (+ 2 x) x))) 0)
0
> ((iter 5 (lambda (x) (+ 2 x))) 0)
10
> ((iter 5 (lambda (x) (+ 2 x))) ((iter 5 (lambda (x) (+ 2 x))) 0))
20
> ((iter 5 (lambda (x) (* 2 x))) ((iter 5 (lambda (x) (+ 2 x))) 0))
320
> ((iter 5 (lambda (x) (* 2 x))) ((iter 5 (lambda (x) (+ 2 x))) 1))
352
> ((iter 5 (lambda (x) (* 2 x))) ((iter (- 3) (lambda (x) (+ 2 x))) 1))
224
> ((iter 0 (lambda (x) (* 2 x))) ((iter 5 (lambda (x) (+ 2 x))) 0))
10
> ((iter 0 (lambda (x) (* 2 x))) ((iter 0 (lambda (x) (+ 2 x))) 100))
100
((iter 5 (lambda (x) (+ (/ 1 x) x))) 1)
3 150911/272890
> ((iter 10 (lambda (x) (+ (/ 1.0 x) x))) 1.0)
4.7887081163796905
> ((iter (- 15) (lambda (x) (+ (/ 1.0 x) x))) 1.0)
5.754908962142979
> ((iter 20 (lambda (x) (+ (/ 1.0 x) x))) 1.0)
6.576798676981813
> ((iter 100 (lambda (x) (+ (/ 1.0 x) x))) 1.0)
14.284064040284603
> ((iter 1000 (lambda (x) (+ (/ 1.0 x) x))) 1.0)
44.77921602915353


(Special thanks to 정광수)

[김원재]

동일하네요 감사합니다

[남형걸]

동일하네요 감사합니다 ㅎㅎㅎ

참고로 이거 어떻게 편하게 써먹냐면

전체를 ctrl+c 하고 실행탭에 ctrl+v해서 돌리면

파란색 글씨로 아래처럼 쭈욱 뜨는데 위아래 출력값이 동일하면 글쓴이와 동일하게 나온겁니다.

#<procedure:>>
'(1 6 2 7 3 8 9 0)
'(1 6 2 7 3 8 9 0)
#<procedure:>>
'(1 4 9 2 10 3 11)
'(1 4 9 2 10 3 11)
#<procedure:>>
'(1 4 9 10 11 5 6 6 7 9)
'(1 4 9 10 11 5 6 6 7 9)