Código: Seleccionar todo
reverse'::[a] -> [a]
reverse' [] = []
reverse' xs = last xs:reverse' (init xs)
muestra:
Código: Seleccionar todo
GHCi, version 7.6.3: http://www.haskell.org/ghc/ :? for help
Loading package ghc-prim ... linking ... done.
Loading package integer-gmp ... linking ... done.
Loading package base ... linking ... done.
[1 of 1] Compiling Main ( C:\Documents and Settings\Strup\Mis docume
ntos\Reverse.hs, interpreted )
Ok, modules loaded: Main.
*Main> putStrLn (reverse' "puta")
atup
*Main>