[Haskell-beginners] Translating a while

[Yitzchak Gale]

> j xs = maybeLast . filter snd . zip [0..] $ zipWith (<) xs (drop 1 xs)
>  where
>    maybeLast [] = Nothing
>    maybeLast xs = Just (last xs)

Make that j xs = fmap fst . maybeLast . ... etc.

-Yitz