Задачки по Лиспу

@maje · Регистрация: 21.10.2013

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

1. Есть список с подсписками вида ((1, (2, 4, z, 6), 7, ), 9, 8, ... ). Подсчитать количество элементов, расположенных на втором и четвертом уровнях вложенности.
2. С ассоциативного списка (a-1 b-2 c-3 d-4 e-5 f-6 g-7 ...) выбрать все значения, которые больше введенного числа. Собрать в список их ключи.

@helter · 06.11.2013, 03:56

remove-if-not

@route66 · 06.11.2013, 23:20

1. Есть список с подсписками вида ((1, (2, 4, z, 6), 7, ), 9, 8, ... ). Подсчитать количество элементов, расположенных на втором и четвертом уровнях вложенности.

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
(defun LVL-2-4 (l &optional (lvl 1) (n 0))
    (cond
        ((null l) n)
        ((and (or (equal lvl 2)(equal lvl 4)) (atom (car l))) 
                                      (print (car l)) (+ n 1 (LVL-2-4 (cdr l) lvl n)))
        ((atom (car l)) (LVL-2-4 (cdr l) lvl n))
        (t (+ (LVL-2-4 (car l) (+ lvl 1) n) (LVL-2-4 (cdr l) lvl n)))))
 
(LVL-2-4 '((1 2 z (6 f (3 z 4) 9 99) 5 6 7 8) 9 9 9))
 
12z3z45678
 
==> 10

@maje · 07.11.2013, 02:38 **[ТС]**

Сообщение от helter

remove-if-not

Получился такой вариант:

Lisp
1
2
3
(remove-if-not #'evenp '(0 1 2 3 4 5 6 7 8 9 10))
 
==> (0 2 4 6 8 10)

Новые блоги и статьи Все статьи Все блоги /
Транскрипция 55-минутного видео через Whisper: WhisperDesktop облажался, спас Google Colab[ anaschu 01.06.2026 Понадобилось получить текст из свежезагруженного видео на YouTube. Казалось бы, задача на пять минут. Заняла полтора часа. Делюсь опытом — может кому пригодится последовательность решений. . . .	21 мат мед. Планы на развитие модели здравоСохранения anaschu 01.06.2026 AnyLogic: план развития симуляционной модели рабочего коллектива — динамический абсентеизм, реальные данные, три сценария сравнения Продолжаю серию постов о дискретно-событийной модели рабочего. . .	20. Мат мед. Абсентеизм как отдельный тип простоя anaschu 29.05.2026 Апдейт модели: исправленные баги, абсентеизм и новые механизмы Продолжаю развивать ранее описанную модель рабочего коллектива на AnyLogic. За последние несколько дней был проведён серьёзный. . .	19. здоровье, усталость и психотип работника влияют на производительность предприятия, и наоборот, производительность на здоровье, усталось и психотип anaschu 28.05.2026 Дискретно-событийная модель рабочего коллектива на AnyLogic: здоровье, выгорание, психотипы и микростимуляция Привет, коллеги. Хочу поделиться итогами нескольких недель работы над симуляционной. . .
"Прокси" для последовательного порта Eddy_Em 28.05.2026 Эту штуку написал я достаточно давно. Но сейчас вот понадобилось настроить датчик грозы, но при этом не отключать его от "метеодемона". Соответственно, надо запустить этот "прокси": метеодемон будет. . .	Рефакторинг программы уравнивания. Massaraksh7 26.05.2026 Пример по предыдущей записи в блоге. Но, надо заметить, что, во-первых, там оптимизация не только математики, но и работы с базой данных, и с графами, а во-вторых, это ещё не всё.	Использование TThread в Lazarus для математических вычислений. Massaraksh7 25.05.2026 Производя рефакторинг своих программ на предмет ускорения их работы, обратил внимание на такой аспект, как сокращение времени матвычислений. Дело в том, что приходится работать с большими матрицами. . .	Модель здравосохранения 18. Чем здоровее работник, тем быстрее выгорает anaschu 24.05.2026 Имитационная модель корпоративного здравоохранения: что показывает математика Сегодня в модели рабочего коллектива на AnyLogic появились три новые механики — выгорание через накопленную усталость,. . .

@maje 1 / 1 / 0 Регистрация: 21.10.2013 Сообщений: 18

	Задачки по Лиспу 24.10.2013, 22:45. Показов 2717. Ответов 22 Метки нет (Все метки) 1. Есть список с подсписками вида ((1, (2, 4, z, 6), 7, ), 9, 8, ... ). Подсчитать количество элементов, расположенных на втором и четвертом уровнях вложенности. 2. С ассоциативного списка (a-1 b-2 c-3 d-4 e-5 f-6 g-7 ...) выбрать все значения, которые больше введенного числа. Собрать в список их ключи. 0

@helter 4528 / 3522 / 358 Регистрация: 12.03.2013 Сообщений: 6,038
	06.11.2013, 03:56
	remove-if-not 1