Дан произвольный список атомов. Удалите все атомы длиннее 6

@Alternosfera · Регистрация: 21.10.2020

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

Дан произвольный список атомов. Удалите все атомы длиннее 6.

@_sg · 20.11.2020, 19:47

Lisp

(defun n-drop (n w)
  (loop for a in w 
        when (<= (length (symbol-name a)) n)
        collect a))
 
> (n-drop 6 '(aaaa bbbbb cccccc ddddddd))
(AAAA BBBBB CCCCCC)

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

Lisp

(defun n-drop (n w)
  (loop for a in w 
        unless (> (length (symbol-name a)) n)
        collect a))
 
> (n-drop 6 '(aaaa bbbbb cccccc ddddddd))
(AAAA BBBBB CCCCCC)

@Catstail · 21.11.2020, 09:27

HomeLisp:

Lisp

(defun task (list)
  (remove-if (lambda (x) (> (length (explode x)) 6)) list))
 
 
(task '(aaaa bbbbb cccccc ddddddd))
==> (AAAA BBBBB CCCCCC)

@Alternosfera 0 / 0 / 0 Регистрация: 21.10.2020 Сообщений: 11
		1
	Common Lisp Дан произвольный список атомов. Удалите все атомы длиннее 6 20.11.2020, 19:31. Показов 1445. Ответов 2 Метки lisp (Все метки) Дан произвольный список атомов. Удалите все атомы длиннее 6. 0

	21.11.2020, 09:27

Дан произвольный список атомов. Удалите все атомы длиннее 6

Решение