Списки

@trueFace · Регистрация: 22.10.2013

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

Здравствуйте, помогите пожалуйста с написание программы.
Задание: Для заданного числового списка построить новый список, в котором сначала находятся все отрицательные элементы, а затем все не отрицательные

@_sg · 14.12.2013, 13:39

Lisp
1
2
3
4
5
6
7
8
9
(defun minus-plus (w)
  (loop for i in w
        if (minusp i)
        collect i into minus
        else collect i into plus
        finally (return (nconc minus plus))))
 
> (minus-plus '(3 -7 0 5 -4))
(-7 -4 3 0 5)

Добавлено через 4 минуты

Lisp
1
2
3
4
5
6
7
(defun minus-plus (w &optional minus plus &aux (a (car w)))
  (cond ((null w) (nconc minus plus))
        ((minusp a) (minus-plus (cdr w) (cons a minus) plus))
        ((minus-plus (cdr w) minus (cons a plus)))))
 
> (minus-plus '(3 -7 0 5 -4))
(-4 -7 5 0 3)

Добавлено через 1 минуту

Lisp
1
2
3
4
(defun minus-plus (w) (sort w #'<))
 
> (minus-plus '(3 -7 0 5 -4))
(-7 -4 0 3 5)

@Catstail · 14.12.2013, 15:11

Lisp
1
2
3
4
5
6
7
8
(defun task (lst)
 (append (remove-if-not 'minusp lst) (remove-if 'minusp lst)))
 
==> task
 
(task '(1 2 3 0 -1 0 -6 7))
 
==> (-1 -6 1 2 3 0 0 7)

@route66 · 16.12.2013, 02:54

Lisp
1
2
3
4
5
6
7
8
9
10
(defun TASK (l &optional p m)
  (if l
    (if (minusp (car l))
        (TASK (cdr l) p (push (car l) m))
        (TASK (cdr l) (push (car l) p) m))
    (append (reverse p) (reverse m))))
 
(TASK '(-1 2 3 -4 -5))
 
==> (2 3 -1 -4 -5)

Добавлено через 2 минуты
* (append (reverse m) (reverse p))

Новые блоги и статьи Все статьи Все блоги /
Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита, которое может. . .	Команды "Заполнить" и "Очистить" на форме документа Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". На примере нетипового документа разработанного в конфигурации КА2. В качестве источника данных указан регистр накопления, в который записываются данные о. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip

Списки

Решение

Решение

@trueFace 2 / 2 / 1 Регистрация: 22.10.2013 Сообщений: 13

	Списки 14.12.2013, 12:58. Показов 1228. Ответов 3 Метки нет (Все метки) Здравствуйте, помогите пожалуйста с написание программы. Задание: Для заданного числового списка построить новый список, в котором сначала находятся все отрицательные элементы, а затем все не отрицательные 0