Viewing:
..
/
~neallred
/
haskell-programming
/
reverse.hs
/
module Reverse where rvrs :: String -> String rvrs "" = "" rvrs x = drop (length x - 1) x ++ rvrs (take (length x - 1) x) main :: IO () main = print $ rvrs "Curry is asesome"