import List

siteswapValidator x =
    (length x) == (length $ nub $
                          zipWith (\y z -> (y + z) `mod` (length x)) x [1..])