We use cookies to ensure you have the best browsing experience on our website. Please read our cookie policy for more information about how we use cookies.
filterLessThan :: Int -> [Int] -> [Int]
filterLessThan _ [] = []
filterLessThan n (x:xs)
| x < n = x : filterLessThan n xs
| otherwise = filterLessThan n xs
main :: IO ()
main = do
n <- readLn :: IO Int
inputdata <- getContents
let
numbers = map read (lines inputdata) :: [Int]
putStrLn . unlines $ (map show . filterLessThan n) numbers
Thanks for sharing this valuable JavaScript filter; otherwise, I often encounter bugs and find myself having to visit OSCracks platforms that offer solutions to programming errors.
Cookie support is required to access HackerRank
Seems like cookies are disabled on this browser, please enable them to open this website
An unexpected error occurred. Please try reloading the page. If problem persists, please contact support@hackerrank.com
Filter Array
You are viewing a single comment's thread. Return to all comments →
filterLessThan :: Int -> [Int] -> [Int] filterLessThan _ [] = [] filterLessThan n (x:xs) | x < n = x : filterLessThan n xs | otherwise = filterLessThan n xs
main :: IO () main = do n <- readLn :: IO Int inputdata <- getContents let numbers = map read (lines inputdata) :: [Int] putStrLn . unlines $ (map show . filterLessThan n) numbers
Thanks for sharing this valuable JavaScript filter; otherwise, I often encounter bugs and find myself having to visit OSCracks platforms that offer solutions to programming errors.