Vamos decifrar!
Nota
Este é o desafio da descriptografia. O desafio da criptografia pode ser encontrado aqui .
Desafio
O desafio é descriptografar uma determinada string, usando as regras especificadas a seguir. A string conterá apenas letras minúsculas , dígitos e / ou espaços em branco . Se você quiser saber como a string de entrada foi criptografada, consulte este desafio!
Equivalente de um personagem
Agora, primeiro você precisa saber como encontrar o "equivalente" de cada personagem.
Se o caractere for uma consoante, esta é a maneira de encontrar seu equivalente:
1) List all the consonants in alphabetical order
b c d f g h j k l m n p q r s t v w x y z
2) Get the position of the consonant you are finding the equivalent of.
3) The equivalent is the consonant at that position when starting from the end.
por exemplo: 'h' e 't' são equivalentes um do outro porque 'h', 't' estão na 6ª posição do início e do fim, respectivamente.
O mesmo procedimento é seguido para encontrar o equivalente a vogais / dígitos. Você lista todas as vogais ou dígitos (começando em 0) em ordem e encontra o equivalente.
Dada a seguir está a lista dos equivalentes de todos os personagens:
b <-> z
c <-> y
d <-> x
f <-> w
g <-> v
h <-> t
j <-> s
k <-> r
l <-> q
m <-> p
n <-> n
a <-> u
e <-> o
i <-> i
0 <-> 9
1 <-> 8
2 <-> 7
3 <-> 6
4 <-> 5
Regras de descriptografia
Você começa com duas strings vazias, vamos chamá-las de
s1es2. Estaremos movendo da esquerda para a direita da string de entrada. No início, estaríamos considerando a primeira string vazia, ou sejas1,. Estaremos alternando entre as duas cordas sempre que encontrarmos uma vogal.Pegamos o equivalente ao caractere atual da string de entrada ou um espaço em branco se for um espaço em branco. Vamos chamar esse personagem
c.cagora está anexado à direita des1(se estivermos considerandos1atualmente) ou à esquerda des2(se estivermos considerandos2atualmente).Se esse caractere for uma vogal, mude para a outra string agora (
s1 <-> s2).Repita a etapa 2 (e 3 para vogais) para cada caractere na string de entrada.
Concatenar
s1es2eo resultado é a cadeia descodificada.
Agora, deixe-me descriptografar uma string para você.
String = "htioj ixej uy "
Initially, s1 = s2 = ""
Current: s1
Moving left to right
"h" -> "t" (s1 = "t")
"t" -> "h" (s1 = "th")
"i" -> "i" (s1 = "thi")
Vowel encountered. Switching to s2 now.
"o" -> "e" (s2 = "e")
Vowel encountered. Switching to s1 now.
"j" -> "s" (s1 = "this")
" " -> " " (s1 = "this ")
"i" -> "i" (s1 = "this i")
Vowel encountered. Switching to s2 now.
"x" -> "d" (s2 = "de") [Note that when dealing with s2, we append to the left]
"e" -> "o" (s2 = "ode")
Vowel encountered. Switching to s1 now.
"j" -> "s" (s1 = "this is"
" " -> " " (s1 = "this is ")
"u" -> "a" (s1 = "this is a")
Vowel encountered. Switching to s2 now.
"y" -> "c" (s2 = "code")
" " -> " " (s2 = " code")
Now, append s1 and s2 to get:
"this is a code"
Output -> "this is a code"
Exemplos
"wqcjmc" -> "flyspy"
"toek" -> "hero"
"toyike" -> "heroic"
"uo" -> "ae"
"uoz" -> "abe"
"htoo jmuy" -> "the space"
"uh68v8x " -> "a d1g13t"
"fo78i d" -> "we xi12"
"htioj ixej uy " -> "this is a code"
"jea ceeac hnx8x vni kokhj jiuth xoqqc xohmcky" -> "so you really decrypted this string d1dnt you"
Você também pode optar por usar letras maiúsculas em vez de letras minúsculas.
Pontuação
Este é o código de golfe , então o código mais curto vence!
Respostas
Gelatina , 29 bytes
ØḄ,ØẹØDṭ,U$F€yµe€ØẹŻœṗµ;ṚU$m2
Um programa completo que imprime o texto decodificado.
Como?
ØḄ,ØẹØDṭ,U$F€yµe€ØẹŻœṗµ;ṚU$m2 - Main Link: list, S
ØḄ - consonant characters
Øẹ - vowel characters
, - pair
ØD - digit characters
ṭ - tack -> ["bcd...","aeiou","012..."]
$ - last two links as a monad:
U - upend -> ["...dcb","uoiea","...210"]
, - pair -> [["bcd...","aeiou","012..."],["...dcb","uoiea","...210"]]
F€ - flatten each -> ["bcd...aeiou012...","...dcbuoiea...210"]
y - translate S using that map
µ - new monadic chain (i.e. f(A=that))
Øẹ - vowel characters
e€ - (for c in A) exists in (vowels)?
Ż - prepend a zero
œṗ - partition (A) before truthy elements (of that)
µ - new monadic chain (i.e. f(that))
...e.g.: f(["thi","e","s i","do","s a","c "])
$ - last two links as a monad:
Ṛ - reverse ["c ","s a","do","s i","e","thi"]
U - upend [" c","a s","od","i s","e","iht"]
; - concatenate ["thi","e","s i","do","s a","c "," c","a s","od","i s","e","iht"]
m2 - mod-2 slice ["thi", "s i", "s a", ," c", "od", "e" ]
- implicit, smashing print -> this is a code
JavaScript (ES6), 112 110 109 bytes
Espera uma série de personagens.
s=>s.map(c=>(C="bzcydxfwgvhtjskrlqmpnn aueoii",c=C[j=C.search(c)^1]||9-c,+s?b=c+b:a+=c,s^=j>23),a=b='')&&a+b
Como?
Procuramos o índice de cada caractere cna seguinte string de pesquisa:
0 1 2
012345678901234567890123456789
"bzcydxfwgvhtjskrlqmpnn aueoii"
Se o caractere não for encontrado, deve ser um dígito que é substituído por 9-c. Caso contrário, obtemos a posição do caractere da contraparte invertendo o bit menos significativo do índice.
Por exemplo: j→ 12→ 13→s
O novo caractere é anexado aou prefixado b.
Alternamos entre ae bsempre que o índice for maior que 23 - ou seja, cfor uma vogal.
Python, 226, 160 146 bytes
Eu sou bastante novo em python e queria tentar este desafio. Eu sei que muito disso pode ser melhorado usando lambda ou código simplificado. Estou mostrando meu código para obter feedback.
Obrigado a @Arnauld por me ajudar a aprender novas maneiras de codificar. Agora com 160 bytes
Mais entradas e refinamentos. Agora em 146.
def k(y):
x='aueoiibzcydxfwgvhtjskrlqmpnn0918273645 '
s=1
b=['']*2
for i in y:n=x.find(i);b[s]+=x[n+1-2*(n%2)];s^=n<6
print(b[1]+b[0][::-1])
Código Antigo:
def k(y):
x='aueoiibzcydxfwgvhtjskrlqmpnn0918273645 '
s=1
b=c=''
def a(t):
m=n+1 if n%2==0 else n-1;t+=x[m];return t
for i in y:
n=x.find(i)
if s:
b=a(b)
else:
c=a(c)
if n<=5:s=not s
b+=c[::-1]
print(b)
k('wqcjmc')
k('toek')
k('toyike')
k('uo')
k('uoz')
k('htoo jmuy')
k('uh68v8x ')
k('fo78i d')
k('htioj ixej uy ')
k('jea ceeac hnx8x vni kokhj jiuth xoqqc xohmcky')
Testou todos os itens da amostra e obteve a resposta correta.
"wqcjmc" -> "flyspy"
"toek" -> "hero"
"toyike" -> "heroic"
"uo" -> "ae"
"uoz" -> "abe"
"htoo jmuy" -> "the space"
"uh68v8x " -> "a d1g13t"
"fo78i d" -> "we xi12"
"htioj ixej uy " -> "this is a code"
"jea ceeac hnx8x vni kokhj jiuth xoqqc xohmcky" -> "so you really decrypted this string d1dnt you"
Retina 0.8.2 , 89 83 80 71 bytes
[aeiou]|$
$&¶
+`(¶.+)¶(.*)$
$2$1
O$^r`.\G
T`¶b-df-hj-maed\oup-tv-z_`Ro
Experimente online! O link inclui casos de teste. Isso acabou sendo mais fácil do que codificar, como demonstrado pelo fato de que fui capaz de codificá-lo no Retina 0.8.2 em vez de exigir o Retina 1. Explicação:
[aeiou]|$
$&¶
Divida a entrada em substrings que terminam em vogais. Uma divisão extra é forçada no final da string para que haja pelo menos duas linhas.
+`(¶.+)¶(.*)$
$2$1
Junte linhas alternadas, de modo que a primeira linha seja a concatenação de todas as linhas ímpares e a segunda linha seja a concatenação de todas as linhas pares.
r`.\G
Correspondendo apenas aos caracteres na última (segunda) linha ...
O$^`
.. inverter as correspondências, revertendo apenas a segunda linha.
T`¶b-df-hj-maed\oup-tv-z_`Ro
Junte as duas linhas e decodifique as letras. O Rofaz com que a string seja transliterada ao seu reverso. A consoante do meio ne a vogal são imapeadas para si mesmas, portanto, não precisam ser listadas. Os ¶mapas para o especial _, eliminando- o assim. As primeiras e últimas 10 consoantes e as duas primeiras e últimas vogais circundam os dígitos. ( oNormalmente, o é especial, por isso deve ser citado aqui.)
R , 190 bytes
function(i,`/`=strsplit){a=el(" 01234aeibcdfghjklmnpqrstvwxyziou98765 "/"")
names(a)=rev(a)
j=k=""
for(l in a[el(i/"")]){if(T)j=c(j,l)else k=c(l,k)
if(grepl(l,"aeiou"))T=!T}
cat(j,k,sep="")}
Nota para mim mesmo: aprenda uma nova linguagem , não R , para desafios baseados em texto de golfe ...
Comentado:
decrypt=function(i,
`/`=strsplit){ # use infix '/' as alias to strsplit function
a=el(" 01234aeibcdfghjklmnpqrstvwxyziou98765 "/"")
# a=vector of characters with equivalents at reverse index
names(a)=rev(a) # name characters by equivalent
j=k="" # initialize j,k as empty strings
for(l in a[el(i/"")]){ # for each input letter (split using /), find its equivalent l
if(T)j=c(j,l)else k=c(l,k) # if T=1 (initial value) append l to j, otherwise put it at start of k
if(grepl(l,"aeiou"))T=!T} # if it was a vowel, T=not T
cat(j,k,sep="")} # finally, output j,k
05AB1E , 27 26 bytes
žMIå0šÅ¡ι€S`R«žN‡žM‡žh‡
I / O como uma lista de personagens.
Experimente online ou verifique todos os casos de teste (com o I / O unido ao pretty-print).
Explicação:
žM # Push the vowels "aeiou"
Iå # Check for each character in the input-list if it's in the vowel string
# i.e. ["h","t","i","o","j"," ","i","x","e","j"," ","u","y"," "]
# → [0,0,1,1,0,0,0,1,0]
0š # Prepend a leading 0
# → [0,0,0,1,1,0,0,0,1,0]
Å¡ # Split the (implicit) input-string on the truthy values
# → [["h","t","i"],["o"],["j"," ","i"],["x","e"],["j"," ","u"],["y"," "]]
ι # Uninterleave the list of lists
# → [[["h","t","i"],["j"," ","i"],["j"," ","u"]],[["o"],["x","e"],["y"," "]]]
€S # Convert each inner list of lists to a flattened list of characters
# → [["h","t","i","j"," ","i","j"," ","u"],["o","x","e","y"," "]]
` # Push both lists of characters separated to the stack
# → ["h","t","i","j"," ","i","j"," ","u"] and ["o","x","e","y"," "]
R # Reverse the second string
# → ["h","t","i","j"," ","i","j"," ","u"] and [" ","y","e","x","o"]
« # Merge the two lists together
# → ["h","t","i","j"," ","i","j"," ","u"," ","y","e","x","o"]
žN # Push the consonants "bcdfghjklmnpqrstvwxyz"
 # Bifurcate it; short for Duplicate & Reverse copy
‡ # Transliterate the "bcdfghjklmnpqrstvwxyz" to "zyxwvtsrqpnmlkjhgfdcb"
# → ["t","h","i","s"," ","i","s"," ","u"," ","c","e","d","o"]
žM‡ # Do the same for the vowels "aeiou"
# → ["t","h","i","s"," ","i","s"," ","a"," ","c","o","d","e"]
žh‡ # And the digits "0123456789"
# → ["t","h","i","s"," ","i","s"," ","a"," ","c","o","d","e"]
# (after which the result is output implicitly)
Perl 5 -F , 110 bytes
map{push@{$o[$i]},y/0-9a-z/9876543210uzyxowvtisrqpnemlkjhagfdcb/r;$i^=/[aeiou]/}@F;say@{$o[0]},reverse@{$o[1]}