Функция, которая к каждому элементу уже заданного списка прибавляет число, введенное с клавиатуры

task :: [Int] -> Int -> [Int]
task x n = map (max (n*2)) $ map (+ n) x
 
Main> task [1,2,3,4,5,6,7] 5
[10,10,10,10,10,11,12]

task :: (Functor f, Num a, Ord a, Read a) => f a -> IO (f a)
task lst = do putStrLn "Введите число: "
              n <- fmap read getLine
              return $ fmap (max (n*2) . (+n)) lst

import System.IO
 
task :: (Real a, Read a) => [a] -> IO [a]
task lst = do putStrLn "Введите число: "
              hFlush stdout
              n <- readLn 
              return $ map (max (n*2) . (+n)) lst

import System.IO
import Control.Monad
 
askReal :: (Real a, Read a) => IO a
askReal = putStrLn "Введите число: " >> 
          hFlush stdout >>
          readLn
 
calc :: (Functor f, Real a) => a -> f a -> f a
calc n = fmap (max (n*2) . (+n)) 
 
task :: (Functor f, Real a, Read a) => f a -> IO (f a)
task lst = fmap calc askReal `ap` return lst
 
main = task [1,2,3,4,5,6,7]

import System.IO
import Control.Applicative
 
askReal :: (Real a, Read a) => IO a
askReal = putStrLn "Введите число: " >> 
          hFlush stdout >>
          readLn
 
calc :: (Functor f, Real a) => a -> f a -> f a
calc n = fmap (max (n*2) . (+n)) 
 
task :: (Functor f, Real a, Read a) => f a -> IO (f a)
task lst = calc <$> askReal <*> return lst