ย้อนกลับไปตอนที่ฉันยังเป็นน้องใหม่ในวิชาเคมีที่เรียนมัธยมปลายฉันจะดูตารางธาตุและสะกดคำสกปรกด้วยจำนวนขององค์ประกอบ (HeCK จะเป็น 2619, 2-6-19)

ฉันกำลังคิดเกี่ยวกับเรื่องนี้เมื่อวันก่อนเมื่อฉันเห็นเสื้อมหัศจรรย์ที่สะกด BeEr (4-68)

ดังนั้นความท้าทาย codegolf ของฉันจึงเป็นโปรแกรมที่สั้นที่สุดในการแสดงรายการคำที่คุณสามารถสะกดด้วยตารางธาตุและรหัสตัวเลขที่แทนคำนั้น

/ usr / share / dict / words หรือพจนานุกรมใด ๆ ที่คุณต้องการใช้สำหรับรายการคำ หากคุณกำลังใช้รายการคำศัพท์ "ที่ไม่ได้มาตรฐาน" แจ้งให้เราทราบว่ามันคืออะไร!

GolfScript ( 339 303 302 301 294 ตัวอักษร)

n/{{{32|}%}:L~['']{{`{\+}+'HHeLiBeBCNOFNeNaMgAl
PSClArKCa TiVCrMnFe


ZnGaGeAsSeBrKrRbSrYZr
MoTcRuRhPdAgCd


TeIXe
BaLaCePrNdPmSmEuGdTbDy
ErTm
Lu
TaWRe
IrPtAuHgTl


AtRnFrRaAcThPaU

AmCm

EsFmMd
LrRfDbSg

MtDsRg
UutFl
Lv'{[1/{.0=96>{+}*}/]}:S~:^/}%.{L}%2$?.){=S{^?}%`+p 0}{;{L.,2$<=},.}if}do}%;

ด้วยเครดิตที่PhiNotPiซึ่งการสังเกตองค์ประกอบที่ไม่จำเป็นทำให้ฉันประหยัด 33 ตัวอักษร

นี่คือ IMO GolfScript ที่ใช้สำนวนมากกว่าวิธีแบบเรียกซ้ำก่อนหน้านี้

โปรดทราบว่าฉันอนุญาตให้ใช้คำในพจนานุกรมเป็นตัวพิมพ์เล็ก ( Lเป็นฟังก์ชันสำหรับข้อความตัวพิมพ์เล็กบนสมมติฐานที่ว่ามันไม่สำคัญว่าอักขระที่ไม่ใช่ตัวอักษรอัลฟ่าจะแตก) แต่ปฏิเสธด้วยเครื่องหมายอัญประกาศเดี่ยวหรือสำเนียง

เนื่องจากนี่คือรหัสกอล์ฟฉันจึงปรับให้เหมาะกับความยาวรหัสมากกว่าความเร็ว นี่ช้าอย่างน่ากลัว คาดว่าจะมีการจัดทำรายการคำศัพท์ที่ stdin และส่งออกไปยัง stdout ในรูปแบบ:

"ac[89]"
"accra[89 6 88]"
"achebe[89 2 4]"
...

(ลดขนาดคำใด ๆ ที่เป็นตัวพิมพ์เล็กและผสมซึ่งพบการแข่งขัน)

หากคุณสนใจองค์ประกอบมากกว่าตัวเลขต่อ se สำหรับราคาต่ำที่261 253 ตัวอักษรที่คุณสามารถใช้ได้

n/{{{32|}%}:L~['']{{`{\+}+'HHeLiBeBCNOFNeNaMgAlPSClArKCaTiVCrMnFeZnGaGeAsSeBrKrRbSrYZrMoTcRuRhPdAgCdTeIXeBaLaCePrNdPmSmEuGdTbDyErTmLuTaWReIrPtAuHgTlAtRnFrRaAcThPaUAmCmEsFmMdLrRfDbSgMtDsRgUutFlLv'[1/{.0=96>{+}*}/]/}%.{L}%2$?.){=p 0}{;{L.,2$<=},.}if}do}%;

ซึ่งให้ผลผลิตเช่น

"Ac"
"AcCRa"
"AcHeBe"
...

ทับทิม - 547 393

เวอร์ชันใหม่ขอบคุณสำหรับคำแนะนำ:

e='HHeLiBeBCNOFNeNaMgAlSiPSClArKaCaScTiVCrMnFeCoNiCuZnGaGeAsSeBrKrRbSrYZrNbMoTcRuRhPdAgCdInSnSbTeIXeCsBaLaCePrNdPmSmEuGdTbDyHoErTmYbLuHfTaWReOsIrPtAuHgTlPbBiPoAtRnFrRaAcThPaUNpPuAmCmBkCfEsFmMdNoLrRfDbSgBhHsMtDsRgCnUutFlUupLvUusUuo'.scan(/[A-Z][a-z]*/).map &:upcase
r="(#{e.join ?|})"
$<.each{|w|(i=0;i+=1 until w=~/^#{r*i}$/i
$><<w;p$~.to_a[1..-1].map{|m|e.index(m.upcase)+1})if w=~/^#{r}+$/i}

e=%w{h he li be b c n o f ne na mg al si p s cl ar ka ca sc ti v cr mn fe co ni cu zn ga ge as se br kr rb sr y zr nb mo tc ru rh pd ag cd in sn sb te i xe cs ba la ce pr nd pm sm eu gd tb dy ho er tm yb lu hf ta w re os ir pt au hg tl pb bi po at rn fr ra ac th pa u np pu am cm bk cf es fm md no lr rf db sg bh hs mt ds rg cn uut fl uup lv uus uuo}
x = "(#{e.join(?|)})"
regex = /^#{x}+$/i
File.foreach('/usr/share/dict/words'){|w|
if w=~/^#{x}+$/i
puts w
i=1
i+=1 until w=~/^#{x*i}$/i 
puts $~[1..-1].map{|m|e.index(m.downcase)+1}.join ?-
end
}

ใช้ regexes ช้าและมีห้องพักเยอะสำหรับการปรับปรุง แต่ฉันต้องไปเดี๋ยวนี้ :-)

Python 710 (357 + 261 + 92)

e=". h he li be b c n o f ne na mg al si p s cl ar k ca sc ti v cr mn fe co ni cu zn ga ge as se br kr rb sr y zr nb mo tc ru rh pd ag cd in sn sb te i xe cs ba la ce pr nd pm sm eu gd tb dy ho er tm yb lu hf ta w re os ir pt au hg tl pb bi po at rn fr ra ac th pa u np pu am cm bk cf es fm md no lr rf db sg bh hs mt ds rg cn uut fl uup lv uus uuo".split()

i=e.index
def m(w,p=("",[])):
 if not w:return p
 x,y,z=w[0],w[:2],w[:3]
 if x!=y and y in e:
    a=m(w[2:],(p[0]+y,p[1]+[i(y)]))
    if a:return a
 if x in e:
    b=m(w[1:],(p[0]+x,p[1]+[i(x)]))
    if b:return b
 if z in e:
    c=m(w[3:],(p[0]+z,p[1]+[i(z)]))
    if c:return c

f=open('/usr/share/dict/words','r')
for l in f:
 x=m(l[:-1])
 if x:print x[0],x[1]
f.close()

มีที่ว่างสำหรับการปรับปรุงที่นั่น นอกจากนี้ยังเป็นที่น่าสังเกตว่าการเยื้องระดับที่สองใช้อักขระแท็บ

ใช้เวลาเกิน 5 วินาที (ในคอมพิวเตอร์ของฉัน) เพื่ออ่านทั้งพจนานุกรมเพื่อสร้างผลลัพธ์เช่นนี้:

acaciin [89, 89, 53, 49]
acacin [89, 89, 49]
acalycal [89, 13, 39, 6, 13]
...

ด้วยการเพิ่มอักขระอีก18ตัวคุณจะได้ผลลัพธ์ด้วยตัวพิมพ์ใหญ่ที่ถูกต้อง:

e=". H He Li Be B C N O F Ne Na Mg Al Si P S Cl Ar K Ca Sc Ti V Cr Mn Fe Co Ni Cu Zn Ga Ge As Se Br Kr Rb Sr Y Zr Nb Mo Tc Ru Rh Pd Ag Cd In Sn Sb Te I Xe Cs Ba La Ce Pr Nd Pm Sm Eu Gd Tb Dy Ho Er Tm Yb Lu Hf Ta W Re Os Ir Pt Au Hg Tl Pb Bi Po At Rn Fr Ra Ac Th Pa U Np Pu Am Cm Bk Cf Es Fm Md No Lr Rf Db Sg Bh Hs Mt Ds Rg Cn Uut Fl Uup Lv Uus Uuo".split()

i=e.index
def m(w,p=("",[])):
 if not w:return p
 w=w.capitalize()
 x,y,z=w[0],w[:2],w[:3]
 if x!=y and y in e:
    a=m(w[2:],(p[0]+y,p[1]+[i(y)]))
    if a:return a
 if x in e:
    b=m(w[1:],(p[0]+x,p[1]+[i(x)]))
    if b:return b
 if z in e:
    c=m(w[3:],(p[0]+z,p[1]+[i(z)]))
    if c:return c

OUTPUT:

AcAcIIn [89, 89, 53, 49]
AcAcIn [89, 89, 49]
AcAlYCAl [89, 13, 39, 6, 13]
...

นอกจากนี้คุณยังสามารถตรวจสอบคำแต่ละคำ:

>>> m("beer")
('beer', [4, 68])

Python - 1328 (975 + 285 ตัวอักษรของรหัส + 68 รหัสพจนานุกรม)

t1={'c':6,'b':5,'f':9,'i':53,'h':1,'k':19,'o':8,'n':7,'p':15,
's':16,'u':92,'w':74,'v':23,'y':39}
t2={'ru':44,'re':75,'rf':104,'rg':111,'ra':88,'rb':37,
'rn':86,'rh':45,'be':4,'ba':56,'bh':107,'bi':83,
'bk':97,'br':35,'os':76,'ge':32,'gd':64,'ga':31,
'pr':59,'pt':78,'pu':94,'pb':82,'pa':91,'pd':46,
'cd':48,'po':84,'pm':61,'hs':108,'ho':67,'hf':72,
'hg':80,'he':2,'md':101,'mg':12,'mo':42,'mn':25,
'mt':109,'zn':30,'eu':63,'es':99,'er':68,'ni':28,
'no':102,'na':11,'nb':41,'nd':60,'ne':10,'np':93,
'fr':87,'fe':26,'fl':114,'fm':100,'sr':38,'kr':36,
'si':14,'sn':50,'sm':62,'sc':21,'sb':51,'sg':106,
'se':34,'co':27,'cn':112,'cm':96,'cl':17,'ca':20,
'cf':98,'ce':58,'xe':54,'lu':71,'cs':55,'cr':24,
'cu':29,'la':57,'li':3,'lv':116,'tl':81,'tm':69,
'lr':103,'th':90,'ti':22,'te':52,'tb':65,'tc':43,
'ta':73,'yb':70,'db':105,'dy':66,'ds':110,'at':85,
'ac':89,'ag':47,'ir':77,'am':95,'al':13,'as':33,
'ar':18,'au':79,'zr':40,'in':49}
t3={'uut':113,'uuo':118,'uup':115,'uus':117}
def p(s):
 o=0;b=0;a=[];S=str;l=S.lower;h=dict.has_key;L=len
 while o<L(s):
  D=0
  for i in 1,2,3:exec('if h(t%d,l(s[o:o+%d])) and b<%d:a+=[S(t%d[s[o:o+%d]])];o+=%d;b=0;D=1'%(i,i,i,i,i,i))
  if D==0:
   if b==3 or L(a)==0:return
   else:b=L(S(a[-1]));o-=b;a.pop()
 return '-'.join(a)

สำหรับส่วนของพจนานุกรม:

f=open(input(),'r')
for i in f.readlines():print p(i[:-1])
f.close()

C, 775 771 ตัวอักษร

char*e[]={"h","he","li","be","b","c","n","o","f","ne","na","mg","al","si","p","s","cl","ar","k","ca","sc","ti","v","cr","mn","fe","co","ni","cu","zn","ga","ge","as","se","br","kr","rb","sr","y","zr","nb","mo","tc","ru","rh","pd","ag","cd","in","sn","sb","te","i","xe","cs","ba","la","ce","pr","nd","pm","sm","eu","gd","tb","dy","ho","er","tm","yb","lu","hf","ta","w","re","os","ir","pt","au","hg","tl","pb","bi","po","at","rn","fr","ra","ac","th","pa","u","np","pu","am","cm","bk","cf","es","fm","md","no","lr","rf","db","sg","bh","hs","mt","ds","rg","cn","uut","fl","uup","lv","uus","uu",0};
b[99],n;
c(w,o,l)char*w,*o,**l;{
    return!*w||!strncmp(*l,w,n=strlen(*l))&&c(w+n,o+sprintf(o,",%d",l-e+1),e)||*++l&&c(w,o,l);
}
main(){
    while(gets(b))c(b,b+9,e)&&printf("%s%s\n",b,b+9);
}

อินพุต : Word ต่อบรรทัดต้องเป็นตัวพิมพ์เล็ก usr/share/dict/wordsไม่เป็นไร
ผลลัพธ์ : คำและตัวเลขเช่น:acceptances,89,58,15,73,7,6,99

ลอจิก :
c(w,o,l)การตรวจสอบคำที่เริ่มต้นด้วยองค์ประกอบw ใช้การสอบถามซ้ำสองทาง - หากองค์ประกอบแรกตรงกับส่วนหัวของรายการองค์ประกอบให้ตรวจสอบส่วนที่เหลือของกับรายการองค์ประกอบทั้งหมด หากการจับคู่นี้ล้มเหลวให้ตรวจสอบคำต่อท้ายรายการ บัฟเฟอร์จะสะสมหมายเลของค์ประกอบตามเส้นทางที่สำเร็จ หลังจากการแข่งขันจะมีรายการหมายเลขและพิมพ์ออกมาl
w
o

ปัญหา :
รายการไม่ได้เข้ารหัสอย่างมีประสิทธิภาพ - มากเกินไป"และ,"แต่วิธีนี้ใช้งานง่ายฉันแน่ใจว่าสามารถปรับปรุงได้มาก