Data update

Task/Substitution-cipher/EasyLang/substitution-cipher.easy

@@ -1,26 +1,22 @@
-alpha$[] = strchars "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
-key$[] = strchars "VsciBjedgrzyHalvXZKtUPumGfIwJxqOCFRApnDhQWobLkESYMTN"
+alpha$ = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
+key$ = "VsciBjedgrzyHalvXZKtUPumGfIwJxqOCFRApnDhQWobLkESYMTN"
 #
-proc subst in$ . out$ a$[] b$[] .
+proc subst in$ . out$ a$ b$ .
    out$ = ""
    for c$ in strchars in$
-      for i to len a$[]
-         if a$[i] = c$
-            out$ &= b$[i]
-            break 1
-         .
-      .
-      if i > len a$[]
-         out$ &= c$
+      p = strpos a$ c$
+      if p > 0
+         c$ = substr b$ p 1
       .
+      out$ &= c$
    .
 .
 func$ enc s$ .
-   subst s$ r$ alpha$[] key$[]
+   subst s$ r$ alpha$ key$
    return r$
 .
 func$ dec s$ .
-   subst s$ r$ key$[] alpha$[]
+   subst s$ r$ key$ alpha$
    return r$
 .
 c$ = enc "Hello world"