니젤프림과 나젤큐스

아침에

나젤큐스 — Thu, 27 Nov 2008 00:40:35 GMT

10시간 자고 일어났다.

빗소리가 나는 것 같았다.

기상청에 접속해서 비가 온다는 것을 알았다.

어때?

나젤큐스 — Fri, 07 Nov 2008 09:37:18 GMT

난 간지 '초보' 리스프 프로그래머~

쫌 해커 같음??

----
그러고보니 나... 내가 만든 코드가 너무 아름다워서 스크린샷으로 찍었어;;

tag : LISP

미래도 없고 비전도 없는

나젤큐스 — Fri, 24 Oct 2008 07:52:09 GMT

나는,

담배나 다시 피워야겠다.

TEPR, Minuit Jacuzi (datA remix)

나젤큐스 — Thu, 16 Oct 2008 03:24:04 GMT

좋아. 좋다고.

하지만 Daft Punk 가 제일 좋아.

tag : TEPR

요즘

나젤큐스 — Thu, 02 Oct 2008 03:47:19 GMT

'담배나 다시 피워볼까'

그런 생각이 든다.

SICP, 1.12

나젤큐스 — Tue, 22 Jul 2008 10:50:25 GMT

(define (pascal-triangle row col)
(cond ((< row col) -1)
   ((= col 1) 1)
   ((= col row) 1)
   (else (+ (pascal-triangle (- row 1) col)
       (pascal-triangle (- row 1) (- col 1))))))
;Value: pascal-triangle

(define (pt a b) (pascal-triangle a b))
;Value: pt

(pt 1 1)
;Value: 1

(pt 2 1)
;Value: 1

(pt 2 2)
;Value: 1

(pt 3 1)
;Value: 1

(pt 3 2)
;Value: 2

(pt 3 3)
;Value: 1

(pt 4 2)
;Value: 3

(pt 5 3)
;Value: 6

----

평이했다.
그런데 스킴에서 글자들 위치 정렬해서 출력하는 방법을 모르겠다.

tag : SICP

SICP, 1.11

나젤큐스 — Tue, 22 Jul 2008 10:42:21 GMT

(define (tribo n)
(if (< n 3)
      n
      (+ (tribo (- n 1))
   (* 2 (tribo (- n 2)))
   (* 3 (tribo (- n 3))))))
;Value: tribo

(tribo 20)
;Value: 10771211

(define (tribo2 n)
(define (tribo-iter a b c count)
    (if (= count 0)
   a
   (tribo-iter b
            c
            (+ c (* 2 b) (* 3 a))
            (- count 1))))
(tribo-iter 0 1 2 n))
;Value: tribo2

(tribo 1)
;Value: 1

(tribo 2)
;Value: 2

(tribo 0)
;Value: 0

(tribo 3)
;Value: 4

(tribo 4)
;Value: 11

(tribo2 0)
;Value: 0

(tribo2 1)
;Value: 1

(tribo2 2)
;Value: 2

(tribo2 3)
;Value: 4

(tribo 10)
;Value: 1892

(tribo2 10)
;Value: 1892

(tribo 30)
;Quit!

(tribo 20)
;Value: 10771211

(tribo2 20)
;Value: 10771211

----

생각보다 어려웠다. 역시 리커시브는 오묘해.

tag : SICP

SICP, 1.9

나젤큐스 — Fri, 18 Jul 2008 10:36:03 GMT

(define inc (lambda (n) (+ n 1)))
;Value: inc

(define dec (lambda (n) (- n 1)))
;Value: dec

(define (plus a b)
(if (= a 0)
      b
      (inc (plus (dec a) b))))
;Value: plus

----

(plus a b) 식을 계산하려면 인자 a 가 0이 될 때 까지 계속해서 리커전 해야한다.

----

(define (plus2 a b)
(if (= a 0)
      b
      (plus (dec a) (inc b))))
;Value: plus2

----

그에 반해 (plus2 a b) 식을 계산하는 것은 tail recursion 으로 구현 가능하다.

tag : SICP

the answer.

나젤큐스 — Thu, 17 Jul 2008 07:26:14 GMT

tag : 42, TheAnswer, h2g2, 돈패닉

SICP, 1.8

나젤큐스 — Tue, 15 Jul 2008 10:30:22 GMT

(define (cbrt x)
(cbrt-iter 1.0 x))
;Value: cbrt

(define (cbrt-iter guess x)
(define tolerance 0.00001)
(define (good-enough? guess)
    (< (abs (- (* guess guess guess) x)) tolerance))
(define (improve guess)
    (/ (+ (/ x (* guess guess)) (* 2 guess)) 3))
(if (good-enough? guess)
      guess
      (cbrt-iter (improve guess) x)))
;Value: cbrt-iter

;Value: cbrt-iter

(cbrt 9)
;Value: 2.0800838232385224

(define cube (lambda (x) (* x x x)))
;Value: cube

(cube 9)
;Value: 729

(cube 2)
;Value: 8

(cube (cbrt 9))
;Value: 9.00000000242235

----

한글판 SICP 책에 잘못나온 공식으로 어려운 문제이다. 세제곱근을 구하는 뉴튼메서드의 식은

(/ (+ x (* y y) (* 2 y)) 3)

이 아니라

(/ (+ (/ x (* y y)) (* 2 y)) 3)