IPB
ЛогинПароль:

> Внимание!

1. Пользуйтесь тегами кода. - [code] ... [/code]
2. Точно указывайте язык, название и версию компилятора (интерпретатора).
3. Название темы должно быть информативным.
В описании темы указываем язык!!!

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> Xlisp. (Очень нужна помощь.), Нужно задачку решить, вроде ниче сложного, а вкупиться чет я не могу.
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 6
Пол: Мужской

Репутация: -  0  +


Задача: Напишите функцию, которая сортирует список чисел, используя алгоритм простой вставки.
-----
Написать как вы уже поняли, ее нужно на Лиспе.

Нужен не весь код, а алгоритм вставки одного элемента между двумя другими. Немогу понять, как его реализовать.

Кто может, прошу помочь.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


примерно вот так может выглядеть вставка элемента в отсортированный по возрастанию список:
(Defun Insert (el lst)
(cond
((null lst) (cons el nil))
((>(car lst) el) (cons el lst))
((AND (<(car lst) el)
(>(cadr lst) el))
(cons (car lst)
(cons el (cdr lst))))
(T (cons (car lst) (Insert el (cdr lst))))))


то есть:
(insert '5 '(0 1 2 3 4 6))
(0 1 2 3 4 5 6)

тщательно не тестировала...
на паре тестов прогнала в автокаде - вроде работает.


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Цитата
прогнала в автокаде


AutoCad ? blink.gif


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


именно... smile.gif

"челябинские архитекторы так суровы, что даже бухгалтерию ведут в автокаде"(с) баш
мы что, хуже, что ли? smile.gif))

Сообщение отредактировано: мисс_граффити -


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 27.11.2020 10:40
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name