Data update

Task/Longest-common-substring/Refal/longest-common-substring.refal

@@ -0,0 +1,18 @@
+$ENTRY Go {
+    = <Prout <LCS ('thisisatest') 'testing123testing'>>;
+};
+
+LCS {
+    (e.X) e.L e.X e.R = e.X;
+    ()    e.Y         = ;
+    e.X   e.Y, e.X: (s.L e.XL),
+               e.X: (e.XR s.R)
+        = <Longest (<LCS (e.XL) e.Y>) <LCS (e.XR) e.Y>>;
+};
+
+Longest {
+    (e.X) e.Y, <Lenw e.X>: s.LX e.X2,
+               <Lenw e.Y>: s.LY e.Y2,
+               <Compare s.LX s.LY>: '+' = e.X;
+    (e.X) e.Y = e.Y;
+};