Мова SCHEME

[dcPuFic]

Кто-то шарит в Scheme?
А то помощь нужна,а в инете информации не найти(

[netrino]

Как это не найти? А Вы искали? Гугл выдаёт кучу ссылок как на русском, так и на английском языках. Из популярного: SICP, HtDP (лучше второго издания, но там не совсем Scheme и не совсем о Scheme)

[dcPuFic]

То что мне нужно,я не могу найти.
У меня задание:
найти суму двух наименьших за значением елементов вектора ,в диапазоне(-17,23)

define w (vector (- (random 40) 17) (- (random 40) 17) (- (random 40) 17) ))
  w

(cond
  ((and (< (vector-ref w  0) (vector-ref w 1)) (< (vector-ref w 0) (vector-ref w 2))) '1мин)
  ((and (< (vector-ref w 1) (vector-ref w 0)) (< (vector-ref w 1) (vector-ref w 2))) '2мин)
  ((and (< (vector-ref w 2) (vector-ref w 1)) (< (vector-ref w 2) (vector-ref w 0))) '3мин)
  (else 'равные))

этот код ищет минимальное значение,но я не знаю как найти суму двух наименьших...

[netrino]

Ваш код ищет значение только для трёхэлементного вектора, этого точно достаточно? Если в векторе будет больше/меньше трёх элементов, код работать не будет. Чтобы получить значение минимального элемнта, в cond вместо символов '1мин и т.д., нужно было возвращать (vector-ref w 0), (vector-ref w 1) и т.д. Также, подозреваю, что нужно было использовать какой-нибудь из методов итерации по вектору, а не тупо сравнивать вручную три его элемента, таким образом можно будет искать минимальный/максимальный элемент на векторах любого размера. Например, здесь можно использовать цикл do или рекурсию.

(define (find-min-max v)
  (do ((i 1 (+ i 1))
       (minim (vector-ref v 0))
       (maxim (vector-ref v 0)))
      ((>= i (vector-length v))
       (values minim maxim))
    (let ((element (vector-ref v i)))
      (cond
        ((> minim element) (set! minim element))
        ((< maxim element) (set! maxim element))))))
 
(define v (vector (- (random 40) 17)
                  (- (random 40) 17)
                  (- (random 40) 17)
                  (- (random 40) 17)))
 
(display v) (newline)
 
(call-with-values (lambda () (find-min-max v))
                  (lambda (minim maxim)
                    (display minim) (newline) 
                    (display maxim) (newline)
                    (display "Sum is: ")
                    (display (+ minim maxim)) (newline)))

[dcPuFic]

Понимаете,проблема в том,что у нас было всего 4 занятия...и поэтому я не сильно его знаю)
Спасибо ВАМ большое за код,но он ищет суму минимального и максимального,а мне нужно найти суму двух минимальных(

[netrino]

Я привёл исчерпывающий, с моей точки зрения, пример прохода по вектору с поиском какого-либо элемента, непонятные конструкции подробно описаны в интернете с примерами их применения, так что Вам не должно составить труда разобраться в этой программе и изменить её под свои нужды.
Ну или можете использовать эту функцию (написана под Racket):

(define (find-2-min vec)
  (let* ((minimal-1 (sequence-fold min (vector-ref vec 0) vec))
         (vec-1 (vector-filter-not (curry eq? minimal-1) vec))
         (minimal-2 (sequence-fold min (vector-ref vec-1 0) vec-1)))
    (values minimal-1 minimal-2)))

Тем не менее, не могу гарантировать, что она запуститься на Вашем интерпретаторе Scheme и что её примет преподаватель, потому, всё же, рекомендую направить свои усилия на самостоятельное написание программы.

[dcPuFic]

Спасибо большое,я переработал немного Ваш код,и сделал)