機能プログラミングにおける条件付きの "代入"

Question

私は副作用を持たないものをプログラミングしていますが、私のコードはあまり読みにくくありません。 次のコードを考えてみましょう：私は、コードのブロックでcsv_dataを使用しようとしている

(let [csv_data (if header_row (cons header_row data_rows) data_rows)] 
) 

。 header_rowが存在する場合のクリーンなコンディショニング方法は何ですか？私はif-letを見てきましたが、ここでどのように役立つか分かりませんでした。

私は機能的なforループで同様の状況に遭遇しました。私はローカル変数に結果をバインドしています。コードは表現の山のように見えます。

多くの場合、別のヘルパー関数を作成する必要がありますか？ 私はここで何が欠けていますか？

Answer 1

まず、アンダースコアを使用せず、ダッシュを使用します。

第2に、小さなヘルパー機能に間違いはありません。結局のところ、これはあなたの特定のデータ形式を処理するための要件と思われます。

第3に、データを変更してこれらの決定をスキップし、すべてのコーナーケースを一様に表現できる場合は、これがさらに優れています。 （？カラム名）ヘッダー行は、データの異なる種類が含まれているので、あなたは別のそれらを維持することを好むかもしれない：

は

(let [csv {:header header :rows rows}] 
    ...) 

または多分あなたは、「ヘッダ」と「行」を持つことができ、いくつかの点で同じであることタイプ：行のシーケンス。次に、それらを直接連結することができます。の "コスト" について考えた後

(let [csv (concat (ensure-list header) rows)] 
    ...) 

Answer 2

：たとえば

(defn ensure-list [data] 
    (and data (list data))) 

：これ

user=> (ensure-list "something") 
("something") 
user=> (ensure-list()) 
(()) 
user=> (ensure-list nil) 
nil 

とを ensure-xイディオムは、あなたのデータを正規化するための非常に一般的な方法です名前空間内の1行ヘルパー関数私は代わりにローカル関数を思いついた：

(let [merge_header_fn (fn [header_row data_rows] 
          (if header_row 
          (cons header_row data_rows) 
          data_rows)) 
     csv_data (merge_header_fn header_row data_rows) ] 
    ... 
    <use csv_data> 
    ... 
) 

誰かがこれをよりうまく処理する方法を提案できない限り、私はこれを答えとして保持します。

Answer 3

私はユーティリティマクロを提案します。

(defmacro update-when [check val-to-update f & params] 
    `(if-let [x# ~check] 
    (~f x# ~val-to-update ~@params) 
    ~val-to-update)) 

user> (let [header-row :header 
      data-rows [:data1 :data2]] 
     (let [csv-data (update-when header-row data-rows cons)] 
      csv-data)) 
;;=> (:header :data1 :data2) 

user> (let [header-row nil 
      data-rows [:data1 :data2]] 
     (let [csv-data (update-when header-row data-rows cons)] 
      csv-data)) 
;;=> [:data1 :data2] 

非常に普遍的なもので、複雑な作業を実行してから単純なコンサインメントを行うことができます。たとえば、チェックが真実であれば、いくつかのcollを元に戻し、別のリストを連結したいとします。

user> (let [header-row :header 
      data-rows [:data1 :data2]] 
     (let [csv-data (update-when header-row data-rows 
            (fn [h d & params] (apply concat (reverse d) params)) 
            [1 2 3] ['a 'b 'c])] 
      csv-data)) 

;;=> (:data2 :data1 1 2 3 a b c) 

更新 @amalloyで気づいたように、このマクロが機能する必要があります：

(defn update-when [check val-to-update f & params] 
    (if check 
    (apply f check val-to-update params) 
    val-to-update)) 

Answer 4

は、それが通常の->>マクロのように動作しますcond->>マクロ

(let [csv_data (cond->> data_rows 
       header_row (cons header-row)] 
    ) 

を使用して、しかし、各スレッド形式の前に、そのスレッド形式gフォームが使用されます。

cond->もあります。スレッドマクロの詳細はこちらOfficial threading macros guide