似乎如果我将一个集合写入一个文件,它就不是一种可以作为一个集合轻松读回的格式。这是一个例子:
#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>
的文件,读者会抱怨这个文件。邮件列表here上有一个相关的未回答的问题。
我现在解决的方法是将字符串"(set "
字面打印到文件,然后打印所有带空格的整数,然后关闭")"
。超级难看,我想尽可能使用读者。
答案 0 :(得分:7)
您可以使用Racket serialization library执行此操作。这是一个例子:
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表达式,因此您可以像其他值一样对其进行操作(例如将其存储在数据库中,将其写入磁盘,通过网络发送等):< / p>
-> (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))))