(x:xs) `isPermutation` ys = x `elem` ys && xs `isPermutation` delete x ys
(x:xs) `isPermutation` ys = x `elem` ys && xs `isPermutation` delete x ys
(x:xs) `isPermutation` ys = x `elem` ys && xs `isPermutation` delete x ys