インタラクティブなポイントフリーの方法を教えてください。

Question

上記のコードでは、と対話する方法は、関数をポイントフリースタイルで記述することができます。ステップバイ

Answer 1

ステップ：

interact r = getContents >>= putStr . r 
interact r = (getContents >>=) (putStr . r) 
interact r = (getContents >>=) $ (putStr .) $ r 
interact = (getContents >>=) . (putStr .) 

Answer 2

最良の答えは：できません。この特定の例では、あなたのコードが読みにくくなるだけです。あなたの元の派手な変種は完全に上質です。

場合によっては、ポイントフリースタイルを避ける方がよい場合もあります。あなたの議論が線形のデータフローを受けないので、これもその1つです。むしろ何かのためにデータフローを構築するために使用されます。例：

-- Bad: Pointy linear data flow description. 
chunksOf :: Int -> [a] -> [[a]] 
chunksOf n xs = 
    takeWhile (not . null) (map (take n) (iterate (drop n) xs)) 

-- Good: Pointfree linear data flow description. 
chunksOf :: Int -> [a] -> [[a]] 
chunksOf n = 
    takeWhile (not . null) . map (take n) . iterate (drop n) 

-- Bad: Now exaggerating with pointfree style. 
chunksOf :: Int -> [a] -> [[a]] 
chunksOf = 
    liftA2 ((.) (.) . (.) $ takeWhile (not . null)) 
      (map . take) 
      (iterate . drop)