Untitled

From Scorching Giraffe, 10 Years ago, written in Lua, viewed 779 times.
URL https://paste.godclan.hu/view/S-F1wjeh Embed
Download Paste or View Raw
  1. local betuk_eredeti = {"BOVNRKBFNAYXIHZGJODDFCHS",
  2. "BLZTKJMLODFVGRTOPMRYXAOP",
  3. "ORULTDILISSZERELEMIRCHMK",
  4. "SQBECUIKLOWNRJTHLVVAGAIN",
  5. "RJCJVQDFBGAIORUCFHEJOTHT",
  6. "TSGIZARKYNXEDFCHJNGTZAVD",
  7. "RKIOWALVBGFTFDAKHZAJOLRP",
  8. "KBFNACBERDAIERTXHBZMKOGZ",
  9. "KGTBJEGENGSZTEROSZTAGMJW",
  10. "YZSCNDUXDTTHDAVCNJUKLAXT",
  11. "YHYFTGTPJUINPRZFDMVGGRIP",
  12. "MFQELIRNVGMNUTAMGRZDRNVE",
  13. "AHILACOKSACKETHJMXHJNYFR",
  14. "PVBNUNUSTZSMLODFVSNSWEZT",
  15. "ASZERELMUNKLAPJAIKVNBKKA",
  16. "ZUILLOTKTANLSXRGCASERAFC",
  17. "ZDXSFJNLKGAABRLFUHYSQBLD",
  18. "HTNOANGKHRJPZZUDZFZPHAGN",
  19. "KHTNASVZRCEFTOLKJOVNGNAT",
  20. }
  21.  
  22. local szavak_eredeti = {
  23.     "gengszterosztag",
  24.     "veresromanc",
  25.     "plasztikszerelem",
  26.     "tores",
  27.     "felnelson",
  28.     "szobatarsak",
  29.     "afiatalkoru",
  30.     "ahihetetlen",
  31.     "alomsuli",
  32.     "bluevalentine"
  33. }
  34.  
  35. local betuk, szavak = {}, {}
  36.  
  37. for i=1,#betuk_eredeti do
  38.     local t = {betuk_eredeti[i]:byte(1, -1)}
  39.     table.sort(t)
  40.     betuk[i] = t
  41. end
  42.  
  43. for i=1,#szavak_eredeti do
  44.     local t = {szavak_eredeti[i]:upper():byte(1, -1)}
  45.     table.sort(t)
  46.     szavak[i] = t
  47. end
  48.  
  49. for i=1,#szavak do
  50.     local szo = szavak[i]
  51.     local szohossz = #szo
  52.     for j=1,#betuk do
  53.         local ozs = betuk[j]
  54.         local n = 1
  55.         for j=1,#ozs do
  56.             if szo[n] == ozs[j] then
  57.                 if n == szohossz then
  58.                     n = -1
  59.                     break
  60.                 end
  61.                 n = n + 1
  62.             end
  63.         end
  64.         if n == -1 then
  65.             print(i, szavak_eredeti[i], j, betuk_eredeti[j])
  66.             break -- ez kell ide?
  67.         end
  68.     end
  69. end
  70.  

Reply to "Untitled"

Here you can reply to the paste above