Сгруппировать все элементы в подсписках до конца попарно

@aaaa4444 · Регистрация: 04.12.2013

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

Используя рекурсию в Common Lisp делать следующие преобразования: получая в качестве исходного любой многоуровневый список вида
(a b ((c d e) f g (h i)) j k),
создать результирующий список вида
((a b) (c d) (e f) (g h) (i j)),
то есть сгруппировать все элементы в подсписках до конца попарно

@Catstail · 11.12.2013, 21:02

Вспомогательная функция, "уничтожающая" скобки:

Lisp
1
2
3
4
5
6
7
8
9
10
(defun mkline (lst)
  (cond ((null lst) nil)
        ((atom (car lst)) (cons (car lst) (mkline (cdr lst))))
        (t (append (mkline (car lst)) (mkline (cdr lst))))))
 
==> mkline
 
(mkline '(a b ((c d e) f g (h i)) j k))
 
==> (a b c d e f g h i j k)

Вторая функция строит пары:

Lisp
1
2
3
4
5
6
7
8
9
10
(defun mkpair (lst)
  (cond ((null lst) nil)
        ((null (cdr lst)) (list (list (car lst))))
        (t (append (list (list (car lst) (cadr lst))) (mkpair (cddr lst))))))
 
==> mkpair
 
(mkpair '(a b c d e))
 
==> ((a b) (c d) (e))

Ну, и решение:

Lisp
1
2
3
4
5
6
7
8
(defun task (lst)
  (mkpair (mkline lst)))
 
==> task
 
(task '(a b ((c d e) f g (h i)) j k))
 
==> ((a b) (c d) (e f) (g h) (i j) (k))

transformator.t · 11.12.2013, 22:04

Lisp
1
2
3
4
5
6
7
8
9
10
(defun pf (list)
           (let ((test (every 'atom list)))
             (if test (loop 
                         for a in list by #'cddr
                         for b in (cdr list) by #'cddr
                         collect (list a b))
                 (pf (mapcan 
                      #'(lambda (x)
                          (if (listp x) x (list x)))
                      list)))))

@_sg · 12.12.2013, 00:06

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
(defun flat (w &optional ac) 
  (cond ((null w) ac)
        ((atom w) (cons w ac))
        ((flat (car w) (flat (cdr w) ac)))))
 
(defun pair (w)
  (if (cdr w)
      (cons (list (car w) (cadr w))
            (pair (cddr w)))
      (when w (list w))))
 
(defun flat-pair (w)
  (pair (flat w)))
 
> (flat-pair '(a b ((c d e) f g (h i)) j k))
((A B) (C D) (E F) (G H) (I J) (K))
> (flat-pair '(a b ((c d e) f g (h i)) j k l))
((A B) (C D) (E F) (G H) (I J) (K L))

transformator.t · 17.12.2013, 22:45

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

Вспомогательная функция, "уничтожающая" скобки:

Lisp
1
2
3
4
(defun f (l)
           (if (listp l)
               (loop for a in l append (f a))
               (list l)))

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

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

Вторая функция строит пары:

Lisp
1
2
3
(defun f (l)
           (loop for (a . s) on l by #'cddr
              collect (list a (first s))))

@_sg · 19.11.2014, 21:41

как вариант:

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
(defun flat (w)
  (loop for a in w 
        if (and a (atom a)) collect a
        else nconc (flat a)))
 
(defun pair (w)
  (if (cdr w)
      (cons (list (car w) (cadr w))
            (pair (cddr w)))
      (when w (list w))))
 
(defun flat-pair (w)
  (pair (flat w)))
 
> (flat-pair '(a b ((c d e) f g (h i)) j k))
((A B) (C D) (E F) (G H) (I J) (K))
> (flat-pair '(a b ((c d e) f g (h i)) j k l))
((A B) (C D) (E F) (G H) (I J) (K L))

@Lambdik · 19.11.2014, 22:02

Новый флаттен. Хотел уже сказать да здравствует, но вот первый тест...

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

Lisp
1
2
3
4
(defun flat (w)
  (loop for a in w 
        if (and a (atom a)) collect a
        else nconc (flat a)))

Lisp
1
2
> (flat '(a b nil ((c d e) f g (h i)) j k))
(A B C D E F G H I J K)

@Catstail · 19.11.2014, 22:16

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
(defun task (lst)
  (let ((tmp (flatten lst))
        (r nil)) 
       (iter (for b upfrom 0)
        (collecting (if (null (cdr tmp)) tmp (subseq tmp 0 2)) into r)
        (setq tmp (cddr tmp))
        (when (null tmp) (return r))))) 
 
==> task
 
(task '(1 2 3 (1 2 3) (((4 5 6)))))
 
==> ((1 2) (3 1) (2 3) (4 5) (6))

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

Lisp
1
2
3
4
5
6
7
8
9
10
11
(defun new-flatten (lst)
  (let ((r nil))
    (iter (for i in lst) 
      (if (atom i) (collecting i into r)
                   (setq r (append r (new-flatten i)))))))
 
==> new-flatten
 
(new-flatten '(a (n b) nil (nil)))
 
==> (a n b NIL NIL)

@_sg · 19.11.2014, 22:27

Lambdik, nil - пустой список:

Lisp
1
2
3
4
5
6
7
(defun flat (w &optional ac) 
  (cond ((null w) ac)
        ((atom w) (cons w ac))
        ((flat (car w) (flat (cdr w) ac)))))
 
> (flat '(a b nil ((c d e) f g (h i)) j k))
(A B C D E F G H I J K)

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

Lisp
1
2
3
4
5
6
7
(defun flat (w)
  (loop for a in w 
        if (and a (atom a)) collect a
        else nconc (flat a)))
 
> (flat '(a b nil ((c d e) f g (h i)) j k))
(A B C D E F G H I J K)

@castorsky · 20.11.2014, 01:36

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

многоуровневый список вида
(a b ((c d e) f g (h i)) j k),
создать результирующий список вида
((a b) (c d) (e f) (g h) (i j)),
то есть сгруппировать все элементы в подсписках до конца попарно

атом 'k в преобразовании потерян.

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
;; racket-lang.org
(define (foo lst)
  (let loop ([lst lst] [acc null])
    (cond [(empty? lst) acc]
          [(list? lst) (loop (car lst) (loop (cdr lst) acc))]
          [else (cond [(empty? acc) (cons (list lst) acc)]
                      [(= (length (car acc)) 1)
                       (cons (cons lst (car acc))
                             (cdr acc))]
                      [(cons (list lst) acc)])])))
 
(foo '(a b ((c d e) f g (h i)) j k))
;'((a) (b c) (d e) (f g) (h i) (j k))

Новые блоги и статьи Все статьи Все блоги /
Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.

@aaaa4444 0 / 0 / 0 Регистрация: 04.12.2013 Сообщений: 17

	Сгруппировать все элементы в подсписках до конца попарно 11.12.2013, 20:58. Показов 1642. Ответов 9 Метки нет (Все метки) Используя рекурсию в Common Lisp делать следующие преобразования: получая в качестве исходного любой многоуровневый список вида (a b ((c d e) f g (h i)) j k), создать результирующий список вида ((a b) (c d) (e f) (g h) (i j)), то есть сгруппировать все элементы в подсписках до конца попарно 0

Сгруппировать все элементы в подсписках до конца попарно

Решение