mapsを使った反復処理

Question

私はClojureには新しく、labreplからいくつかの基本的なことをやっています。例えば、elosska→elößkäのように、ある文字を他の文字に置き換える関数を書いてみたいと思います。

私はこれを書いた：

(ns student.dialect (:require [clojure.string :as str])) 
(defn germanize 
    [sentence] 
    (def german-letters {"a" "ä" "u" "ü" "o" "ö" "ss" "ß"}) 
    (doseq [[original-letter new-letter] german-letters] 
    (str/replace sentence original-letter new-letter))) 

を私は期待するとして、それは動作しません。私を手伝ってくれますか？

Answer 1

が、私の感想です

 

(def german-letters {"a" "ä" "u" "ü" "o" "ö" "ss" "ß"}) 

(defn germanize [s] 
    (reduce (fn[sentence [match replacement]] 
      (str/replace sentence match replacement)) s german-letters)) 

 

(germanize "elosska") 

Answer 2

2つの問題はここにあります：あなたがどんな結果にテキストの独立したコピーに

str/replace作品を取得することはできませんので

1. doseqは生産、その評価によって作成されたリストの先頭を保存しません4種類の結果 - doseqをforに置き換えると、これを確認できます。リストには4つのエントリがあります。

あなたコードが方法以下に書き換えることができる：この場合

(def german-letters {"a" "ä" "u" "ü" "o" "ö" "ss" "ß"}) 
(defn germanize [sentence] 
    (loop [text sentence 
     letters german-letters] 
    (if (empty? letters) 
     text 
     (let [[original-letter new-letter] (first letters)] 
     (recur (str/replace text original-letter new-letter) 
       (rest letters)))))) 

中間結果が収集される、ので、すべての置換が正しい文字列を生成する、同一の文字列に適用される：

user> (germanize "elosska") 
"elößkä" 

PS機能にdefを使用することもおすすめしません。最上位フォームに使用する方が良いです。

Answer 3

アレックスはもちろん、元の問題に関して既にdoseqを使用して質問に正しく回答しています...しかし、興味深く、より機能的なソリューションがどのように見えるかを見たいと思っていました。そしてそれは私がループを使わないことを意味します。

私はこの思い付いた：

同じ結果得

(ns student.dialect (:require [clojure.string :as str])) 

(defn germanize [sentence] 
    (let [letters {"a" "ä" "u" "ü" "o" "ö" "ss" "ß"} 
     regex (re-pattern (apply str (interpose \| (keys letters))))] 
    (str/replace sentence regex letters))) 

：regex (re-pattern...ラインは、単に場合は、読み取りにクリーン、かつ簡単だったでしょうこれは、#"ss|a|o|u"に評価

student.dialect=> (germanize "elosska") 
"elößkä" 

を明示的な文字列として入力しましたが、私はドイツ語の文字の定義を1つだけ持つことをお勧めしました。ここで