Clojure：将字符串与列表推导一起使用

Question

我正在尝试编写马丁·奥德斯基（Martin Odersky）的功能编程课程的第6.7讲的Clojure版本。原文是用Scala编写的。

这个概念是采用电话号码（作为字符串）并给出给定单词词典的可能短语列表。

因此， translate("7225247386")会产生短语“ Scala很有趣”

这是完整的Scala版本的要点 。

这是我使用Clojure的尝试

最后的“编码”功能出现问题。Scala版本是

def encode(number: String): Set[List[String]] =
if (number.isEmpty) Set(List())
else {
    for {
        split <- 1 to number.length
        word <- wordsForNum(number take split)
        rest <- encode(number drop split)
        } yield word :: rest
}.toSet

使用我的Clojure版本

    (defn encode
      "Takes a number as a string. Returns all the different ways to encode that number as a list of words"
  [number]
  (if (empty? number)
    (vector)             
    (for [split (range 0 (count number))      
          word  (words-from-number (subs number 0 split)) 
          remainder (encode (subs number split))]    
      (concat word remainder))))

问题似乎在于字符串不断转换为字符列表。 这就是为什么我使用(subs number 0 split)而不是(take split number)

上面找到第一个单词的上述版本似乎在正确的轨道上...

    (defn encode
  [number]
  (for [split (range 0 (count number))
        word (words-from-number (subs number 0 split))]
    word))

(encode "7225247386") => ("pack" "rack" "sack" "Scala")

...但是将剩余的数字字符串添加到对“ encode”的递归调用中只会返回一个空列表。

任何建议将不胜感激。

谢谢。

Answer 1

您可以使用clojure.string/join将字符序列变回字符串。

您的代码中的某些内容与原始Scala版本略有不同：

• Scala版本的范围从1开始，您的从0开始
• Scala版本的if-> true返回一个嵌套集合
• 您将两个序列连接在一起，而不是“连接”到列表中

我创建了一个修改后的版本，该版本可能并不完全正确（无法对照Scala版本的输出进行检查），但希望能对您有所帮助：

(defn encode
  "Takes a number as a string. Returns all the different ways to encode that number as a list of words"
  [number]
  (if (empty? number)
    #{()}
    (for [split (range 1 (inc (count number)))
          word  (words-from-number (join (take split number)))
          remainder (encode (join (drop split number)))] 
      (cons word remainder))))

可能感兴趣的是，我前一段时间已经实现了相同的翻译： https : //gist.github.com/ponzao/6095989