次の Haskell コードを移植しようとしています ( http://codepad.org/MMydRCxo )
foo :: Int -> Int -> Int -> Maybe Bool
foo a b c = if a == 1 then Just True else Nothing
bar :: Int -> Int -> Bool
bar b c = maybe False id $ foo 1 b c
-- point free
bar' :: Int -> Int -> Bool
bar' = ((maybe False id $) .) . foo 1
main = do
print $ bar 2 3
print $ bar' 2 3
エルムに行きましたが、まだ運がありませんでした。( http://share-elm.com/sprout/5271f160e4b03cf6e675bc97 )
foo : Int -> Int -> Int -> Maybe Bool
foo a b c = if a == 1 then Just True else Nothing
bar : Int -> Int -> Bool
bar b c = maybe False id <| foo 1 b c
-- point free
bar' : Int -> Int -> Bool
bar' = ((maybe False id <|) .) . foo 1
main = flow down [
asText <| bar 2 3
, asText <| bar' 2 3]
Elmでこの作業ポイントを無料にする可能性がある場合、何かアイデアはありますか? :)
ドビ