Permalink
Browse files

Merge branch 'master' of https://github.com/MAnyKey/haskell-course-ru

  • Loading branch information...
oxij committed Sep 20, 2012
2 parents cf7cff2 + ec6638d commit 1d766d84b2b19a7429eba14efe2605ab6532321a
Showing with 3 additions and 2 deletions.
  1. +3 −2 ITMOPrelude/List.hs
View
@@ -70,11 +70,12 @@ takeWhile = undefined
dropWhile :: (a -> Bool) -> List a -> List a
dropWhile = undefined
--- Разбить список в пару (найбольший префикс удовлетворяющий p, всё остальное)
+-- Разбить список по предикату на (takeWhile p xs, dropWhile p xs),
+-- но эффективнее
span :: (a -> Bool) -> List a -> Pair (List a) (List a)
span p = undefined
--- Разбить список по предикату на (takeWhile p xs, dropWhile p xs),
+-- Разбить список по предикату на (takeWhile (not . p) xs, dropWhile (not . p) xs),
-- но эффективнее
break :: (a -> Bool) -> List a -> Pair (List a) (List a)
break = undefined

0 comments on commit 1d766d8

Please sign in to comment.