例外の後にマップの部分的な結果を取得

Question

実行中に例外が発生したときに、マップから部分的な結果を得る方法はありますか？

すなわち

(let [numbers [3 3 0 3] 
    results (map #(/ 3 %) numbers)] 
results) 

と返す：たとえば

[3 3] 

Answer 1

：スローされた例外は、あなたのケースで（例外がキャッチされた場所までのスタックを戻し

(let [numbers [3 3 0 3] 
     results (map 
       #(try (/ 3 %) 
        (catch Exception e e)) 
        numbers)] 
    (take-while #(not (instance? Exception %)) results)) 

Answer 2

ので、それはトップレベルに上がる）、その後にresultで操作することはできません。あなたは何ができるか、手動でエラーがキャッチされたいくつかの値を置くことです：

(let [numbers [3 3 0 3] 
     results (take-while number? 
          (map #(try 
            (/ 3 %) 
            (catch Throwable ex :error)) 
           numbers))] 
    results) 

Answer 3

使用keep：

(let [numbers [3 3 0 3]] 
    (keep #(try 
      (/ 3 %) 
      (catch RuntimeException _ nil)) numbers)) 

Answer 4

ここcatsライブラリのexceptionモナドを使ったアプローチです：

(ns your-project.core 
    (:require [cats.monad.exception :as e])) 

(let [numbers [3 3 0 3] 
     results (->> numbers 
        (map #(e/try-on (/ 3 %))) ; wrap division result in a try 
        (take-while e/success?) ; take values while successful 
        (mapv e/extract))]  ; unwrap the values from the trys 
    results) 

;; => [1 1] 

例外の後の値を保持する場合は、

(let [numbers [3 3 0 3] 
     results (->> numbers 
        (map #(e/try-on (/ 3 %))) 
        (filter e/success?)  ; filter all successful values 
        (mapv e/extract))] 
    results) 

;; => [1 1 1]