看来，如果我将一个集合写入文件，它的格式就不会像集合那样容易地被读回。这是一个例子：
#lang racket
(let ([out (open-output-file "test.rkt" #:exists 'replace)])
(write (set 1 2 3 4 5) out)
(close-output-port out))
这会产生一个带有的文件#<set: 1 3 5 2 4>，读者会抱怨。还有就是邮件列表上相关的悬而未决的问题在这里。
我现在解决这个问题的方法是，将字面意义上的字符串打印"(set "到文件中，然后是所有带空格的整数，然后是close ")"。超级丑陋，如果可能，我想使用阅读器。
您可以使用Racket序列化库来执行此操作。这是一个例子：
Welcome to Racket v6.4.0.7.
-> (require racket/serialize)
-> (with-output-to-file "/tmp/set.rktd"
(lambda () (write (serialize (set 1 2 3)))))
-> (with-input-from-file "/tmp/set.rktd"
(lambda () (deserialize (read))))
(set 1 3 2)
请注意，序列化值只是一种特殊的s表达式，因此您可以像其他值一样操作它（例如将其存储在数据库中，将其写入磁盘，通过网络发送等）：
-> (serialize (set 1 2 3))
'((3)
1
(((lib "racket/private/set-types.rkt")
.
deserialize-info:immutable-custom-set-v0))
0
()
()
(0 #f (h - (equal) (1 . #t) (3 . #t) (2 . #t))))
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句