Задачка на функционал

@Dmitriy88 · Регистрация: 07.11.2013

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

Дан линейный список списков, которые имеют произвольную длину. определить функционал, который считает длину каждого из вложенных списков. Результат вернуть в виде линейного списка. Длина списка не определена

Пример: ((a b) (c d e f) (g h i) ...) ==> (2 4 3 ...).

@_sg · 07.11.2013, 01:17

Lisp

(defun sub-lengths (w)
  (cond ((null w) nil)
        (t (cons (length (car w)) (sub-lengths (cdr w))))))
 
> (sub-lengths '((a b) (c d e f) (g h i)))
(2 4 3)

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

Lisp

(defun sub-lengths (w)
  (when w (cons (length (car w)) (sub-lengths (cdr w)))))
 
> (sub-lengths '((a b) (c d e f) (g h i)))
(2 4 3)

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

Lisp

(defun sub-lengths (w) (mapcar #'length w))
 
> (sub-lengths '((a b) (c d e f) (g h i)))
(2 4 3)

@Catstail · 07.11.2013, 09:43

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

определить функционал

Lisp

(defun sub-lens (lst)
  (mapcar 'length lst))
 
==> sub-lens
 
(sub-lens '((a b) (c d e f) (g h i)))
 
==> (2 4 3)

@Dmitriy88 0 / 0 / 0 Регистрация: 07.11.2013 Сообщений: 3
		1
	Задачка на функционал 07.11.2013, 01:04. Показов 1263. Ответов 2 Метки нет (Все метки) Дан линейный список списков, которые имеют произвольную длину. определить функционал, который считает длину каждого из вложенных списков. Результат вернуть в виде линейного списка. Длина списка не определена Пример: ((a b) (c d e f) (g h i) ...) ==> (2 4 3 ...). 0

	07.11.2013, 09:43

Задачка на функционал

Решение