Определить функционал Аналогичный предикату MAPLIST для одноуровнего списка. (Используйте применяющий функционал FUNCALL)

@tpogih · Регистрация: 29.01.2014

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

определить функционал Аналогичный предикату MAPLIST для одноуровнего списка. (Используйте применяющий функционал FUNCALL).
Заранее благодарю

@Catstail · 21.03.2014, 11:58

Предикат - это функция, возвращающая логическое значение. maplist предикатом не является.
Funcall здесь не слишком удобен. Лучше Apply:

Lisp

(defun my-maplist (lst f)
  (cond ((null lst) nil)
        (t (cons (apply f lst) (my-maplist (cdr lst) f)))))
 
==> my-maplist
 
(my-maplist '(1 2 3 4 5 6) '*)
 
==> (720 720 360 120 30 6)

но если очень нужен Funcall, то так:

Lisp

(defun my-maplist (lst f)
  (cond ((null lst) nil)
        (t (cons (apply 'funcall (cons f lst)) (my-maplist (cdr lst) f)))))
 
==> my-maplist
 
(my-maplist '(1 2 3 4 5 6) '*)
 
==> (720 720 360 120 30 6)
 
(my-maplist '(1 2 3 4 5 6) 'list)
 
==> ((1 2 3 4 5 6) (2 3 4 5 6) (3 4 5 6) (4 5 6) (5 6) (6))

@castorsky · 22.03.2014, 19:21

Lisp

;;racket
(define (maplist proc lst)
  (if (null? lst) '()
      (cons (proc lst) (maplist proc (cdr lst)))))
 
(maplist (lambda (x) (foldr * 1 x)) '(1 2 3 4 5))

@tpogih 0 / 0 / 0 Регистрация: 29.01.2014 Сообщений: 74
		1
	Определить функционал Аналогичный предикату MAPLIST для одноуровнего списка. (Используйте применяющий функционал FUNCALL) 21.03.2014, 11:24. Показов 2276. Ответов 2 Метки нет (Все метки) определить функционал Аналогичный предикату MAPLIST для одноуровнего списка. (Используйте применяющий функционал FUNCALL). Заранее благодарю 0

	22.03.2014, 19:21

Опции темы