tasks a-s

2013-04-10 23:57:08 -07:00 · 2013-04-10 23:57:08 -07:00 · b83f433714
commit b83f433714
parent 47bf37c096
12433 changed files with 156208 additions and 123 deletions
--- a/Task/Non-continuous-subsequences/Haskell/non-continuous-subsequences-2.hs
+++ b/Task/Non-continuous-subsequences/Haskell/non-continuous-subsequences-2.hs
@ -0,0 +1,4 @@
+continuous = null . dropWhile not . dropWhile id . dropWhile not
+ncs xs = map (map fst . filter snd . zip xs) $
+           filter (not . continuous) $
+             mapM (const [True,False]) xs