Racket 中自定义数据的字符串表示

Question

我喜欢如何在透明结构中保留表示:

(struct posn (x y)
        #:transparent)

> (posn 1 2)
(posn 1 2)

但是有没有办法自定义它？喜欢在 Python ?

Answer 1

查看 prop:custom-write属性(property)here .这是一个简单的实现:

(struct pr (x y)
  #:transparent
  #:property prop:custom-write (λ (v p w?)
                                 (fprintf p "<~a,~a>" (pr-x v) (pr-y v))))

> (pr 1 2)
<1,2>

请注意，这适用于非 #:transparent结构也是如此。