例題の解答例

(define each
  (lambda (lst fnc)
    (if (null? lst)
        (list )
        (cons (fnc (car lst)) (each (cdr lst) fnc)))))

(define total
  (lambda (s lst fnc)
    (if (null? lst)
        s
        (total (fnc s (car lst)) (cdr lst) fnc))))

(define calc-oplist
  (lambda (a b oplst)
    (if (null? oplst)
        (list )
        (cons ((car oplst) a b) (calc-oplist a b (cdr oplst))))))

(define func-name
  (lambda (msg)
    (cond ((eq? msg 'tasu) +)
          ((eq? msg 'hiku) -)
          ((eq? msg 'kakeru) *)
          ((eq? msg 'waru) /)
          ((eq? msg 'amari) modulo))))