如何将定义的列表转换为Racket中的集合？

Question

如果我已经定义了随机字符串列表，我该如何使用相同的字符串创建相同的集合？下面是我用来制作列表的代码。

(define (make-random-integer)
(modulo (random 1000) 25)
)


(define (list45 n)
(build-list n (λ (x) (build-string 10 (λ (x) (integer->char (+ 65 (make-random-integer)))))))
)

Answer 1

您问题的最直接答案是使用list->set。

最优雅的答案（在我看来）是使用for/set：

(define (random-string-set items len)
  (for/set ((i (in-range items)))
    (build-string len (thunk* (integer->char (+ (char->integer #\a) (random 26)))))))