Scheme：如果函数返回true，则返回10

Question

我正在尝试实现一个部分，如果我的单独函数'写？' （返回true或false）返回true，我希望它返回数字10.

(define value 
  (lambda (p gs) 
    (cond 
     ((write? p gs) #t)
     10 
     else 0)))

我知道这是不正确的，因为我遇到了错误，但这是它的骨架。 如果写的话我想要它吗？使用这些参数返回true，然后返回值10。 如果没有，请返回0.

谢谢。

Answer 1

(cond
  ((write? p gs) 10)
  (else 0))