>>824
suffixArray :: [a] -> [[a]]
suffixArray xs = map (\ i -> drop i xs) [0..(length xs) - 1]

これでどやろか。