Решение упражнения 1.1 из SICP

13 August, 2007 (20:22) | Решения упражнений

Что ж, приступим к решению упражнений. Первое упражнение несложное.

> 10 
10 

> (+ 5 3 4) 
12 

> (- 9 1) 
8 

> (/ 6 2) 
3 

> (+ (* 2 4) (- 4 6)) 
6 

> (define a 3) 

> (define b (+ a 1)) 

> (+ a b (* a b)) 
19 

> (= a b) 
#f 

> (if (and (> b a) (< b (* a b))) 
      b 
      a) 
4 

> (cond ((= a 4) 6) 
        ((= b 4) (+ 6 7 a)) 
        (else 25)) 
16 

> (+ 2 (if (> b a) b a)) 
6 

> (* (cond ((> a b) a) 
           ((< a b) b) 
           (else -1)) 
     (+ a 1)) 
16

Вывод вызовов define не определен. Я проверил, что получится в DrScheme. У меня какой-либо вывод для них отсутствует.

Comments

Comment from Abra-kadabr
Date: January 14, 2016, 9:25 am

если кто надумает изучать эту книгу. что-бы упражнения и примеры выполнялись как там в DrRacket выбираем вменю язык самый верхний “The Racket Lenguage” и верхнюю строчку в файле заменяем на #lang planet neil/sicp
дальше ракет сам скачает с нета нужные файлы и всё установит.

Write a comment