Haskell

Estou extremamente orgulhosa disto:

ultimos3 :: [a] -> (a,a,a)

ultimos3 (a:as) = (x,y,z)

where x= last (init (init as))

y= last (init as)

  z= last as 

Acho que isto quer dizer que, oficialmente, sou uma geek...