Надо получить все беспорядки [0..n], то есть все перестановки этого списка где ни один элемент не стоит на своем исходном месте.

disorders n = filter (and . (zipWith (/=) [0..n])) (permutations [0..n])

А можно ли не фильтровать, а сразу строить только нужные перестановки?