Объясните, SICP

У тебя много скобок лишних: ((the_largest_num a b c)) ((average a b c))

Вот пример решения.

(define (min first-num second-num)
  (if (< first-num second-num)
      first-num
      second-num))

(define (max first-num second-num)
  (if (> first-num second-num)
      first-num
      second-num))

(define (square num)
  (* num num))

(define (get-sum first-num second-num third-num)
  (+ (square (max first-num second-num))
     (square (max (min first-num second-num) third-num))))

Убрал скобки, все равно пишет ошибку, теперь другую
application: not a procedure; expected a procedure that can be applied to arguments given: 3 arguments...: [none]

Сделал так

#lang racket

(define (square x) (* x x))
(define (sum_of_squares x y) (+ (square x) (square y)))

(define (the_sum_of_the_max_and_aver a b c)
  (cond ((and (> a c) (> b c) (sum_of_squares a b)))
        ((and (> a b) (> c b) (sum_of_squares a c)))
        (else (sum_of_squares b c))
  )
)

Ваше решение мне нравится тоже. Но хочется разобраться в ошибке

С cond напутано.

http://docs.racket-lang.org/reference/if.html

Объясните пожалуйста, не могу английский.

Ты скобки процедур «and» закрываешь не там, где нужно. Это надо было сделать до того, как вызывать следствие.

Короче, надо так:

(cond ((and (> a c) (> b c)) (sum_of_squares a b))
      ((and (> a b) (> c b)) (sum_of_squares a c))
      (else (sum_of_squares b c))
)

Also, можно было использовать процедуру «min».

(cond ((= (min a b c) c) (sum_of_squares a b))
      ((= (min a b c) b) (sum_of_squares a c))
      (else (sum_of_squares b c))
)

Еще можно сложить все и вычесть минимум.

(cond ((and (> a c) (> b c)) (sum_of_squares a b))
      ((and (> a b) (> c b)) (sum_of_squares a c))
      (else (sum_of_squares b c))
)

ошибка, что нет скобок.

Я про свой изначальный пример говорил, в топике. Какая там ошибка

про свой изначальный пример говорил, в топике. Какая там ошибка

Лишние скобки перед cond, if и the_largest_num.

У схемы разве нет встроенного min/max?

(define (a x)
(* x x))
(define (b x y)
(+ (a x) (a y)))
(define (c x y z) 
  (b (max x y) (max (min x y) z)))
(display (c 1 2 3))
13

там и square встроенный тоже есть. Только вот, книжка эта не про язык, а про программирование. похапешнику [your avatar here] видимо не понять этого. Продолжай «рендерить страницы»

там и square встроенный тоже есть.

Да что ты говоришь!

Только вот, книжка эта не про язык, а про программирование.

Да что ты говоришь!

похапешнику [your avatar here] видимо не понять этого. Продолжай «рендерить страницы»

Ну Царь, ну куда нам смертным до тебя. Ты уже свитчи для trie закончил генерировать? :)

Спасибо, поправил, работает.

Вот ведь раскудахтался. Смысла ноль, главное что-то прокукарекать.

Вот ведь раскудахтался. Смысла ноль, главное что-то прокукарекать.

Тесак, ты забыл перелогиниться.

Этого нет в учебнике - этого нет в Scheme.
На самом деле есть, но дальше.

На самом деле есть, но дальше.

Ага, у меня вот с детства хорошая привычка перед началом чтения _любой книги_ знакомиться с предметно-алфавитным указателем чтобы потом не бегать из начала в конец.

[Go to first, previous, next page; contents; index]
M
max (primitive procedure)
...
min (primitive procedure)

товарищи! А с SBCL эту книгу можно? Смысле примеры там будут работать?

Это разные языки. Поставь Guile, он везде есть.

хм. Спасибо.

Почему нет? Зайди на SO и посмотри как иные извращенцы конвертируют примеры из SICP в руби или пистоны. И живут же, значит и ты выживешь.

какая разница, на каком языке ты будешь выполнять примеры? Трудности там могут возникнуть, разве что с каким-нибудь строготипизированным говном. CL вполне подойдет. Главное, чтобы ты понимал код, поэтому схему все равно надо знать в основе, по этой причине, удобней, таки взять именно ее. Но там глубоко знать не надо, там используется очень маленькое подмножество.

И ещё, у тебя average неправильно работает.

Ага, я уже поправил это. Заметил сегодня при тестах.