d. - e. 予定

main = print $ zip "hello" ['.', '.' ..]

main = print $ map (\x -> (fst x):(snd x):[]) $ zip "hello" ['.', '.' ..]

main = print $ foldl (++) "" $ map (\x -> (fst x):(snd x):[]) $ zip "hello" ['.', '.' ..]

main = print $ concat $ zipWith (\x y -> x:y:[]) "hello" (repeat '.')

(defun double (x) (* x 2))

(double 2)

((lambda (x) (* x 2)) 3)

(mapcar #'(lambda (x) (+ x 10)) '(1 2 3))

問題１： ２乗のリストを作成するは？

(defun make-adder (n)

  #'(lambda (x) (+ x n)))

(setq add2 (make-addder 2))

(setq add10 (make-adder 10))

(funcall add2 1)

(funcall add10 2)

問題２： make-multi で掛け算バージョンを作成する。

(defun our-length (lst)

  (if (null lst)

      0

      (1+ (our-length (cdr lst)))))

(defun our-find-if (fn lst)

  (if (funcall fn (car lst))

      (car lst)

      (our-find-if fn (cdr lst))))

バッククオート式

(defun hello (x) (list 'Hey x))

(hello 'koba)

(defun greet (name)

(defmacro greet (name)

(defmacro greet (name)