Возвратить список из элементов под номером N

@nikita-dalek · Регистрация: 30.09.2013

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

Здравствуйте, уважаемые!
Я только начал изучать Lisp, и все дается с огромным трудом.
Пытаюсь решить задачу: "L – список простых списков. Возвратить список из элементов под номером N.", но не получается.
Выстрадал следующий код:

Lisp

(defun nElOfLists(ls n)
        (if (> n 0)
            (append  (list(nEl (car ls) n)) (nElOfLists (cdr ls) n) )
        )
)

Прошу подтолкнуть в нужном направлении, понимаю, данный код ужасен и неправилен.

Добавлено через 15 минут
Функция nEl, которая там использована, ищет последний элемент в простом списке.
Вот код полностью:

Lisp

(defun nEl (ls n)
    (cond ((null ls) nil)
        ((= n 1) (car ls))
        ((nEl (cdr ls) (1- n)))
    )
)
 
(defun nElOfLists(ls n)
        (if (> n 0)
            (append  (list(nEl (car ls) n)) (nElOfLists (cdr ls) n) )
 
        )
)

Добавлено через 10 минут
Опять ошибся, извиняюсь.

Функция nEl, которая там использована, ищет элемент с номером N в простом списке.

@Lambdik · 30.09.2013, 22:45

Тут сложнее понять вопрос, чем решить. Лучше дописать входные и выходные данные.
Наугад.

Lisp

(defun -assoc (n l)
  (cond
    ((equal n (caar l)) (car l))
    (t (-assoc n (cdr l)))))
 
> (-assoc 2 '((0 . m) (1 . 7) (2 . w) (3 . e)))
(2 . w)
 
 
(defun -nth (n l)
  (cond
    ((null l) ())
    ((zerop n) (car l))
    (t (-nth (1- n) (cdr l)))))
 
> (-nth 2 '((h  m) (s 7) (i w) (e 4)))
(i w)

@helter · 30.09.2013, 23:24

Сообщение от nikita-dalek

Функция nEl, которая там использована, ищет элемент с номером N в простом списке.

Такая функция уже есть, nth называется. Мапкарните её по вашему списку списков. Читните что-нибудь про работу со списками: фильтрация, применение функции, сворачивание.

@Catstail · 01.10.2013, 10:15

Самое правильное решение, это то, что подсказал Helter:

Lisp

(defun nn-th (lst n)
  (mapcar #'(lambda (x) (nth n x)) lst)) 
 
==> nn-th
 
(nn-th '((1 2 3) (11 22 33) (111 222 333)) 2)
 
==> (3 33 333)

Но возможно и итерационное решение:

Lisp

(defun nn-th-i (lst n)
  (iter (for i in lst) (collecting (nth n i))))
 
==> nn-th-i
 
(nn-th-i '((1 2 3) (11 22 33) (111 222 333)) 2)
 
==> (3 33 333)

и классическое рекурсивное:

Lisp

(defun nn-th-r (lst n)
  (cond ((null lst) nil)
        (t (cons (nth n (car lst)) (nn-th-r (cdr lst) n)))))
 
==> nn-th-r
 
(nn-th-r '((1 2 3) (11 22 33) (111 222 333)) 2)
 
==> (3 33 333)

@helter 4527 / 3521 / 358 Регистрация: 12.03.2013 Сообщений: 6,038
	30.09.2013, 23:24	3
	Сообщение от nikita-dalek Функция nEl, которая там использована, ищет элемент с номером N в простом списке. Такая функция уже есть, nth называется. Мапкарните её по вашему списку списков. Читните что-нибудь про работу со списками: фильтрация, применение функции, сворачивание. 0

	01.10.2013, 10:15

Опции темы