Реализуйте процедуры сортировки элементов списка

@AndreWwWwwW · Регистрация: 15.09.2018

Author24 — интернет-сервис помощи студентам

Условие задачи:
Реализуйте сортировку элементов списка двумя способами:

Определите процедуру (selection-sort pred? xs), осуществляющую сортировку списка xs выбором.
Определите процедуру (insertion-sort pred? xs), осуществляющую сортировку списка xs вставками.
В обеих процедурах аргументом pred? является предикат двух аргументов, возвращающий #t, если его первый аргумент меньше второго или равен ему, и #f в противном случае. Иными словами, (pred? a b) истинен, если в отсортированном списке элемент a должен предшествовать элементу b.

Избегайте явного определения циклов и присваивания.

;;; Примеры сортировки с использованием встроенной процедуры <=
;;;
(selection-sort <= '(9 6 2 4 3 5 7 1 8 0)) ⇒ (0 1 2 3 4 5 6 7 8 9)
(insertion-sort <= '(9 6 2 4 3 5 7 1 8 0)) ⇒ (0 1 2 3 4 5 6 7 8 9)

Необходимо написать данные программы на Scheme

@_sg · 06.11.2018, 08:27

Lisp

(define (insert x lst)
  (if (null? lst)
      (list x)
      (let ((y (car lst))
            (ys (cdr lst)))
        (if (<= x y)
            (cons x lst)
            (cons y (insert x ys))))))
 
(define (insertion-sort lst)
  (if (null? lst)
      '()
      (insert (car lst)
              (insertion-sort (cdr lst)))))
 
(insertion-sort '(6 8 5 9 3 2 1 4 7))

Источник: https://rosettacode.org/wiki/S... ort#Scheme

@AndreWwWwwW 3 / 3 / 0 Регистрация: 15.09.2018 Сообщений: 78
		1
	Scheme Реализуйте процедуры сортировки элементов списка 06.11.2018, 00:06. Показов 875. Ответов 1 Метки нет (Все метки) Условие задачи: Реализуйте сортировку элементов списка двумя способами: Определите процедуру (selection-sort pred? xs), осуществляющую сортировку списка xs выбором. Определите процедуру (insertion-sort pred? xs), осуществляющую сортировку списка xs вставками. В обеих процедурах аргументом pred? является предикат двух аргументов, возвращающий #t, если его первый аргумент меньше второго или равен ему, и #f в противном случае. Иными словами, (pred? a b) истинен, если в отсортированном списке элемент a должен предшествовать элементу b. Избегайте явного определения циклов и присваивания. ;;; Примеры сортировки с использованием встроенной процедуры <= ;;; (selection-sort <= '(9 6 2 4 3 5 7 1 8 0)) ⇒ (0 1 2 3 4 5 6 7 8 9) (insertion-sort <= '(9 6 2 4 3 5 7 1 8 0)) ⇒ (0 1 2 3 4 5 6 7 8 9) Необходимо написать данные программы на Scheme 0

	06.11.2018, 08:27

Опции темы