“球拍王国”中的Ormap版本

在“球拍领域”中,作者构建了一个用于教育目的的内置函数。

其ormap的实现是:

(define (my-ormap-book pred lst)
  (cond [(empty? lst) #f]
        [else (or (pred (first lst))
                  (my-ormap-book pred (rest lst)))]))

(require rackunit)
(check-equal? (my-ormap-book add1 '(3 4 5)) 4)
(check-equal? (my-ormap-book add1 '()) #f)
(check-equal? (my-ormap-book positive? '(1 2 a)) #t)

然而,真正的Ormap,如racket文档所示- link -还可以使用两个或多个列表作为输入,例如:

(check-equal? (ormap + '(1 2 3) '(4 5 6)) 5)

当使用“Racket领域”的实现进行测试时,您会得到:

(check-equal? (my-ormap-book  + '(1 2 3) '(4 5 6)) 5)

my-ormap-book: arity mismatch;
 the expected number of arguments does not match the given number
  expected: 2
  given: 3
  arguments...:

如何使“我的ormap手册”过程通过此测试用例?