VPF::отсортировать список вставками

chudik88

Дата 19.8.2011, 14:24 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 20.3.2011

Репутация: нет
Всего: нет

Добрый день. Имею вот такой код:

Код


(defun insert (L E)
               (cond
                ((null L) (append E L))
                ((<= (car(cdr L)) (car(cdr(nth 0 E))) ) (append (cons L nil) E))
                (T (append (cons (car E) nil) (insert L (cdr E))))
                ))

(defun insert_sort(lst)
                     (cond
                      ((NULL LST) nil)
                      ((NULL (cdr LST)) LST)
                     (T (insert (cons (car LST) nil) (insert_sort (cdr LST)) ) )))

использую массив такого вида: ((1 4 6) (5 2 8) (9 7 3) (7 1 2) (9 7 5))

Код


(setq map '((1 4 6) (5 2 8) (9 7 3) (7 1 2) (9 7 5)))

когда набираю команду (insert_sort map), то выдает сообщение:" 'NIL' is not of the exprcted type 'REAL'", я конечно понимаю, что о там NIL нашел, но не могу найти место, где надо изменить. Помогите пожалуйста.

chudik88

Дата 22.8.2011, 11:18 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 20.3.2011

Репутация: нет
Всего: нет

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

Код


(defun insert (L E)
               (cond
                ((null E) (append E L))
                ((<= (car(cdr(car L))) (car(cdr(nth 0 E))) ) (append L E))
                (T (append (cons (car E) nil) (insert L (cdr E))))
                ))

(defun insert_sort(lst)
                     (cond
                      ((NULL LST) nil)
                      ((NULL (cdr LST)) LST)
                     (T (insert (cons (car LST) nil) (insert_sort (cdr LST)) ) )))

как говорится: "найдите различия"

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| LISP \| Следующая тема »