Historia

Necesito recordar muchas contraseñas y no quiero usar la misma para varios sitios web, así que se me ocurrió una regla, pero la regla no debería ser transparente, así que lo que hago es:

• Piense en una palabra larga o concepto como breadpudding.
• Reemplace la primera letra con el sitio en el que estamos iniciando sesión. Si estamos iniciando sesión google, nuestra palabra se convierte greadpudding.
• Escribe la primera letra en mayúscula.
• Cambia la segunda letra a un @signo.
• Si la contraseña comienza con una no consonante, agregue un número determinado (como 1234); de lo contrario, agregue otro número (como 4321).

Ta da, ahora tienes una contraseña adecuada.

Sin embargo, este proceso es arduo, por lo que necesito un programa para generar esto en función de lo siguiente:

Problema

Entrada dada:

• a : la palabra inicial, que es una cadena y siempre está en minúscula, y se garantiza que tenga más de 3 caracteres.
• b : el sitio en el que estamos iniciando sesión, que es una cadena y siempre está en minúsculas, y se garantiza que no está vacío.
• c : el número para las no consonantes, que es un número entero positivo que puede tener ceros a la izquierda.
• d : el número de consonantes, que es un entero positivo que puede tener ceros a la izquierda.

Salida de una cadena basada en los criterios anteriores.

Casos de prueba

Entrada a="volvo", b="gmail", c=5555, d="0001"

G@lvo0001

Entrada a="sherlock", b="9gag", c=31415926535, d=3

9@erlock31415926535

Entrada a="flourishing", b="+google", c=11111, d=2222

+@ourishing11111

Reglas

• y es una consonante
• Si decide co des un número entero, puede analizarlo como tal, y los ceros iniciales pueden ignorarse ( 0091se trata como 91).
• Se permiten espacios en blanco al final y nuevas líneas.
• Puede enviar el resultado a STDOUT o devolver el resultado en una función.
• Personajes permitidos en ay bson [a-z0-9!@#$%^&*()_+=-].
• Puede aceptar las 4 entradas en cualquier orden consistente.

Este es el código de golf . El código más corto en bytes gana.

Jalea , 17 bytes

Ḣ©Œu;”@o;⁶⁵®eØC¤?

Un programa completo, tomando los argumentos en el orden b, a, c, d.

Pruébalo en línea!

¿Cómo?

El enlace principal es diádica, tomando by a, las entradas del programa son entonces b, a, c, y d(el tercero a sexto argumentos de línea de comando), de modo cy dse accede como tal.

Ḣ©Œu;”@o;⁶⁵®eØC¤?  Main link: b, a           e.g. "gmail", "volvo" (c="5555" and d="0001")
Ḣ                  head b                         'g'
 ©                 copy to register and yield     'g'
  Œu               convert to uppercase           "G"
     ”@            literal '@' character          '@'
    ;              concatenate                    "G@"
       o           logical or with a (vectorises) "G@lvo"
                ?  if:
               ¤     nilad followed by link(s) as a nilad:
           ®           recall value from register  'g'
             ØC        yield consonants            "BCDFGHJKLMNPQRSTVWXYZbcdfghjklmnpqrstvwxyz"
            e          exists in?                  1
         ⁶         ...then: 6th arg = 4th in = d   "0001" 
          ⁵        ...else: 5th arg = 3rd in = c   "5555"
        ;          concatenate                     "G@lvo0001"
                   implicit print

Python 3 , 69 bytes

lambda a,b,*c:b[0].upper()+"@"+a[2:]+c[b[0]in"bcdfghjklmnpqrstvwxyz"]

Pruébalo en línea!

05AB1E , 22 20 18 bytes

н©u'@I¦¦žN®åiI\}IJ

Entrada tomada como b,a,c,d

Pruébalo en línea!

Explicación (obsoleta)

¦                     # remove the first char of a
 s                    # swap b to the top of the stack
  н©                  # push the head of b and store a copy in register
    uì                # convert the head to upper case and prepend to a
      U               # store in variable X
       žN®åi          # if the head of b is a consonant
            \}        # discard c
              X«      # concatenate X with c or d
                '@1ǝ  # insert an "@" at character position 1

0èutilizado en el enlace ya нque aún no se ha extraído a TIO.

Javascript ES6, 87 bytes

(a,b,c,d)=>b[0].toUpperCase()+'@'+a.slice(2)+(/[bcdfghjklmnpqrstvwxyz]/.test(b[0])?d:c)

Manifestación

f=
(a,b,c,d)=>b[0].toUpperCase()+'@'+a.slice(2)+(/[bcdfghjklmnpqrstvwxyz]/.test(b[0])?d:c)

console.log(f("volvo","gmail", 5555, "0001")); //G@lvo0001
console.log(f("sherlock","9gag", 31415926535, 3)); //9@erlock31415926535
console.log(f("flourishing","+google", 11111, "2222")); //+@ourishing11111

C, 441 286 139 Bytes

#define o(c)*a[1]==0xc
int main(int b,char** a){printf("%c@%s%s",*a[1],a[2]+2,(*a[1]>97&*a[1]<128)
&!(o(65)|o(69)|o(6F)|o(75))?a[4]:a[3]);}

R , 105 103 bytes

pryr::f({m=substr(b,0,1);paste0(toupper(m),'@',substring(a,3),'if'(grepl("[b-df-hj-np-tv-z]",m),d,c))})

Función anónima. Evalúa a

function (a, b, c, d) 
{
    m = substr(b, 0, 1)                      #first letter of website
    paste0(toupper(m),                       #concatenate that letter, capitalized,
           "@",                              #an '@',     
           substring(a, 3),                  #the rest of the long string,
           if(                               #and
           grepl("[b-df-hj-np-tv-z]", m)),   #if the first letter is a consonant,
           d                                 #the consonant string/num,
           else c)                           #else the other one
}

que es lo que hay en TIO. Por favor, ayúdame a jugar golf esa expresión regular porque soy terrible con ellos.

Guardado 2 bytes de Giuseppe.

Pruébalo en línea!

Retina , 80 75 bytes

^..(.*)¶(.).*
$2@$1
^([ -_aeiou].*)¶(.*)¶.*
$1$2
(.*)¶.*¶(.*)
$1$2
T`l`L`^.

Pruébalo en línea!

Probar un nuevo idioma aquí, toma entradas en el orden dado en la pregunta

Explicación:

^..(.*)¶(.).*
$2@$1

Cree una palabra que sea la segunda palabra, la primera letra, el signo @, la primera palabra del tercer carácter en adelante.

^([ -_aeiou].*)¶(.*)¶.*
$1$2

Si la palabra comienza con una no consonante, agregue el primer número

(.*)¶.*¶(.*)
$1$2

Si todavía quedan 3 líneas (no hay sustitución en el último paso, entonces comienza con una consonante), agregue el segundo número

T`l`L`^.

Mayúscula la primera letra

QBIC , 81 bytes

G=ucase$(_s;,1|)+@@`+_s;,3,_lC||~instr(@bcdfghjklmnpqrstvwxyz`,_sC,1|)|?G+;\?G+;

Explicación

Parameters are Website(A$), base word(C$), consonant-number(E$), and nonsonant-number(F$)
G=                           SET G$ to
 ucase$(      )              the upper-case version of (also works for '9gag', '+google')
        _s;,1|                  the first char of the website A$ read from cmd line
 +@@`                        plus a literal @ (B$)
 +_s;,3,_lC||                plus all characters from base word C$ from 3rd char onwards
~instr(                      IF the second arg to INSTR is in the first
 @bcdfghjklmnpqrstvwxyz`,      with all consonants in the first arg
 _sC,1|                        and the first char of the base word C$ in the second
 )
|?G+;                        THEN print G$ plus the consonant addition
\?G+;                        ELSE print G$ plus the other addition

Tenga en cuenta que las dos últimas líneas parecen iguales, pero el intérprete cambia el comportamiento ligeramente en cada una ;: cada vez que ve la ;instrucción, crea una nueva variable (en este caso, los vars È $ andF $ `son los primeros disponibles después de leer todos otros literales y argumentos de línea cmd) y asigna el primer parámetro de línea cmd aún no asignado a esa variable.

JavaScript (ES6), 76 bytes

(a,b,c,d)=>b[0].toUpperCase()+'@'+a.slice(2)+(/[aeiou\d_\W]/.test(b[0])?c:d)

Hubiera agregado esto como una sugerencia como una mejora a la solución de Weedoze , pero parece que no puedo hacer ningún comentario al respecto, ya que casi siempre estoy al acecho

C # , 111 bytes

(a,b,c,d)=>Char.ToUpper(b[0])+"@"+a.Substring(2)+(b.IndexOfAny("bcdfghjklmnpqrstvwxyz".ToCharArray()==0)?d:c);

La comprobación de la consonante es particularmente costosa sin capacidad directa de expresión regular en el stringtipo.

F # , 157 bytes

let f(a:string)(b:string)c d=System.Char.ToUpper(b.[0]).ToString()+"@"+a.[2..]+(if((Seq.except['e';'i';'o';'u']['b'..'z'])|>Seq.contains b.[0])then d else c)

F # todavía es muy nuevo para mí, por lo que probablemente haya mejores enfoques para esto.

Java 8, 112 99 92 87 bytes

(a,b,c,d)->b.toUpperCase().charAt(0)+"@"+a.substring(2)+(b.matches("[a-z&&[^aeiou]].*")?d:c)

-13 bytes tomando el búltimo parámetro en lugar del segundo.
-1 byte eliminando y
-7 bytes gracias a @ OlivierGrégoire (y los parámetros están en orden nuevamente)
-5 bytes gracias a @ PunPun1000

Explicación:

Pruébalo aquí

(a,b,c,d)->                     // Method with 4 String parameters and String return-type
  b.toUpperCase().charAt(0)     //  First character of B capitalized
  +"@"                          //  + literal "@"
  +a.substring(2)               //  + A excluding first two characters
  +(b.matches("[ -_aeiou].*")?  //  If B starts with a consonant:
    d                           //   + D
   :                            //  Else:
    c)                          //   + C
                                // End of method (implicit / lambda with single return)

V , 25 bytes

ldvjr@Ç^[aeiou]ü^Á/j

DÍî

Pruébalo en línea!

Toma argumentos en el búfer en orden:

website
word/phrase
consonant number
non-consonant number

Bash 4 , 76 bytes

g(){
a=${2:0:1}
c=$4
[[ "aeiou[0-9]" =~ .*$a.* ]]&&c=$3
p="${a^}@${1:2}$c"
}

Funciona en Bash 4:

g volvo gmail 5555 0001; echo $p
g sherlock 9gag 31415926535 3; echo $p
g flourishing +google 11111 2222; echo $p

Ruby , 73 bytes

->a,b,c,d{a.sub(/..(.*)/){b[0].upcase+"@#$1#{b[0]=~/[aeiou_\d\W]/?c:d}"}}

Pruébalo en línea!

JavaScript (ES6), 69 bytes

(a,b,c,d)=>e=a[0].toUpperCase()+"@"+a.slice(2)+/[AEIOU]/.test(e)?c:d

Bastante simple, probablemente se pueda jugar golf