purescript - max の検索と Int への変換を行うよりエレガントな方法はありますか

Question

次の関数が与えられた場合

maxInt :: Array Number -> Int
maxInt xs = fromMaybe 0 $ join $ fromNumber <$> maximum xs

maxInt [ 2.0, 4.0, 1.0, 5.0 ] => 5

これを行うためのよりエレガントな方法はありますか？剥ぎ取りがMaybe多い

Answer 1

最初に入力全体に適用してから、そのリストfromNumberの最大値を取ります。このようにして、無効な値はすべて最初に変換され、無視されます。Nothingmaximum

maxInt = fromMaybe 0 . maximum . (map fromNumber)

(これは;Ord a => Maybe aのインスタンスであるため機能し、値はどの値よりも小さく、値は基になる値によって順序付けられます。)OrdNothingJustJust

これにより、潜在的なバグも修正されfromNumber (maximum xs) == Nothingます。その場合、ではなくmaxInt、わずかに小さい値があったとしても、 は 0 を返しyます。fromNumber yNothing

Answer 2

デフォルトのケース 0 でそれを処理してもよろしいですか? もしそうなら、あなたは探していますmaxInt xs = fromMaybe 0 $ fromNumber =<< maximum xs。そうでない場合は、Maybe をそのままにして、 のようにしmaxInt = fromNumber <=< maximumます。