Comments for SICP по-русски

Comment on Решение упражнения 1.12 из SICP by Anonymous

Anonymous — Sun, 21 Feb 2010 08:24:44 +0000

(define (f x y)
        (cond ((or (> y x) (< y 1)) 0)
              ((or (= x 1) (= y 1)) 1)
        (else (+ (f (- x 1) (- y 1)) (f (- x 1) y))))

Comment on Решение упражнения 2.39 из SICP by магомед

магомед — Mon, 15 Feb 2010 15:08:59 +0000

вот втором случае можно также сделать
(define (my-left-reverse sequence)
(fold-left (lambda (x y) (append (list y ) x)) nil sequence))

Comment on SICP или Азбука для настоящих программистов by bobry

bobry — Sun, 07 Feb 2010 14:58:43 +0000

очень жаль, что даже в северной столице найти книгу практически невозможно
а сайт московского издательства уже достаточно давно не работает

Comment on Решение упражнения 1.12 из SICP by синдикат

синдикат — Thu, 21 Jan 2010 15:12:05 +0000

(define (paskal row col) (if (or (= col 1) (= row col)) 1 (+ (paskal (- row 1) col) (paskal (- row 1) (- col 1)))))
Принципиально не отличается (=

Comment on Решение упражнения 1.11 из SICP by синдикат

синдикат — Thu, 21 Jan 2010 13:51:45 +0000

Роман Жуков правильно заметил насчёт отрицательных, поэтому моя программа получилась так:

(define (fib3 n) (if (< n 3) n (fib3-iter 2 1 0 n)))

(define (fib3-iter a b c count) (if (= count 0) c (fib3-iter (+ a b c) a b (- count 1))))

Comment on Решение упражнения 1.37 из SICP by smersh

smersh — Sat, 09 Jan 2010 18:45:01 +0000

У меня получилось 12, с таким вот кодом:
(define (cont-frac Ni Di k) (define (proc count) (/ (Ni count) (+ (Di count) (if (= count k) 1 (proc (+ count 1)))))) (proc 1))


(define (fixed-point f first-guess tolerance)

  (define (close-enough? v1 v2)

    (< (abs (- v1 v2)) tolerance))

  (define (try prev count)

    (let ((next (f count)))

         (if (close-enough? prev next)

             count

             (try next (+ count 1)))))

  (try first-guess 1))
(define (c-f-c k)

  (/ 1 (cont-frac (lambda (i) 1.0)

                  (lambda (i) 1.0)

                  k)))

(fixed-point c-f-c 1 0.00005) 12

Comment on Решение упражнения 1.18 из SICP by JessicaFletcher

JessicaFletcher — Wed, 06 Jan 2010 05:06:36 +0000

(define (* a b)
  (cond (= b 0) a
        (even? b) (* (+ a b) (- b 1))
        (else (* (double a) (half b)))))
        
(define (even? b)
  (if (= b 1) true
      false))

Comment on Решение упражнения 1.22 из SICP by smersh

smersh — Wed, 30 Dec 2009 17:21:19 +0000

2Johnny нужно установить новый язык SICP (установка работает только с последней версией drscheme!). Там рантайм уже есть в стандартной библиотеке.
http://www.neilvandyke.org/sicp-plt/

Comment on Решение упражнения 1.13 из SICP by sindikat

sindikat — Thu, 17 Dec 2009 12:14:10 +0000

Вот как решил эту задачу я. Скажите, правильно ли это?

Сначала доказал, что (φ^n - ψ^n) / √5 равен 0 при n=0 и равен 1 при n=1.

Затем вывел такую формулу:

(φ^n - ψ^n) / √5 = (φ^n-1 - ψ^n-1) / √5 + (φ^n-2 - ψ^n-2) / √5 — по определению функции Фибоначчи.

Перенёс правую часть уравнения влево, извлёк общие множители:

(φ^n - ψ^n - φ^n-1 + ψ^n-1 - φ^n-2 + ψ^n-2) / √5 = (φ^n-2 * (φ^2 - φ - 1) - ψ^n-2 * (ψ^2 - ψ - 1)) / √5 = 0

Осталось вычислить (φ^2 - φ - 1) и (ψ^2 - ψ - 1), которые оказались равны нулю.

(φ^n-2 * 0 - ψ^n-2 * 0) / √5 = 0 — тождество.

ЧТД

Comment on Решение упражнения 1.3 из SICP by синдикат

синдикат — Tue, 15 Dec 2009 15:08:39 +0000

Сначала написал на Си, потом перевёл на Лисп. Косность мышления сказалась (=

(define (square x) (* x x))

(define (sqsum2 x y z)
  (if (> x y)
      (if (> y z)
          (+ (square x) (square y))
          (+ (square x) (square z)))
      (if (> x z)
          (+ (square x) (square y))
          (+ (square y) (square z)))))