Nome: ? | Matrícula: ?

Funções de alta ordem

Função `map`

(defun map (f l)
    (cond
        ((null l) Nil)
        (t (cons (f (car l)) (map f (cdr l))))))

(defun dobro (n) (* n 2))

;
(teste '(2 4 6 8 10) (map dobro '(1 2 3 4 5)))

function(str, info) { return multiEval(str, info); }

Função `filter`

Função (filter f l) (retorna uma cópia da lista l contendo apenas os elementos para os quais a função f retorna true):

(defun ...)
; testes
(print
   (filter
      (lambda (x) (< x 10))
      '(3 12 6 15 9)))

function(str, info) { return multiEval(str, info); }

Função (all f l) (indica se a função f retorna verdadeiro para todos os elementos de l):

(defun ...)
; testes
(defun par (x) (= (% x 2) 0))
(print (all par '()))
(print (all par '(2 4 6)))
(print (all par '(1 2 4 6)))

function(str, info) { return multiEval(str, info); }

Função (atom-list l) (indica se todos os elementos de l são átomos):

(defun ...)
; testes
; ...

function(str, info) { return multiEval(str, info); }

Função (reduce f l i) (aplica a função f sobre um acumulador para cada valor da lista l, da esquerda pra direita, para reduzi-la a um único valor; o valor inicial do acumulador é i):

(defun ...)
; testes
(print (reduce + '(1 2 3) 0))

function(str, info) { return multiEval(str, info); }

Reescreva a função (all f l) usando reduce:

codigo

function(str, info) { return multiEval(str, info); }

Funções de alta ordem

Função map

Função filter

Função `map`

Função `filter`