120
правок
Изменения
→subsequences
==Метод Ньютона==
==subsequences==
subsequences :: List a -> List (List a)
subsequences Nil = Cons Nil Nil
subsequences xs = (subseqtoend xs) ++ (subseqtoend (init xs))
where
subseqtoend :: List a -> List (List a)
subseqtoend Nil = Nil
subseqtoend (Cons x xs) = (Cons (Cons x xs) (subseqtoend(xs)))
==permutations==
permutations :: List a -> List (List a)
