Data update

Task/Longest-common-subsequence/EasyLang/longest-common-subsequence.easy

@@ -0,0 +1,26 @@
+func$ right a$ n .
+   return substr a$ -n n
+.
+func$ left a$ n .
+   if n < 0
+      n = len a$ + n
+   .
+   return substr a$ 1 n
+.
+func$ lcs a$ b$ .
+   if len a$ = 0 or len b$ = 0
+      return ""
+   .
+   if right a$ 1 = right b$ 1
+      return lcs left a$ -1 left b$ -1 & right a$ 1
+   .
+   x$ = lcs a$ left b$ -1
+   y$ = lcs left a$ -1 b$
+   if len x$ > len y$
+      return x$
+   else
+      return y$
+   .
+.
+print lcs "1234" "1224533324"
+print lcs "thisisatest" "testing123testing"