From d1c691d684a755e31cf0305dc0bb3e09aab4e29c Mon Sep 17 00:00:00 2001
From: Gauravsingh Sisodia <65955464+gauravsingh5@users.noreply.github.com>
Date: Tue, 30 Mar 2021 17:09:02 +0530
Subject: [PATCH] Add Haskell subSequences (#121)

* Add Haskell Sequence

* Add type signature for the function

* Add aim of sequence.hs program

Co-authored-by: Arsenic <54987647+Arsenic-ATG@users.noreply.github.com>
---
 strings/README.md           | 3 ++-
 strings/haskell/sequence.hs | 8 ++++++++
 2 files changed, 10 insertions(+), 1 deletion(-)
 create mode 100644 strings/haskell/sequence.hs

diff --git a/strings/README.md b/strings/README.md
index 39e1a7ac..7101b987 100644
--- a/strings/README.md
+++ b/strings/README.md
@@ -34,5 +34,6 @@
 
 ### Haskell
 
-1. [Palin Check](haskell/palindrome.hs)
+1. [Palindrome Check](haskell/palindrome.hs)
+2. [All subsequences](haskell/sequence.hs)
 
diff --git a/strings/haskell/sequence.hs b/strings/haskell/sequence.hs
new file mode 100644
index 00000000..f7232d96
--- /dev/null
+++ b/strings/haskell/sequence.hs
@@ -0,0 +1,8 @@
+-- program to generate all subsequences of a sequence
+
+import Control.Monad (filterM)
+
+findSubSequences :: String -> [String]
+findSubSequences = filterM $ const [True, False] 
+
+main = traverse print $ findSubSequences "abc"