| CARVIEW |
Select Language
HTTP/2 200
date: Mon, 13 Oct 2025 16:28:48 GMT
content-type: text/html; charset=UTF-8
server: cloudflare
x-frame-options: DENY
x-content-type-options: nosniff
x-xss-protection: 1;mode=block
vary: accept-encoding
cf-cache-status: DYNAMIC
content-encoding: gzip
set-cookie: _csrf-frontend=5d1b7d4c6b993ff5cc1f20ecdcb46c37191fb2ff48adbedfdecafaf7f26c4e9aa%3A2%3A%7Bi%3A0%3Bs%3A14%3A%22_csrf-frontend%22%3Bi%3A1%3Bs%3A32%3A%22A5FcF3fjfpO8-xNkr5gP_zlcSx2hZO3D%22%3B%7D; HttpOnly; Path=/
cf-ray: 98e036518b3125e0-BLR
Ninety-Nine Haskell Problems: #5 - Pastebin.com
SHARE
TWEET
Ninety-Nine Haskell Problems: #5
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- -- H-99: Ninety-Nine Haskell Problems: Problem 5: Reverse a list.
- import Data.List (sortOn)
- e1 :: String
- e1 = "A man, a plan, a canal, panama!"
- e2 :: [Int]
- e2 = [1,2,3,4]
- e3 :: [()]
- e3 = []
- main :: IO ()
- main = do
- printTestList [e1]
- printTestList [e2]
- printTestList [e3]
- printTestList :: Show a => [[a]] -> IO ()
- printTestList list = mapM_ print
- $ zip ([1 .. ] :: [Int])
- $ functionsList <*> list
- functionsList :: [[a] -> [a]]
- functionsList = [one, two, three, four, five, six, seven, eight, nine, ten, eleven]
- one :: [a] -> [a]
- one = reverse
- two :: [a] -> [a]
- two [] = []
- two (x:xs) = two xs ++ [x]
- three :: [a] -> [a]
- three [] = []
- three list = three (tail list) ++ [head list]
- four :: [a] -> [a]
- four = foldl (flip (:)) []
- five :: [a] -> [a]
- five [] = []
- five list = last list : five (init list)
- six :: [a] -> [a]
- six list = aux (length list - 1) list
- where
- aux _ [] = []
- aux index lst = drop index lst ++ aux (index - 1) (take index lst)
- seven :: [a] -> [a]
- seven [] = []
- seven list = aux list (length list - 1)
- where
- aux lst 0 = [head lst]
- aux lst index = lst !! index : aux lst (index - 1)
- eight :: [a] -> [a]
- eight list = map snd
- $ sortOn fst
- $ zip [(length list - 1), (length list - 2) .. 0] list
- nine :: [a] -> [a]
- nine [] = []
- nine list = map (list !!) [u, p .. 0]
- where
- u = length list - 1
- p = length list - 2
- ten :: [a] -> [a]
- ten [] = []
- ten list = [u, p .. 0] >>= (\i -> [list !! i])
- where
- u = length list - 1
- p = length list - 2
- eleven :: [a] -> [a]
- eleven [] = []
- eleven list = [list !! x
- | x <- [length list - 1, length list - 2 .. 0]]
- -- (1,"!amanap ,lanac a ,nalp a ,nam A")
- -- (2,"!amanap ,lanac a ,nalp a ,nam A")
- -- (3,"!amanap ,lanac a ,nalp a ,nam A")
- -- (4,"!amanap ,lanac a ,nalp a ,nam A")
- -- (5,"!amanap ,lanac a ,nalp a ,nam A")
- -- (6,"!amanap ,lanac a ,nalp a ,nam A")
- -- (7,"!amanap ,lanac a ,nalp a ,nam A")
- -- (8,"!amanap ,lanac a ,nalp a ,nam A")
- -- (9,"!amanap ,lanac a ,nalp a ,nam A")
- -- (10,"!amanap ,lanac a ,nalp a ,nam A")
- -- (11,"!amanap ,lanac a ,nalp a ,nam A")
- -- (1,[4,3,2,1])
- -- (2,[4,3,2,1])
- -- (3,[4,3,2,1])
- -- (4,[4,3,2,1])
- -- (5,[4,3,2,1])
- -- (6,[4,3,2,1])
- -- (7,[4,3,2,1])
- -- (8,[4,3,2,1])
- -- (9,[4,3,2,1])
- -- (10,[4,3,2,1])
- -- (11,[4,3,2,1])
- -- (1,[])
- -- (2,[])
- -- (3,[])
- -- (4,[])
- -- (5,[])
- -- (6,[])
- -- (7,[])
- -- (8,[])
- -- (9,[])
- -- (10,[])
- -- (11,[])
Advertisement
Add Comment
Please, Sign In to add comment
-
⭐⭐⭐MAKE $1000 INSTANTLY⭐⭐
Java | 1 sec ago | 0.15 KB
-
📝 EASY MONEY GUIDE ✅ Working R
JavaScript | 3 sec ago | 0.25 KB
-
💎 ChangeNOW Exploit
JavaScript | 10 sec ago | 0.24 KB
-
📌 Instant BTC Profit Method ✅ Working E
JavaScript | 11 sec ago | 0.25 KB
-
⭐⭐⭐Make $15OO in 2O minutesV E⭐⭐
Java | 12 sec ago | 0.15 KB
-
⭐⭐⭐Make $15OO in 2O minutesV E⭐⭐
Java | 12 sec ago | 0.15 KB
-
✅ Make $2500 in 20 minutes⭐ X
JavaScript | 18 sec ago | 0.25 KB
-
🚀 Swapzone +37% glitch
JavaScript | 20 sec ago | 0.24 KB
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
