问题

说明

解决(python)

解法 （racket 5.2.1)

  3. ; 定义一个函数 filter-by-1st-char
  4. ; 输入一个字符 a-ch 和一个字符串 a-str
  5. ; 如果 a-ch 与 a-str 的第一个字符相同，
  6. ; 则以列表方式输出 a-str, 否则输出空列表 '() 
  7. (define (filter-by-1st-char a-ch a-str)
  8.     (list a-word) '()))
  10. ; 定义一个函数 sort-words-by-char-list
  11. ; 它接受以字符串形式输入的一个字符序列 char-list, 
  12. ; 和以字符串列表形式输入的一个字符串序列 word-list
  13. ; 输出一个列表，其所有列表项即 word-list 中的所有字符串
  14. ; 并且将根据每个字符串的首字母，依照 char-list 所提供的顺序排序
  15. ; 而并非按一般英文词典的 a-z 顺序排序
  16. (define (sort-words-by-char-list char-list word-list)
  17.   (let 
  18.     (for ([ch char-list])
  19.       (for ([wd word-list])
  20.         (set! sorted-word-list 
  21.           (append sorted-word-list ; 把符合条件的单词放进结果列表
  22.             (filter-by-1st-char ch wd)))))
  23.     sorted-word-list))
  25. ; 函数调用，正常运行时，应该输出 (dear dog eye bed)
  27.   (sort-words-by-char-list "dgecfboa" '("dear" "dog" "eye" "bed")))