SICP по-русски

Сказать, какой смысл определять комплексные числа с действительными и мнимыми частями, не являющимися действительными числами, мне трудно. Тем не менее, легко представить, что в системе существует несколько различных представлений действительных чисел (например, различающихся точностью и объемом требуемой памяти). В таком случае задача имеет смысл.
Я не буду приводить весь код модифицированной системы, а просто укажу какие […]

Определение операции проецирования project похоже на определение операции raise.
Мы также вводим обобщенную операцию:
(define (project x) (apply-generic ‘project x))
и добавляем в пакеты соответствующие строки, реализующие для каждого типа в башне проецирование на предыдущий:
;integer package
;rational package
(define (rational->integer r)
  (make-integer (round (/ (numer r) (denom r)))))
(put ‘project ‘(rational) rational->integer)
;real package
(define (real->rational x)
  (make-rational (numerator x) (denominator x)))
(put ‘project […]

Для простоты я буду рассматривать вариант приведения типов только для бинарных операций, который соответствует рассмотренному в основном тексте книги варианту apply-generic.
Я модифицирую процедуру apply-generic следующим образом: если операции для двух аргументов заданных типов не нашлось, я сравню их типы. Если типы одинаковы, я попытаюсь поднять оба аргумента по башне типов и, если это возможно, выполнить операцию […]

Начнем с обобщенной процедуры raise, которая будет поднимать объект на один уровень в башне типов. Она записывается абсолютно аналогично остальным обобщенным операциям:
(define (raise x) (apply-generic ‘raise x))
Просто. Но для того, чтобы она заработала, необходимо определить конкретные реализации подъема типа в башне для всех типов, кроме последнего, самого верхнего в иерархии. Мне кажется, что помещать соответствующие процедуры […]

Сначала приведем обобщенную реализацию apply-generic, которая реализует приведение типов для операций с любым количеством аргументов, а не только для бинарных операций. При вызове apply-generic для некоторого набора аргументов будем пытаться найти процедуру, работающую с данными типами аргументов. Если же такой процедуры нет в таблице типов, будем последовательно приводить все аргументы к типу первого, затем к […]

Идея Хьюго о добавлении процедур приведения типов к самим себе, скажем так, не слишком светлая.
а. Посмотрим, что происходит при вызове обобщенной процедуры exp, определенной только для обычных чисел, с двумя комплексными параметрами в случае, когда заданы процедуры приведения типов к себе, предложенные Хьюго. Сначала exp вызовет apply-generic для операции exp и двух комплексных чисел. apply-generic […]

Это упражнение аналогично предыдущему, поэтому буду краток, но остановлюсь на интересных деталях.
Обобщенная процедура =zero? определяется следующим типичным образом:
(define (=zero? x) (apply-generic ‘=zero? x))

В пакет для работы с обычными числами добавляем строки:
(define (=zero? x) (= x 0))
(put ‘=zero? ‘(scheme-number) =zero?)
В пакет рациональных чисел добавляем:
(define (=zero? x) (= (numer x) 0))
(put ‘=zero? ‘(rational) =zero?)
В пакет комплексных чисел […]

Первым делом, определим саму обобщенную операцию проверки эквивалентности equ?. Мы еще не определяли обобщенных операций, являющихся предикатами. Но никаких сложностей с этим не возникает, ведь предикат - это всего лишь частный случай обыкновенной процедуры, который возвращает булево значение (истина или ложь). Таким образом определяется обобщенный предикат так же, как любая обобщенная операция:
(define (equ? x y) […]

Итак, мы хотим, чтобы внутреннее представление обычных чисел в нашей обобщенной системе совпадало со внутренним представлением чисел в Scheme. С числами в таком представлении работать удобнее, так как они выглядят естественнее.
Если мы вспомним, что процедуры attach-tag, type-tag и contents соответственно помечают данные типом, определяют тип данных и получают непомеченные данные из помеченных, то сразу же […]

Объект z, с которым мы работаем в этом упражнении и для которого мы хотим вычислить модуль (magnitude), - это дважды помеченная пара, представляющая собой комплексное число в декартовой форме. Он состоит из метки complex, за которой следует метка rectangular, а уже затем идет представление числа.
Процедура magnitude задана в разделе 2.4.3 и выглядит следующим образом:
(define (magnitude z) (apply-generic ‘magnitude z))
Когда мы […]