Haskell获取列表的第一个Char并附加到该列表的末尾

Question

鉴于:

mangle :: String -> String

我想做的事情如下:

mangle xs = head xs -- works if you change typesig to [a] -> a

但:

mangle xs = tail xs ++ head xs -- won't work at all!

想要在该列表的末尾追加列表的第一个字符,删除第一个字符.

Answer 1

一个非常直接的解决方案可能如下所示:

mangle :: String -> String
mangle [] = []
mangle (x:xs) = xs ++ [x]