Question

我试图定义一个多态类型：

(define-type (listt a)
  (U Empty
     (Cons a)))

(struct Empty ()) (struct (a) Cons ([v : a] [w : (listt a)]))

和一个currying函数：

;; a better name for subst-c is subst-currying
(: subst-c : (∀ (a) ((-> a Boolean) -> a (listt a) -> (listt a))))
(define (subst-c pred)
  (lambda (n listt)
    (match listt
      [(Empty)
       (Empty)]
      [(Cons e t)
       (if (pred e)
           (Cons n ((subst-c pred) n t))
           (Cons e ((subst-c pred) n t)))])))

但收到错误

;Type Checker: type mismatch
;   expected: Nothing
;   given: a
;   in: n
;Type Checker: type mismatch
;   expected: (U Empty (Cons Nothing))
;   given: (U Empty (Cons a))
;   in: t

我对此感到困惑，我做错了什么？

Answer 1

如果手动添加一些类型变量实例化，则此代码实际上是类型检查。像这样：

(: subst-c : (∀ (a) ((-> a Boolean) -> a (listt a) -> (listt a))))
(define (subst-c pred)
  (lambda (n listt)
    (match listt
      [(Empty)
       (Empty)]
      [(Cons e t)
       (if (pred e)
           (Cons n (((inst subst-c a) pred) n t))      ;; <-- Right here
           (Cons e (((inst subst-c a) pred) n t)))]))) ;; <-- and here

inst运算符用于实例化类型变量。在这种情况下，对于subst-c的递归使用。我不确定为什么需要在这里手动实例化。我认为这可能是Typed Racket的类型推断的错误/限制。

通过查看DrRacket中弹出的类型工具提示（将鼠标悬停在表达式上以查看类型）并查看Nothing来自哪里，我能够找出放入这些内容的位置。< / p>

如何解决此currying函数中的类型不匹配错误？

1 个答案: