gistfile1.scm

;; 未完成
(define mapleave #f)
(define mapret #f)
(define mapstop #f)

(define (mapf finalf loopf . lists)
  (let/cc leave
    (set! mapleave leave)
    (let ((acc () )
          (stop? #t)
          (res #f)
          (it #f))
      (set! it
            (let/cc stop
              (set! mapstop stop)
              (let loop ((lists lists))
                (if (any null? lists)
                    (set! stopfl #f)
                    (begin
                      (set! acc (cons (let/cc ret
                                              (set! mapret ret)
                                              (map (compose loopf car)
                                                   lists))
                                      acc))
                      (loop (map cdr lists)))))))
      (apply finalf (apply append (reverse (if stop?
                                               (cons (list it) acc)
                                               acc)))))))