方案中的字谜

Question

有没有人尝试过在方案中生成字谜？？？

我有一个列表 (ABCDEF)，需要创建长度为 4 的字谜词。如“AAAA”、“ABCD”、“BCBC”等。 我完全困惑了。 :(

有人可以提醒我如何去做吗？

Answer 1

嗯...最近我解决了非常相似的任务 - 从 (0 1) 创建长度为 N 的字谜。这是我的解决方案。可能对您有帮助：

;; 
;; (define (generate n)) -> create list of string where
;;    * length of each string is n
;;    * each symbol of string is '0' or '1'
;;    * the list has all possible combinations of symbols '0' and '1'

(define (generate n)
(generate-engine (list "0" "1") n))

(define (generate-engine lst n)
 (cond
  [(= n 1) lst]
  [else (generate-engine (append (add-to-list lst "0") (add-to-list lst "1")) (- n 1))])    
)

(define (add-to-list lst symbol)
 (cond
  [(empty? lst) empty]
  [else (cons (add-to-element (first lst) symbol) (add-to-list (rest lst) symbol))]))

(define (add-to-element element symbol)
 (string-append element symbol)
)

;; example 

(generate 3)

结果：

(list "000" "100" "010" "110" "001" "101" "011" "111")

Answer 2

对于每个 i = 0..x（其中 x 是字谜词的长度），生成一个随机数 r，使得 0 0 r ;= r <= n 其中 n 是字母列表中的元素数量。现在使用 r 作为字母列表的索引并将其连接到结果。

Answer 3

长度为 1 的基本情况

字谜词只是列表中的项目。返回列表。

递归情况

长度为 n 的字谜词是列表中附加到所有长度为 (- n 1) 的字谜词的每个项目。

由此，您应该能够编写一些基本案例和递归案例的示例。您可能需要一个辅助函数。