a
отсортировать, взять кар и кадр
Size: a a a
2021 March 04
TT
найти максимум, ремувнуть, найти максимум от того что осталось)))))
каааааааааааааааааааааааак, я понимаю что надо потом сделать ремов по значению элемента, нор как
TT
дайте нормальный курс по схеме, пожаааааааааааааааааааааааааааааааалуйста)
a
это вопрос не по схеме, кмк
TT
anton
это вопрос не по схеме, кмк
как ремовнуть элемент листа по его значению
TT
anton
это вопрос не по схеме, кмк
и так-то вопрос про курс по схеме касается схемы
ND
(delete val lst)
a
а, ну это референс нужно, r5rs например
TT
(delete val lst)оу)
a
(cond (and (> acc2 v) (< acc2 acc)))так?
идея была поместить в acc не число, а список из двух чисел, максимального и предыдущего максимального
ND
идея с сортировкой мне нравится больше
a
но сортировка это n log n, а тут просто n
TT
#lang racket
(require srfi/1)
(define (max lst)
(fold (lambda (acc v acc2) ((if (> v acc) v acc)) 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)
что за бред?
fold: arity mismatch;
the expected number of arguments does not match the given number
expected: at least 3
given: 1
arguments...:
#<procedure>
TT
идея с сортировкой мне нравится больше
но через delete понятней
ND
ну не обязательно
ND
(cadr (sort lst >)) тоже вполне себеTT
#lang racket
(require srfi/1)
(define (max lst)
(fold (lambda (acc v acc2) ((if (> v acc) v acc)) 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)
что за бред?
fold: arity mismatch;
the expected number of arguments does not match the given number
expected: at least 3
given: 1
arguments...:
#<procedure>
помогите пожалуйста
a
помойму там чет со скобками