Функция cons

@Artem7693 · Регистрация: 29.11.2017

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

Нужно получить (A (B) (C D (E X)) F G H)
Написал только так (A (B (C D (E X)) F G) H) и не могу получить нужный ответ(
Помогите, пожалуйста

Сам код:

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
(print
  (cons 'A
        (cons
          (cons 'B
                (cons
                  (cons 'C
                        (cons 'D
                              (cons
                                (cons 'E
                                      (cons 'X ()))
                                ())))
                  (cons 'F
                        (cons 'G()))))
          (cons 'H ()))))

@Catstail · 02.11.2019, 13:18

Lisp
1
2
3
4
(cons 'a (cons (cons 'b nil)
     (cons (cons 'c (cons 'd (cons (cons 'e (cons 'x nil)) nil)))  (cons 'f (cons 'g (cons 'h nil))))))
 
==> (A (B) (C D (E X)) F G H)

Никогда не понимал смысла подобных заданий...

Добавлено через 4 минуты
Если на то пошло - вот функция, которая решает все подобные задачи:

Lisp
1
2
3
4
5
6
7
8
9
10
defun make-cons-form (f)
  (cond ((null f) nil)
        ((atom (car f)) (list 'cons (car f) (make-cons-form (cdr f))))
        (t (list 'cons (make-cons-form (car f)) (make-cons-form (cdr f))))))
 
==> MAKE-CONS-FORM
 
(make-cons-form '(A (B) (C D (E X)) F G H))
 
==> (CONS A (CONS (CONS B NIL) (CONS (CONS C (CONS D (CONS (CONS E (CONS X NIL)) NIL))) (CONS F (CONS G (CONS H NIL))))))

@_sg · 02.11.2019, 14:04

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
(defun cnss (w &aux (a (car w)))
  (when w `(cons ,(if (atom a) `(quote ,a)
                      (cnss a))
            ,(cnss (cdr w)))))
 
> (cnss '(a (b) (c d (e x)) f g h))
(CONS 'A
 (CONS (CONS 'B NIL)
  (CONS (CONS 'C (CONS 'D (CONS (CONS 'E (CONS 'X NIL)) NIL)))
   (CONS 'F (CONS 'G (CONS 'H NIL))))))
> (CONS 'A
 (CONS (CONS 'B NIL)
  (CONS (CONS 'C (CONS 'D (CONS (CONS 'E (CONS 'X NIL)) NIL)))
   (CONS 'F (CONS 'G (CONS 'H NIL))))))
(A (B) (C D (E X)) F G H)

@Artem7693 · 02.11.2019, 15:45 **[ТС]**

Спасибо большое)

@vlisp · 04.11.2019, 18:22

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
( A
  (B . nil)
  ( C
    D
    ( E
      (X . nil)
    )
  )
  F
  G
  H . nil
)

так понятней?

Новые блоги и статьи Все статьи Все блоги /
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .	Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .

@Artem7693 8 / 6 / 2 Регистрация: 29.11.2017 Сообщений: 206
	02.11.2019, 15:45 [ТС]
	Спасибо большое) 0

Функция cons

Решение