17 lines
397 B
Haskell
17 lines
397 B
Haskell
|
module Reverse where
|
||
|
|
|
||
|
|
main :: IO ()
|
||
|
|
main = print $ rvrs "Curry is awesome"
|
||
|
|
|
||
|
|
rvrs :: String -> String
|
||
|
|
rvrs x = wAwesome ++ wIs ++ wCurry
|
||
|
|
where
|
||
|
|
wCurry = take currySize x
|
||
|
|
wIs = drop currySize . reverse . drop awesomeSize . reverse $ x
|
||
|
|
wAwesome = reverse . take awesomeSize . reverse $ x
|
||
|
|
currySize = 5
|
||
|
|
awesomeSize = 7
|
||
|
|
|
||
|
|
rvrs' :: String -> String
|
||
|
|
rvrs' = unwords . reverse . words
|