Initial data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · f23f22d71c
commit f23f22d71c
parent 72d218235f
199087 changed files with 3378941 additions and 0 deletions
--- a/Task/Shortest-common-supersequence/Haskell/shortest-common-supersequence.hs
+++ b/Task/Shortest-common-supersequence/Haskell/shortest-common-supersequence.hs
@ -0,0 +1,13 @@
+scs :: Eq a  => [a] -> [a] -> [a]
+scs [] ys = ys
+scs xs [] = xs
+scs xss@(x:xs) yss@(y:ys)
+  | x == y = x : scs xs ys
+  | otherwise = ws
+      where
+      us = scs xs yss
+      vs = scs xss ys
+      ws  | length us < length vs = x : us
+          | otherwise = y : vs
+
+main = putStrLn $ scs "abcbdab" "bdcaba"