Algunas versiones de la aplicación de calculadora estándar de Android le permiten presionar una tecla, como 'sin' y luego la tecla 'del' para hacerlo 'si'. Probablemente solo un error que no pueden molestarse en eliminar.

Las siguientes letras / agrupaciones de letras son tipificables:

 

pecado
si
s
cos
co
C
bronceado
ejército de reserva
t
En
l
Iniciar sesión
lo
mi

Entonces, 'insípido' es tipificable, porque ta-steless y también lo es 'obstrucciones' porque 'c-log-s'. Sin embargo, 'got' no se puede escribir, ni 'an' o 'xyz'.

Escriba un programa que tome una sola palabra (o secuencia de letras, solo az en la entrada) como entrada y produzca la salida para indicar si una palabra se puede escribir o no.

La salida puede ser un solo carácter / letra / dígito / etc. o puede ser más grande Todas las palabras que se pueden escribir deben producir la misma salida. Todas las palabras que no se pueden escribir también deben producir la misma salida.

PD: Por curiosidad, ¿es "insípido" la palabra de diccionario más larga que se puede escribir?

Perl, 47 43 41 + 1 = 42 bytes

-4 bytes gracias a @Sunny Pun. -2 bytes gracias a @Brad Gilbert b2gills y @Downgoat

Corre con la -nbandera.

say!/^(s(in?)?|co?|t(an?)?|ln?|log?|e)+$/

Definitivamente se puede jugar más, pero en el espíritu de la competencia, estoy dejando la expresión regular en su mayoría original que se me ocurrió al principio. No devuelve nada si es verdadero, 1si es falso.

Pruébalo en línea!

Descargué un archivo de diccionario y la palabra más larga que encontré fue 11 letras: tattletales

JavaScript (ES6), 44 bytes

s=>/^((si|ta|l)n?|co?|log?|[ste])+$/.test(s)

Creo que esta es la expresión regular más corta posible, pero, por supuesto, puedo estar equivocado.

Explicación

Un primer lugar obvio para comenzar sería una expresión regular que simplemente incluye todas las opciones por separado:

s=>/^(sin|si|s|cos|co|c|tan|ta|t|log|lo|l|ln|e)+$/.test(s)

Primero, podemos observar que cosse puede formar a partir de coy s, haciéndolo innecesario:

s=>/^(sin|si|s|co|c|tan|ta|t|log|lo|l|ln|e)+$/.test(s)

Algunos de estos, como siny si, se pueden combinar haciendo que la última letra sea opcional:

s=>/^(sin?|s|co?|tan?|t|log?|ln?|e)+$/.test(s)

Esto funciona porque sin?coincide sicon o sin un nal final, cubriendo así ambos siny si.

Parece que hay muchos n?s también. ¿Qué pasa si los juntamos todos?

s=>/^((si|ta|l)n?|s|co?|t|log?|e)+$/.test(s)

Una forma más de jugar al golf sería combinar las opciones restantes de caracteres únicos en un rango de caracteres, pero esto tiene la misma longitud:

s=>/^((si|ta|l)n?|co?|log?|[ste])+$/.test(s)

Y así es como se juega al golf una simple expresión regular. Creo que esta es la expresión regular más corta posible que coincide con cada cadena correctamente, pero tal vez no. Otorgaré una recompensa de +100 a cualquiera que logre mejorar esta expresión regular.

Pyth, 37 33 29 28 bytes

El código contiene un carácter no imprimible, así que aquí hay un xxdhexdump.

00000000: 737d 5173 4d5e 733c 5252 6336 2e22 6174  s}QsM^s<RRc6."at
00000010: 14d0 69ba 76f1 ac59 6422 346c            ..i.v..Yd"4l

Pruébalo en línea.

Extremadamente astronómicamente ineficiente. La complejidad de tiempo y espacio es O (16 ⁿ ) O (24 ⁿ ).

Explicación

Primero, Qse agrega implícitamente a.

s}QsM^s<RRc6."…"4lQ     Implicit: Q = input
            ."…"        Generate "logsincostanlnee"
          c6            Split in 6 parts: ["log", "sin", "cos", "tan", "ln", "ee"]
         R      4       For each n from 0 to 3
       <R               Take the first n chars from each string
      s                 Flatten the results
                 lQ     Get length of input
     ^                  Take that Cartesian power of the list
   sM                   Join each resulting list
 }Q                     Check if the input is found
s                       Cast to integer

Jalea , 32 31 30 28 26 bytes

ŒṖw@€€“¡Ṡ[ẈKœịḲ-¢ȧ?-»’%3ḌẠ

Emite 0 si la palabra es escribible, 1 si no. ¡Gracias a @JonathanAllan por jugar golf en 1 byte!

Pruébalo en línea!

Cómo funciona

ŒṖw@€€“¡Ṡ[ẈKœịḲ-¢ȧ?-»’%3ḌẠ  Main link. Argument: s (string of lowercase letters)

ŒṖ                          Yield all partitions of s.
      “¡Ṡ[ẈKœịḲ-¢ȧ?-»       Yield "sine  logcostanln". Every third character
                            marks the start of a typeable word.
  w@€€                      Find the indices of all substrings in the partitions
                            in the string to the right (1-based, 0 if not found).
                     ’      Decrement. "Good" indices are now multiples of 3.
                      %3    Modulo 3. "Good" indices are mapped to 0, "bad"
                            indices are mapped to 1 or 2.
                        Ḍ   Convert from decimal to integer. A partition will
                            yield 0 iff all indices are "good".
                         Ạ  All; yield 0 if one or more integers are falsy (0), 1
                            if all integers are truthy (non-zero).

Brachylog , 33 bytes

Se corrigió un error gracias a @Synoli.

~c:1a
,"sincostanloglneeee"@6e@[?

Pruébalo en línea!

Salidas true.si se pueden escribir o false.no.

Explicación

Intentamos las desconcatenaciones de la entrada hasta que encontremos una para la cual todas las cadenas que concatenemos sean un prefijo de una ["sin", "cos", "tan", "log", "lne", "eee].

~c                          A list of strings which when concatenated results in the Input
  :1a                       All strings of this list satisfy the predicate below:

,"sincostanloglneeee"@5           The list ["sin", "cos", "tan", "log", "lne", "eee"]
                       e          Take one element of that list
                        @[?       The input is a prefix of that element

Perl 6 ,  60 50  44 bytes

primer intento ( 60 )

put +?(get~~/^<{<sin cos tan ln log e>».&{|m:ex/^.+/}}>*$/)

traducción de la respuesta Perl 5 ( 50 )

put +?(get~~/^[s[in?]?|co?|t[an?]?|ln?|log?|e]*$/)

usando el -ninterruptor ( 43 + 1 )

put +?/^[s[in?]?|co?|t[an?]?|ln?|log?|e]*$/

El primero ?convierte el resultado a booleano, y el primero lo +convierte a un número ( 1para True, 0para False)

Mathematica, 101 bytes

If[StringMatchQ[#,("sin"|"si"|"s"|"cos"|"co"|"c"|"tan"|"ta"|"t"|"ln"|"l"|"log"|"lo"|"e")..],"T","F"]&

Parece que las partes difíciles de este desafío son encontrar la expresión regular más corta y elegir el lenguaje más conciso para que coincida con la expresión regular. No tengo nada que aportar al primero, y Mathematica no es un buen candidato para el segundo ya que tienes que usar StringMatchQy RegularExpression. Lo que puedo hacer es responder a su PD: ¿es "insípido" la palabra más larga que puede escribir?

In[1]:= f=StringMatchQ[#,("sin"|"si"|"s"|"cos"|"co"|"c"|"tan"|"ta"|"t"|"ln"|"l"|"log"|"lo"|"e")..]&;

In[2]:= Select[EntityList@"Word",f@#[[2,1]]&][[All,2,1]]//SortBy[StringLength]//DeleteDuplicates
Out[2]= {c,e,l,s,t,cc,cl,el,et,lo,si,sl,ta,te,ccc,col,cos,cot,eel,ell,eta,etc,lee,let,log,lot,sec,see,set,sic,sin,sit,tae,tan,tat,tec,tee,cell,clog,clot,coco,cole,colt,coss,cost,cote,else,less,loco,loge,loll,lose,loss,lota,sect,seel,sell,sess,seta,sett,sill,silo,silt,sine,sise,siss,site,sloe,slog,slot,stet,taco,tact,tael,talc,tale,tall,tect,tell,test,cello,close,cosec,costa,cotan,eccle,elect,elsin,ettle,loess,lotte,secle,setee,since,sleet,stale,stall,state,steel,stele,tasse,taste,tatee,teest,telco,testa,tetel,tsine,cellco,closet,coleta,collet,coltan,cosine,cosset,costal,ecesis,estate,lessee,scelet,select,sellee,sestet,settee,settle,siesta,silole,stacte,stance,stasis,tallet,tallot,taslet,tassel,tasset,tattle,tectal,teetan,tellee,testee,tsetse,celesta,cessile,cocotte,collect,costate,ecolect,ectasis,electee,sessile,sinless,sitelet,statant,tassell,tastant,testate,coestate,colessee,colocolo,cosiness,costless,electant,lossless,sceletal,siletane,statelet,tactless,tallness,telltale,telocoel,coelostat,sissiness,stateless,tasteless,tattletale}

Así que "tattletale" parece ser el más largo de un personaje.

Maravilla , 41 bytes

!.(mstr"^(s|t|co?|(l|ta|si)n?|log?|e)+$")

Uso:

(!.(mstr"^(s|t|co?|(l|ta|si)n?|log?|e)+$")) "tasteless"

Totalmente mal entendido la pregunta antes, pero ahora todo está solucionado Salidas Fpara partido y Tpara no partido.

Sin competencia, 35 bytes

!.`^(s|t|co?|(l|ta|si)n?|log?|e)+$`

Uso:

(!.`^(s|t|co?|(l|ta|si)n?|log?|e)+$`) "tasteless"

Esto hace uso de expresiones regulares aplicables, que se implementó después de este desafío.

Procesamiento, 223 bytes

int d(String b){for(String p:"tan0log0sin0cos0ln0e".split("0"))if(p.startsWith(b))return 1;return 0;}

int l(String p){String b="";int t=1;for(char c:p.toCharArray()){b+=c;if(d(b)<1){b=c+"";t=d(b);}if(t<1)return t;}return t;}

Finalmente decidió hacer una respuesta sin expresiones regulares. Para llamar a la función, use l("tasteless");. Devuelve 0falso y 1verdadero.

Código ampliado con explicación

int d(String b){
  for(String p:"tan0log0sin0cos0ln0e".split("0"))
    if(p.startsWith(b))
      return 1;
  return 0;
}
//main function
int l(String p){
  String b="";
  int t=1;
  for(char c:p.toCharArray()){
    b+=c;
    if(d(b)<1){
      b=c+"";
      t=d(b);
    }
    if(t<1)return t;
  }
  return t;
}

Básicamente, iteramos sobre la cadena dada, construyendo bchar por char. Comprobamos el uso de d()si alguno de los tan, log, ... comenzar con b. Si lo hace, entonces es válido. De lo contrario, verificamos si el carácter en esa posición es válido y lo reiniciamos b. Ahora, si no es válido, 0se devolverá o, de lo contrario, seguirá siendo válido. Al final, si el programa aún no ha devuelto algo, devuélvalo 1.

Scala, 49 bytes

s=>s.matches("(s(in?)?|co?|t(an?)?|ln?|log?|e)+")

Devuelve verdadero si la cadena dada coincide con la expresión regular, de lo contrario, falso.

Python 3 , 154 bytes

r=1;i=input()
while r:
 r=0
 for s in'sin,cos,tan,log,ln,co,lo,si,ta,s,c,t,l,e'.split(','):
  if i.startswith(s):r=i=i.replace(s,'',1);break
print(i=='')

Pruébalo en línea!

Python 3 , 149 130 bytes

i=input()
for a in 'tan,sin,cos,log,si,co,ta,lo,lo,ln,s,c,t,l,e'.split(','):
    if a in i:
        i=i.replace(a,"")
print(not i)

editar # 1: 19 bytes afeitados usando la solución @Henke

Python 2, 124 bytes

f=lambda w:any(f(w[len(s):])if w[:len(s)]==s else 0for s in'sin,cos,tan,log,ln,co,lo,si,ta,s,c,t,l,e'.split(','))if w else 1

PHP, 60 bytes

<?=preg_match("#^((si|ta|l)n?|co?|log?|s|e|t)+$#",$argv[1]);

expresiones regulares robadas de ETHproductions :
toma datos del argumento de la línea de comandos; imprime 1para tipificable, 0para no mecanografiable.

versiones anteriores, 75 73 69 bytes

<?=!preg_replace("#co|log|ln|lo|sin|si|tan|ta|[celst]#","",$argv[1]);

reemplaza todas las palabras posibles con una cadena vacía, devuelve el resultado, niega.

<?=!preg_split("#co|log|ln|lo|sin|si|tan|ta|[celst]#",$argv[1],-1,1);

divide la entrada por coincidencias de expresiones regulares. Flag 1significa PREG_SPLIT_NO_EMPTYy le dice preg_splitque solo devuelva resultados no vacíos. Si la entrada es tipificable, preg_splitsolo tendrá resultados vacíos, por lo que devolverá una matriz vacía, que es falsa. !niega el resultado.

Ambas versiones toman la entrada del argumento de la línea de comando
e imprimen 1si el resultado está vacío (la entrada se puede escribir), de lo contrario nada.

Notas:
Empacar la expresión regular usando ?no funciona aquí; hace que las expresiones no sean greedy; Probablemente debido al retroceso. Y el orden de las alternativas es importante: tatiene que estar parado antes to el motor dejará de coincidir cuando lo encuentre t.

Encontré una hoja de trucos cuantificadora , pensé ??o ?+podría ayudar; Pero no funcionaron para mí.

Java 8, 55 bytes

s->return s.matches("^((si|ta|l)n?|co?|log?|[ste])+$");

Renuncia: Solía ETHproductions' expresiones regulares porque era muchos bytes más corta que la mía. Crédito total en la expresión regular para él. Lo que hice fue agregar 24 bytes para que sea una función Java.

Devuelve falsesi la palabra no encaja en la expresión regular, de lo contrario true.