ハスケル

Question

に2つの複素数を追加すると、私はこのようなHaskellの中に2つの複素数の追加製：

data Complex = C 
{ realC :: Double 
, imgC :: Double 
} deriving Show 


addC :: Complex -> Complex -> Complex 
addC (C a b) (C c d)= C (a+c) (b+d) 

私の質問です：私は、上記の関数（ADDC）はポイントフリーにすることはできますか？

Answer 1

うん：明らか

addC = ap (ap . (C .) . (. realC) . (+) . realC) ((. imgC) . (+) . imgC) 

私はこれをお勧めしません。 ＃haskell IRCチャンネルでlambdabotにポイントフリーのものを依頼するか、自分でダウンロードして使ってください。from Hackageこれは、上記の定義を得るために実行したコマンドです。

?pl addC l r = C (realC l + realC r) (imgC l + imgC r) 

ただし、手作業で行うと、より読みやすい結果を得ることができます。例：

addC = liftA2 (liftA2 C) ((+) `on` realC) ((+) `on` imgC) 

この多少の解読可能なバージョンでも、私はあなたが書いたコードを強く好みます。あなたのコードはシンプルですが、それが何をしているのかは驚くほど明白です。そのスタイルは、コードを間違ってしまうのを難しくします。