Me encanta este simple cifrado, es muy divertido leer palabras que no son del todo legibles para los humanos y llenar los vacíos ...

Ot wes thi bist uf tomis, ot wes thi wurst uf tomis, 
ot wes thi egi uf wosdum, ot wes thi egi uf fuuloshniss, 
ot wes thi ipuch uf biloif, ot wes thi ipuch uf oncridaloty, 
ot wes thi siesun uf loght, ot wes thi siesun uf derkniss, 
ot wes thi sprong uf hupi, ot wes thi wontir uf dispeor, 
wi hed ivirythong bifuri as, wi hed nuthong bifuri as, 
wi wiri ell guong dorict tu hievin, wi wiri ell guong dorict thi uthir wey – 
on shurt, thi piroud wes su fer loki thi prisint piroud, 
thet sumi uf ots nuosoist eathurotois onsostid un ots biong riciovid, 
fur guud ur fur ivol, on thi sapirletovi digrii uf cumperosun unly.

Las reglas son súper simples:

• Acepte texto como entrada (caracteres ascii, letras mayúsculas / minúsculas y puntuación).
• Para cada vocal, gírela a la siguiente vocal o regrese al inicio.
  • a => e
  • e => i
  • i => o
  • o => u
  • u => a
• Las vocales mayúsculas permanecen en mayúsculas, las vocales minúsculas permanecen en minúsculas.
• Salida del texto después de estas conversiones.
• No es necesario admitir acentos.
• Los demás personajes deben permanecer sin cambios.
• Intenta hacerlo en el menor número de bytes.
• Cualquier idioma antiguo que te guste.

Casos de prueba

It was the best of times, it was the worst of times,
it was the age of wisdom, it was the age of foolishness,
it was the epoch of belief, it was the epoch of incredulity,
it was the season of light, it was the season of darkness,
it was the spring of hope, it was the winter of despair,
we had everything before us, we had nothing before us,
we were all going direct to heaven, we were all going direct the other way –
in short, the period was so far like the present period,
that some of its noisiest authorities insisted on its being received,
for good or for evil, in the superlative degree of comparison only.

Fuera:

Ot wes thi bist uf tomis, ot wes thi wurst uf tomis, 
ot wes thi egi uf wosdum, ot wes thi egi uf fuuloshniss, 
ot wes thi ipuch uf biloif, ot wes thi ipuch uf oncridaloty, 
ot wes thi siesun uf loght, ot wes thi siesun uf derkniss, 
ot wes thi sprong uf hupi, ot wes thi wontir uf dispeor, 
wi hed ivirythong bifuri as, wi hed nuthong bifuri as, 
wi wiri ell guong dorict tu hievin, wi wiri ell guong dorict thi uthir wey – 
on shurt, thi piroud wes su fer loki thi prisint piroud, 
thet sumi uf ots nuosoist eathurotois onsostid un ots biong riciovid, 
fur guud ur fur ivol, on thi sapirletovi digrii uf cumperosun unly.

En:

The quick brown fox jumps over the lazy dog.

Fuera:

Thi qaock bruwn fux jamps uvir thi lezy dug.

En:

Home is where the heart is.

Fuera:

Humi os whiri thi hiert os.

En:

Boaty McBoatface

Fuera:

Buety McBuetfeci

En:

AEIOUaeiou

Fuera:

EIOUAeioua

En:

Programming Puzzles And Code Golf

Fuera:

Prugremmong Pazzlis End Cudi Gulf

Stax , 7 bytes

öΦΣòC└∞

Ejecutar y depurarlo

Pruébalo en línea!

Explicación (sin embalaje)

Vv:tVV:t
Vv:t           #Push aeiou and ring translate it to input
    VV:t       #Push AEIOU and ring translate it to input

Podría ahorrar más, seguirá intentándolo.

MS-SQL, 51 bytes

Funciona en SQL 2017 o superior:

SELECT TRANSLATE(v,'AEIOUaeiou','EIOUAeioua')FROM t

La nueva función TRANSLATErealiza el reemplazo de personajes individuales, por lo que es ideal para este desafío.

La entrada es a través de una tabla t preexistente con la columna varchar v , según nuestras reglas de IO .

En este caso, la tabla debe crearse utilizando una intercalación entre mayúsculas y minúsculas , ya sea ejecutándose en un servidor sensible a mayúsculas o minúsculas o utilizando la COLLATEpalabra clave (sin contar para el total de caracteres):

CREATE TABLE t(v varchar(max) COLLATE Latin1_General_CS_AS)

EDITAR : SSMS puede cortar la larga cita anterior al devolver el resultado en una ventana de "resultados a texto", esta es una configuración del cliente, no un error en mi programa .

Para solucionarlo, vaya Tools > Options > Query Results > SQL Server > Results to Texty aumente el "Número máximo de caracteres que se muestran en cada columna".

Bash + coreutils , 24

tr aeiouAEIOU eiouaEIOUA

Pruébalo en línea!

Haskell , 52 bytes

(a:b)!c|a/=c=b!c|1>0=b!!0
a!b=b
map("aeiouaAEIOUA"!)

Pruébalo en línea!

Lynn me ahorró dos bytes al señalar que !!0es más corto que head.

Explicación

Si nunca ha codificado en Haskell, esto probablemente se verá como un montón de bromas. Así que primero eliminemos el golf y luego analicemos:

(a:b)!c
 |   a/=c   = b!c
 |otherwise = b!!0
a!b=b
map("aeiouaAEIOUA"!)

Primero tenemos una función !, que toma una cadena sy un carácter c. Nuestras primeras capturas de coincidencia de patrones aceptan entradas si la cadena no está vacía. Si la cadena no está vacía, comparamos su primer carácter con c. Si su primer carácter no es igual a lo ctiramos y llamamos !nuevamente con el resto de la cadena yc . Si es igual, devolvemos el segundo carácter en la cadena.

Nuestra próxima coincidencia de patrones atrapa la cadena en todos los demás casos, es decir, si la cadena está vacía. En este caso acabamos de regresar c.

En general, esta función toma un carácter cy una cadena sy devuelve el carácter después de la primera aparición de cin s. Si pasamos esto con aeiouaAEIOUAél, realizaremos nuestro cifrado en un solo personaje. Para hacer toda nuestra función, debemos mapear esto a través de la cadena.

Retina ,10 9 9 8 bytes

T`uo`vVA

Pruébalo en línea!

¡Guardado 1 byte gracias a Neil! ¡Y otro byte gracias a Martin!

La nueva versión de retina tiene clases de vocales, lo que hace que el resultado sea un poco más corto. La transliteración también hace uso de la clase "otro". Entonces la toclase se ve como "aeiouAEIOUA" mientras que la fromclase se ve como "uaeiouAEIOUA"

Esto no causa ningún problema ya que la segunda uasignación Anunca se realizará ya que uya se asignó a.

Perl 5 + -p, 24 23 bytes

y;AEIOUaeiou;EIOUAeioua

Pruébalo en línea

-1 byte gracias a @DomHastings

Python 3, 62 bytes

lambda x:x.translate(str.maketrans('aeiouAEIOU','eiouaEIOUA'))

Haga una tabla de traducción (diccionario) con strel str.maketransmétodo estático . Traducir caracteres relevantes a su carácter de destino.

C, 85 76 67 65 64 bytes

f(char*c){for(;*c;)putchar(1[index("AEIOUAaeioua",*c++)?:c-2]);}

La respuesta Java del puerto de Kevin Cruijssen . Pruébelo en línea aquí .

Gracias a Kevin Cruijssen por jugar al golf 9 bytes, a Christoph por jugar al golf 11 bytes y a ceilingcat por jugar al golf 1 byte.

Versión sin golf:

f(char* c) { // function taking a char array as parameter and implicitly returning an unused int
    for(; *c ;) // loop over the input
        putchar(1 [index("AEIOUAaeioua", * c++) ?: c-2]); // find the first pointer to the current char in the vowels string, NULL if not present; if it's not NULL, print the next vowel, otherwise just print the char
}

R , 43 bytes

chartr("AEIOUaeiou","EIOUAeioua",scan(,""))

Pruébalo en línea!

Aquí está mi solución envuelta en una catpara que se imprima mejor: ¡ Pruébelo en línea!

Jalea , 11 bytes

Øcs5ṙ€-Ẏ,Ʋy

Pruébalo en línea!

Python 2 , 79 68 67 bytes

-1 byte gracias a @ArnoldPalmer

V='uaeiouAEIOUA'
print''.join((V[1:]+c)[V.find(c)]for c in input())

Pruébalo en línea!

JavaScript (ES6), 60 bytes

s=>s.replace(/./g,c=>(S='aeiouaAEIOUA'+c+c)[S.indexOf(c)+1])

Pruébalo en línea!

Ruby -p , 31 bytes

$_.tr!"AEIOUaeiou","EIOUAeioua"

Pruébalo en línea!

Pyth, 17 bytes

em=.rQdrB"aeiou"1

Pruébalo aquí

em=.rQdrB"aeiou"1
 m                  For each string...
       rB"aeiou"1   ... in ['aeiou', 'AEIOU']...
  =.rQd             ... cyclically rotate the characters in the input.
e                   Take the last.

Japt 2.0, 25 21 bytes

Me divertí jugando al golf con Shaggy.

r\v@=`aeia`pu)g1+UbX

Ejecútalo aquí.

Java 10, 97 87 bytes

s->{for(var c:s){var t="AEIOUAaeioua"+c+c;System.out.print(t.charAt(t.indexOf(c)+1));}}

-10 bytes después de inspirarse en la respuesta JavaScript de @Arnauld (su versión de 60 bytes) .

Pruébalo en línea.

Explicación:

s->{                         // Method with character-array parameter and no return-type
  for(var c:s){              //  Loop over the input characters
    var t="AEIOUAaeioua"     //  Temp-String containing the order of vowels 
                             //  (including additional 'A' and 'a'),
          +c+c;              //  appended with two times the current character
    System.out.print(        //  Print:
      t.charAt(              //   The character in String `t` at index:
         t.indexOf(c)+1));}} //    The (first) index of the current character in `t` + 1

05AB1E , 14 13 11 bytes

žMDÀ‡žMuDÀ‡

Pruébalo en línea!

Retina 0.8.2 , 20 bytes

T`_o`A\EI\OUAaei\oua

Pruébalo en línea! El enlace incluye casos de prueba.

APL + WIN, 55 bytes

Solicitudes de cadena de entrada:

i←(10≥n←'AEIOUaeiou'⍳s)/⍳⍴s←⎕⋄s[i]←'EIOUAeioua'[n~11]⋄s

Paperas, 38 bytes

R T W $TR(T,"AEIOUaeiou","EIOUAeioua")

Las paperas normalmente no agregan un retorno de carro, ya que no vi un requisito para separar la entrada de la salida, se ve un poco extraño en la primera ejecución. Por ejemplo, la salida para el último caso de prueba se ve así:

Programming Puzzles And Code GolfPrugremmong Pazzlis End Cudi Gulf

Si desea agregar un retorno de carro, agregue dos bytes de esta manera:

R T W !,$TR(T,"AEIOUaeiou","EIOUAeioua")

Vim + tpope / vim-abolish , 30 bytes

:%S/{a,e,i,o,u}/{e,i,o,u,a}/g<cr>

Solución alternativa, también 30 bytes:

Oe,i,o,u<esc>|D:%s/{a,<C-r>"}/{<C-r>",a}/g

Según meta , las respuestas de vim pueden usar complementos sin penalización de bytes. Esta no es una respuesta vim, sino una respuesta vim + abolir .

Abolir es un complemento extremadamente útil. Esta sección de README describe muy bien cómo funciona este comando (el Subvertcomando).

CJam, 29 19 bytes

q"aeioua"_eu+_1m<er

Try it online!

-10 bytes thanks to @Peter Taylor

Explicación:

q                       # take all input
 "aeioua"               # push vowel pairs
         _eu            # duplicate, uppercase
            +_          # concatenate, duplicate again
              1m<       # rotate left by 1
                 er     # transliterate

AutoHotkey, 24 bytes

AuotHotkey reemplaza automáticamente las letras en mayúsculas y minúsculas.

a::e
e::i
i::o
o::u
u::a

PHP, 90 bytes

Pruébalo en línea

Código

function f($s){echo strtr($s,array_combine(str_split(UuAaEeIiOo),str_split(AaEeIiOoUu)));}

Explicación

function f($s){
 echo strtr(
       $s,                          #The string to operate
       array_combine(               #combining arrays
            str_split(UuAaEeIiOo),  #splitting this strings
            str_split(AaEeIiOoUu))
              # With array combine php creates an array like
              # ["U"=>"A", "a"=>"e"....and so on]
              # strtr can replace strings in a string, using an array with 
              # the values to replace and with what replace each value.
 );
}

75 bytes si se ejecuta con el php -ruso$argv

<?=strtr($argv,array_combine(str_split(UuAaEeIiOo),str_split(AaEeIiOoUu)));

J, 33 bytes

rplc'aeiou',&((;"0)1&|.)'AEIOU'"1

Try it online!

str, 18 bytes

[aeiouaAEIOUA]#D#U

Try it online!

Explanation

                       implicit: over each character of the input:
[aeiouaAEIOUA]#D#U
[            ]         push this string
              #D       set this to the operation domain
                #U     set the charcter to the next character in the domain

PHP, 38 bytes

Quite simple, not very creative, uses strtr to replace the vowels:

<?=strtr($argn,aeiouAEIOU,eiouaEIOUA);

Run with echo '<input>' | php -nF <filename> or Try it online.

q/kdb+, 36 33 bytes

Solution:

{(v,2#x)1+(v:"aeiouaAEIOUA")?x}@'

Examples:

q){(v,2#x)1+(v:"aeiouaAEIOUA")?x}@'"AEIOUaeiou"
"EIOUAeioua
q){(v,2#x)1+(v:"aeiouaAEIOUA")?x}@'"Programming Puzzles And Code Golf"
"Prugremmong Pazzlis End Cudi Gulf"

Explanation:

Figure out index of vowels, add one to push along to the next and index in. Still think this approach can be significantly improved...

{(v,2#x)1+(v:"aeiouaAEIOUA")?x}@' / the solution
{                             }@' / apply lambda to each character of input
                            ?x    / look up x in...
          (                )      / do together
             "aeiouaAEIOUA"       / lookup list
           v:                     / save as v
        1+                        / add one
 (     )                          / do together
    2#x                           / take 2 copies of x
  v,                              / prepend v

Bonus:

My old **36 byte(()) solution which I think is quite cool, but need to golf down the lists to make it competetive:

ssr/[;"uoiea%UOIEA%";"%uoiea%UOIEA"]

Charcoal, 35 bytes

ＵＴ≔AUOIEAauoieaσＦ¹¹⊞υ➙§σ⊕ι§σι▷SR⟦Ｓυ

Try it online!

Naive method.

Explanation:

ＵＴ                                         Set trim option to on, so output won't be a rectangle
    ≔AUOIEAauoieaσ                          Assign "AUIOEAauioea" to s
                   Ｆ¹¹                      For i (ι) from 0 to 10
                       ⊞υ                   Push to u (initially empty list)
                          ➙                 Rule of:
                            §σ⊕ι            S[i + 1]
                                 §σι         to S[i]. This is so a->A gets overwriteen by a->e
                                    ▷SR⟦Ｓυ  Replace input as string using u (now a list of rules)

PHP, 76 bytes.

$s=strtr($s,array_combine(str_split("aeiouAEIOU"),str_split("eiouaEIOUA")));

Check it out!

This was the shortest I was able to do this in PHP.

$s = //overwrite $s variable ($s should be a defined string or input)
    strtr(  //strtr replaces key => value pairs from arrays in a string
        $s, //the string we are converting
        array_combine( //create an array with key value pairs, key should be original vowel letter and value should be it's replacement
            str_split("aeiouAEIOU") //turn vowels (lower and upper) into an array
            ,str_split("eiouaEIOUA") //turn vowel replacements into an array
        )
    );