Data update

Task/Abbreviations-automatic/EasyLang/abbreviations-automatic.easy

@@ -0,0 +1,30 @@
+proc abbrev s$ .
+   d$[] = strtok s$ " "
+   repeat
+      lng += 1
+      for i to len d$[] - 1
+         a$ = substr d$[i] 1 lng
+         for j = i + 1 to len d$[]
+            if substr d$[j] 1 lng = a$ : break 2
+         .
+      .
+      until i = len d$[]
+   .
+   print lng & ": " & s$
+.
+repeat
+   s$ = input
+   if s$ = ""
+      print s$
+      s$ = input
+   .
+   until s$ = ""
+   abbrev s$
+.
+#
+input_data
+Sunday Monday Tuesday Wednesday Thursday Friday Saturday
+Sondag Maandag Dinsdag Woensdag Donderdag Vrydag Saterdag
+E_djelë E_hënë E_martë E_mërkurë E_enjte E_premte E_shtunë
+Ehud Segno Maksegno Erob Hamus Arbe Kedame
+Al_Ahad Al_Ithinin Al_Tholatha'a Al_Arbia'a Al_Kamis Al_Gomia'a Al_Sabit