ND
скобки лишние
Size: a a a
2021 March 04
TT
спасибо, попробую исправить
ND
в sum-of-squares-of-top-two
ND
ты пытаешься вызвать то что вернёт плюс как процедуру
TT
ты пытаешься вызвать то что вернёт плюс как процедуру
сумму квадратов максимальных значений списка
ND
не ты не понел
ND
там скобки вокруг плюса не нужны
TT
там скобки вокруг плюса не нужны
не помогло
ND
Вокруг ифа вроде тоже лишние
2021 March 05
a
(define (max lst)
(fold (lambda (acc v) (if (> v acc) v acc)) 0 lst))
(fold (lambda (acc v)
(if (> v (car acc))
(list v (car acc))
(if (> v (cadr acc))
(list (car acc) v)
acc)))
'(0 0)
lst)y
как найти второй по максимальности элемент?
В списке или как-то еще? Просто в SICP в упражнении 1.3 говорится что функция принимает просто 3 числа, а в хекслете вроде на основе SICP курс. Если только три числа надо, то:
(max (min a b) (min b c) (min a c)) должно сработать.a
ты разбираешься в железках? Эта Alonzo Standard Version - 30 долларов, стоит этих денег?
ND
хз, обычная борда на стм вроде
ND
я интересующийся, сильно не разбираюсь
T
На обычную STM слишком похожа. Надо смотреть в кишки компилятору.
TT
anton
(fold (lambda (acc v)
(if (> v (car acc))
(list v (car acc))
(if (> v (cadr acc))
(list (car acc) v)
acc)))
'(0 0)
lst)#lang racket
(require srfi/1)
(define (max lst)
(fold (lambda (acc v)
(if (> v (car acc))
(list v (car acc))
(if (> v (cadr acc))
(list (car acc) v)
acc)))
'(0 0)
lst))
(define lst (list first second third))
(define (sum-of-squares-of-top-two first second third) (+ (sqr (max lst)) (sqr (max (delete (max lst) lst)))))
(sum-of-squares-of-top-two 2 3 1)
Ошибка:
car: contract violation
expected: pair?
given: #<procedure:car>
a
#lang racket
(require srfi/1)
(define (max lst)
(fold (lambda (acc v)
(if (> v (car acc))
(list v (car acc))
(if (> v (cadr acc))
(list (car acc) v)
acc)))
'(0 0)
lst))
(define lst (list first second third))
(define (sum-of-squares-of-top-two first second third) (+ (sqr (max lst)) (sqr (max (delete (max lst) lst)))))
(sum-of-squares-of-top-two 2 3 1)
Ошибка:
car: contract violation
expected: pair?
given: #<procedure:car>
не, код, который я привёл возвращает список из двух чисел, максимального, и следующего по максимальности
TT
anton
не, код, который я привёл возвращает список из двух чисел, максимального, и следующего по максимальности
а
a
просто сделай
(apply + (map sqr (max lst))), наверное