标准Android计算器应用程序的某些版本允许您按一个键，例如“ sin”，然后按“ del”键使其变为“ si”。可能只是一个bug，他们不能为删除而烦恼。

以下字母/字母分组是可键入的：

 

罪
si
s
cos
合作
C
棕褐色
ta
Ť
ln
升
日志
罗
Ë

因此，“无味”是典型的，因为ta-steless，“木s”也是如此，因为“ c-log-s”。但是，“ got”不是可键入的，“ an”或“ xyz”也不是可键入的。

编写一个程序，该程序将单个单词（或字母序列，输入中仅包含z）作为输入，并生成输出以指示单词是否可键入。

输出可以是单个字符/字母/数字/等。或可能更大。所有可打字的单词应产生相同的输出。所有非典型词也应产生相同的输出。

PS只是出于好奇，“无味”是最长的可打字的字典单词吗？

Perl，47 43 41 +1 = 42字节

-4个字节感谢@Sunny Pun。-2个字节，感谢@Brad Gilbert b2gills和@Downgoat

与-n标志一起运行。

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

当然可以继续打高尔夫球，但是出于竞争的精神，我离开了刚开始时想到的最原始的正则表达式。如果为true，1则为false ，则不返回任何内容。

在线尝试！

我下载了字典文件，发现的最长单词是11个字母- tattletales

JavaScript（ES6），44个字节

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

我认为这是最短的正则表达式，但是我当然可能错了。

说明

一个明显的开始是一个正则表达式，它仅单独包含所有选项：

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

首先，我们可以观察到cos可以由co和形成s，因此没有必要：

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

其中的某些字符（例如sin和si）可以通过将最后一个字母设为可选来组合：

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

之所以有效，是因为sin?匹配末尾si有或没有n，因此覆盖了sin和si。

似乎也有很多n?。如果我们把它们放在一起怎么办？

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

打高尔夫球的另一种方法是将剩余的单字符选项组合到一个字符范围中，但是长度相同：

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

这就是您打高尔夫球简单正则表达式的方式。我相信这是最短的正则表达式，可以正确匹配每个字符串，但也许不匹配。我将向设法改进此正则表达式的任何人奖励+100悬赏。

Pyth，37 33 29 28字节

该代码包含不可打印的字符，因此这里是一个xxd十六进制转储。

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

在线尝试。

非常天文效率低下。时间和空间复杂度为O（16 ⁿ） O（24 ⁿ）。

说明

首先，a Q被隐式附加。

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

果冻，32 31 30 28 26字节

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

如果该单词是可输入的，则输出0；否则输入1。感谢@JonathanAllan打高尔夫球1个字节！

在线尝试！

这个怎么运作

ŒṖ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个字节

修复了@Synoli带来的错误。

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

在线尝试！

输出true.是否可以键入false.。

说明

我们尝试对输入进行解串，直到找到一个其连接的所有字符串均为之一的前缀的字符串["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个字节

第一次尝试（60）

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

Perl 5答案的翻译（50）

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

使用-n开关（43 + 1）

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

第一个?将结果转换为布尔值，第一个将结果+转换为数字（1for True，0for False）

Mathematica，101个字节

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

似乎挑战的难点在于提出最短的正则表达式，并选择最简洁的语言来匹配正则表达式。我对前者没有任何贡献，而Mathematica并不是后者的理想选择，因为您必须使用StringMatchQ和RegularExpression。我能做的就是回答您的PS：“无味”是您可以输入的最长单词？

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}

因此，“传奇故事”似乎是最长的一个角色。

不可思议，41个字节

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

用法：

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

以前完全误解了这个问题，但是现在所有问题都已解决。F匹配和T不匹配的输出。

非竞争性，35个字节

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

用法：

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

这利用了适用的正则表达式，该正则表达式是在挑战之后实施的。

处理中，223字节

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;}

最终决定不使用正则表达式来回答。要调用该函数，请使用l("tasteless");。返回0false和1true。

带说明的扩展代码

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逐个字符地构建char。我们检查使用d()，如果任何的tan，log...下手b。如果是这样，则它是有效的。否则，我们检查该位置的char是否有效，然后重置b。现在，如果它无效，0将被返回，否则它将仍然有效。最后，如果程序尚未返回任何内容，则返回1。

Scala，49个字节

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

如果给定的字符串与正则表达式匹配，则返回true，否则返回false。

Python 3，154个字节

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=='')

在线尝试！

Python 3中，149个 130字节

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)

编辑＃1：使用@Henke解决方案将19字节剃光

Python 2，124字节

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字节

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

从ETHproductions中盗取的正则表达式：
从命令行参数获取输入；打印1可印刷，0不可印刷。

旧版本，75 73 69字节

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

用空字符串替换所有可能的单词，返回结果，取反。

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

按正则表达式匹配拆分输入。标志1代表PREG_SPLIT_NO_EMPTY并告知preg_split仅返回非空结果。如果输入是可键入的，preg_split则结果将为空，因此它将返回一个空数组，这是虚假的。!否定结果。

两种版本均从命令行参数获取输入，
并1在结果为空（输入为可键入内容）时打印，否则为空。

注意：
使用regex包装?此处不起作用。它使表达不愉快；可能是由于回溯。备选方案的顺序很重要：ta必须站在前面，t否则引擎在找到时将停止匹配t。

我发现了量词备忘单，认为??或?+可能有所帮助；但是他们没有为我工作。

Java 8，55字节

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

Disclamer：我使用ETHproductions的正则表达式，因为它比我的短了许多字节。正则表达式的全部功劳归于他。我所做的是添加24个字节以使其成为Java函数。

false如果单词不适用于正则表达式，则返回；否则返回true。