গণিত, 101 বাইট
If[StringMatchQ[#,("sin"|"si"|"s"|"cos"|"co"|"c"|"tan"|"ta"|"t"|"ln"|"l"|"log"|"lo"|"e")..],"T","F"]&
দেখে মনে হচ্ছে যে এই চ্যালেঞ্জের শক্ত অংশগুলি সংক্ষিপ্ততম রেইগেক্স নিয়ে আসছে এবং রেজেক্সের সাথে মিলের জন্য সবচেয়ে সংক্ষিপ্ত ভাষাটি বেছে নিচ্ছে। আমি কিছুই সাবেক অবদান নেই, এবং ম্যাথামেটিকাল যেহেতু আপনি ব্যবহার করতে হবে পরেরটির জন্য ভাল প্রার্থী নয় 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}
সুতরাং "ট্যাটলেটলে" মনে হয় এটি একটি চরিত্রের দ্বারা দীর্ঘতম।