Home/ Questions/Q 6609101
In Process

The Archive Base Latest Questions

Editorial Team
  • 0
Asked: 2026-05-25T19:40:48+00:00

shortLinesOnly :: IO () shortLinesOnly = interact result where shortLength = 11 onlyShorts =

  • 0
shortLinesOnly :: IO ()
shortLinesOnly = interact result
    where
        shortLength     = 11
        onlyShorts      = (<= shortLength) . length
        shortLines      = filter onlyShorts . lines
        result          = unlines . shortLines
        interact result = getContents >>= putStr . result

In the above code how can I write the interact function in point free style.

Share

Leave an answer

You must login to add an answer.

Need An Account,

1 Answer

  1. Editorial Team

    Step by step:

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