จนกระทั่งการทำให้เป็นทศนิยมในปี 1971เงินของอังกฤษขึ้นอยู่กับการแบ่งเงินปอนด์ออกเป็น 240 เพนนี ชิลลิงคือ 12 เพนนีดังนั้น 20 เพนนีทำให้ปอนด์ นิกายที่เล็กที่สุดคือนิดเดียวที่หนึ่งในสี่ของเพนนี มีชื่อและชื่อเล่นอื่น ๆ อีกมากมายสำหรับเหรียญซึ่งอาจสร้างความสับสนได้หากคุณไม่คุ้นเคยกับระบบ

ท้าทาย

เขียนโปรแกรมหรือฟังก์ชั่นที่สามารถแปลง (เกือบ) สกุลเงินของภาษาอังกฤษเก่า ๆ เป็นอื่น ๆ เพื่อให้ง่ายขึ้นสำหรับผู้ใช้คุณจำเป็นต้องสนับสนุนคำพหูพจน์และชื่อเล่น

เหล่านี้คือนิกายและคำที่มีความหมายเหมือนกันคุณต้องสนับสนุน เพื่อความสะดวกค่าของพวกเขาในระยะทางสั้น ๆ นำไปสู่แต่ละบรรทัด

1: farthing, farthings
2: halfpence, halfpenny, halfpennies
4: penny, pennies, pence, copper, coppers
8: twopenny, twopennies, twopence, tuppence, half groat, half groats
12: threepence, threepenny, threepennies, threepenny bit, threepenny bits, thruppence, thrupenny, thrupennies, thrupenny bit, thrupenny bits
16: groat, groats
24: sixpence, sixpenny, sixpennies, sixpenny bit, sixpenny bits, tanner, tanners
48: shilling, shillings, bob
96: florin, florins, two bob bit, two bob bits
120: half crown, half crowns
240: crown, crowns
480: half sovereign, half sovereigns
504: half guinea, half guineas
960: pound, pounds, pounds sterling, sovereign, sovereigns, quid, quids
1008: guinea, guineas

^{(ฉันไม่ใช่ชาวอังกฤษรายการนี้ไม่ได้มีอำนาจ แต่จะเพียงพอสำหรับความท้าทาย)}

ผ่าน stdin หรือฟังก์ชันอาร์กิวเมนต์คุณควรใช้ในรูปแบบของสตริง

[value to convert] [denomination 1] in [denomination 2]

และส่งคืนหรือพิมพ์

[value to convert] [denomination 1] is [converted value] [denomination 2]

ที่[converted value]เป็น[value to convert]หน่วยงานของนิกาย 1 แปลงเป็นสกุลเงิน 2

[value to convert]และ[converted value]มีลอยในเชิงบวก ในผลลัพธ์ทั้งคู่ควรถูกปัดเศษหรือตัดให้เหลือทศนิยม 4 ตำแหน่ง หากต้องการคุณอาจสมมติว่า[value to convert]มีจุดทศนิยมและศูนย์เสมอเมื่อป้อนข้อมูล (เช่น1.0แทน1)

ราคา 1 และ 2 อาจเป็นสองคำใด ๆ จากรายการด้านบน ไม่ต้องกังวลว่าจะเป็นพหูพจน์หรือไม่ให้ปฏิบัติกับนิกายและคำเหมือนทั้งหมด คุณอาจคิดว่ารูปแบบการป้อนข้อมูลและตัวเลือกต่าง ๆ นั้นถูกต้องเสมอ

ตัวอย่าง

1 pounds in shilling→ 1 pounds is 20 shilling
( 1.0000 pounds is 20.0000 shillingไม่เป็นไร)

0.6 tuppence in tanner → 0.6 tuppence is 0.2 tanner

24 two bob bits in pounds sterling → 24 two bob bits is 2.4 pounds sterling

144 threepennies in guineas → 144 threepennies is 1.7143 guineas

เกณฑ์การให้คะแนน

รหัสที่สั้นที่สุดในหน่วยไบต์ชนะ

Pyth , 146 145

K4J24L?*y>b-5>b\t?2>b\t.5}<b2"hatw"@[1K8K12K16J48J1008*JT96*2J960)xc"fapetucothengrsishtagucrflbo"2<b2AGHcz" in"++G%" is %0.4f"*vhcGdcyjdtcGdytHH

สามารถอ่านได้มากขึ้น (ต้องขึ้นบรรทัดใหม่และการเยื้องเพื่อให้ทำงานได้):

K4J24
L?*y>b-5>b\t?2>b\t.5
  }<b2"hatw"
  @[1K8K12K16J48J1008*JT96*2J960)
   xc"fapetucothengrsishtagucrflbo"2<b2
AGHcz" in"
++G
  %" is %0.4f"
   *vhcGdcyjdtcGdytH
 H

อัปเดต: ปรากฎว่ามีความยาว 1 อักขระ (ไม่จำเป็นต้องมีช่องว่าง) เพื่อตัดสตริงลงในรายการของอักขระ 2 ตัวก่อนเรียกใช้การดำเนินการดัชนีสตริง ->/x"string"<b2 2 xc"string"2<b2ไม่มีอะไรจะต้องมีการเปลี่ยนแปลง

มันทำงานอย่างไร:

• วิธีนี้ใช้วิธีของ @ xnor ในการค้นหามูลค่าของสกุลเงินโดยใช้ตัวอักษรสองตัวแรกรวมถึงเคล็ดลับในการตรวจจับค่าเริ่มต้นhalfหรือtwoลบออกแล้วเรียกใช้ฟังก์ชันอีกครั้ง

• ในการค้นหาค่าของอักขระสองตัวแรกมันจะค้นหาตำแหน่งของตัวอักษรสองตัวแรกของสกุลเงินในสตริงจากนั้นหารด้วย 2 และนำค่าที่ดัชนีนั้นในรายการ นี่สั้นกว่าพจน์ใน pyth มาก

• ใช้ความจริงที่ว่าx(find inside string) ส่งคืน -1 เมื่อล้มเหลวเพื่อหลีกเลี่ยงการใส่po(ปอนด์) qu(quid) หรือso(sovereigns) ในสตริงและส่งคืนองค์ประกอบสุดท้ายของรายการ 960 ตามค่าเริ่มต้น

• โดยการจัดเรียงลำดับของสกุลเงินใหม่ในระบบการค้นหาและเริ่มต้นอย่างระมัดระวังด้วยK4และJ24ช่องว่างทั้งหมดที่จะต้องใช้เพื่อแยกตัวเลขในรายการจะถูกลบออก

• ใช้ตัวดำเนินการกำหนดค่าแบบคู่ของ pyth Aบนตัวแบ่งอินพุต inเพื่อรับจุดเริ่มต้นและจุดสิ้นสุดของอินพุตในตัวแปรแยกต่างหาก

• การค้นหาในตอนท้ายเหมือนกันเป็นหลักแม้ว่า pyth ไม่มี.split(_,1)เลยมันค่อนข้างยุ่งยากกว่า

ตัวอย่าง:

$ pyth programs/currency.pyth <<< '5 florins in half guineas'
5 florins is 0.9524 half guineas

$ pyth programs/currency.pyth <<< '0.4 quid in sixpenny bits'
0.4 quid is 16.0000 sixpenny bits

Ruby, 345 306 302 288 287 278 273 253 252 242 232 221 202 190 ไบต์

f=->s{" !#+/7OďǿȗϟЏ'"[%w{fa fp ^pe|co r..p ^gr x|ta sh|^b fl|b f.c ^c f.s .gu d|v ^g .}.index{|k|s[/#{k}/]}].ord-31}
$><<gets.sub(/ (.+ i)n /){" #{r=$1}s %0.4f ".%$`.to_f/f[$']*f[r]}

รับอินพุตจาก STDIN และพิมพ์ไปยัง STDOUT

ฉันใช้นิพจน์ทั่วไปสั้น ๆ เพื่อจับคู่เฉพาะค่าที่ต้องการสำหรับแต่ละค่า มีสองอาร์เรย์หนึ่งมี regexes และหนึ่งมีค่าที่ดัชนีที่สอดคล้องกัน อาเรย์ regex เป็นอาเรย์ที่มีตัวคั่นของช่องว่างและอาเรย์ของมูลค่าถูกบรรจุในสตริงของอักขระ UTF-8

ฉันกำลังเลือกดัชนีเป็นค่าโดยค้นหา regex ที่ตรงกับแต่ละนิกาย ฉันยังเริ่มต้นกับกรณี tuppence / half-groat (ค่า 8) เพราะนั่นต้อง regex ที่ยาวที่สุด ในทำนองเดียวกันบางรูปแบบสมมติว่าค่าอื่น ๆ ได้รับการจับคู่แล้วโดยรูปแบบก่อนหน้าดังนั้นแต่ละ regex จะแยกความแตกต่างของค่าที่ต้องการจากค่าที่เหลือเท่านั้น การใช้สิ่งนี้ฉันอาจจะโกนทิ้งอีกสองสามไบต์โดยจัดเรียงลำดับของนิกายใหม่

ขอบคุณ Ventero ที่ช่วยฉันเอาชนะ Pythทำให้มันสั้นลง!

Python 3: 264 239 ตัวอักษร

f=lambda c:c[:2]in"hatw"and f(c[5-(c>'t'):])*2/4**(c<'t')or[1,4,4,4,8,12,16,24,24,48,48,96,240,1008,960]['fapecoentuthgrsitashboflcrgu'.find(c[:2])//2]
a,b=input().split(" in ")
x,c=a.split(" ",1)
print(a,"is %0.4f"%(eval(x)*f(c)/f(b)),b)

ฟังก์ชั่นfรับค่าชิลลิงของสตริงสกุลเงินcโดยพิมพ์ตัวอักษรสองตัวแรกโดยใช้พจนานุกรมโดยการค้นหาในสตริง คำนำหน้า "ครึ่ง" และ "สอง" ถูกตรวจพบและคิดโดยการตัดส่วนนำหน้าและช่องว่างและใช้ตัวคูณ เนื่องจาก "halfpenny" ขาดช่องว่างหลังจาก "half" ผลลัพธ์นี้ใน "enny" แต่ถูกจัดการด้วยรายการ "en" fictional

ขอบคุณ @isaacg และ @grc สำหรับการปรับปรุงจำนวนมากในการค้นหาพจนานุกรม

Python 2 - 345 358

s=str.startswith
h='half'
u,v=raw_input().split(' in ')
a,b=u.split(' ',1)
C=dict(fa=1,pe=4,twop=8,tu=8,thr=12,gr=16,si=24,ta=24,sh=48,b=48,fl=96,c=240,po=960,so=960,q=960,gu=1008)
C.update({h+'p':2,h+' gr':8,'two ':96,h+' c':120,h+' s':480,h+' gu':504})
for c in iter(C):
 if s(b,c):k=C[c]
 if s(v,c):f=C[c]
print u+' is %0.4f '%(eval(a)*k/f)+v

ต้องใส่หมายเลขเพื่อเป็นทศนิยมในหลามเช่น 144.1

ฉันคิดว่ามันสั้นลงใน python 3 ...

... ได้รับการยืนยันขอบคุณ @xnor ยังยืนยันว่าการมีอัลกอริทึมที่ดีกว่ามีความสำคัญมาก;)

Haskell - 315 ไบต์

w x=f(u x)*v(u x)
f=maybe 1 id.l"ha tw tu th si"[0.5,2,2,3,6]
v x@(_:xs)|Just w<-l"bo cr gr gu so co fa fl pe po qu sh ta"[12,60,4,252,240,1,0.25,24,1,240,240,12,6]x=w|True=v xs
l k v x=take 2 x`lookup`zip(words k)v
u=unwords
i s|(n:x,_:t)<-span(/="in")$words s=u$n:x++["is",show$read n*w x/w t]++t
main=interact i

JavaScript (ES5), 344

I=prompt()
n=I.match(/[\d.]+ /)[0]
A=I.slice(n.length).split(" in ")
function m(x){return{fi:1,he:2,p:4,pe:4,cr:4,tn:8,hg:8,tp:12,te:12,g:16,gs:16,sn:24,tr:24,si:48,b:48,fn:96,to:96,hc:120,c:240,cs:240,hs:480,hgtrue:504,ps:960,se:960,q:960,ga:1008}[x[0]+(x[5]||"")+(x[10]=="a"||"")]}
alert(n+A[0]+" is "+(n*m(A[0])/m(A[1])).toFixed(4)+" "+A[1])

ฉันใช้วิธีแฮชฟังก์ชัน ... ฉันคิดว่าฉันประเมินค่าต่ำกว่า (ค่อนข้าง) ความซับซ้อนของการประมวลผลอินพุต (เหนือวิธี regex ที่ไม่สนใจจำนวน)

ตามคำตอบของ @ FryAmTheEggMan ด้วยวิธีทดสอบที่แตกต่างstr.startwith:

Python 2: 317

h='half'
C=dict(fa=1,pe=4,twop=8,tu=8,thr=12,gr=16,si=24,ta=24,sh=48,b=48,fl=96,c=240,po=960,so=960,q=960,gu=1008)
C.update({h+'p':2,h+' gr':8,'two ':96,h+' c':120,h+' s':480,h+' gu':504})
u,v=raw_input().split(' in ')
a,b=u.split(' ',1)
s=lambda x:x and C.get(x, s(x[:-1]))
print u+' is %0.4f '%(eval(a)*s(b)/s(v))+v

JavaScript ES6, 264 273

f=t=>{s=t.split(x=' in')
c=d=>{'t0sh|bo0^p|co0f0fp0fl|b b0gu0d|v0wn0gr0f g|t..?p0f s0f gu0f c0x|an'.split(0).map((e,i)=>{v=s[d].match(e)?[12,48,4,1,2,96,1008,960,240,16,8,480,504,120,24][i]:v})
return v}
return s.join(' is '+~~(1e4*t.split(' ')[0]*c(0)/c(1))/1e4)}

t=prompt()
s=t.split(x=' in')
c=function(d){'t0sh|bo0^p|co0f0fp0fl|b b0gu0d|v0wn0gr0f g|t..?p0f s0f gu0f c0x|an'.split(0).map(function(e,i){v=s[d].match(e)?[12,48,4,1,2,96,1008,960,240,16,8,480,504,120,24][i]:v})
return v}
alert(s.join(' is '+~~(1e4*t.split(' ')[0]*c(0)/c(1))/1e4))

นี้ได้รับค่าของสกุลเงินในแต่ละโดยการตรวจสอบมันกับ regexes ต่างๆที่เริ่มต้นด้วยกว้าง/t/; ค่าจะถูกเขียนทับหากพบการแข่งขันอื่น อาจมีวิธีการโกนไบต์คู่โดยการเรียงลำดับสตริง regex ใหม่ คุณสามารถทดสอบโดยใช้ตัวอย่างด้านบน (เป็นรูปแบบที่จะใช้กล่องโต้ตอบและลบฟังก์ชั่นลูกศร ES6 เพื่อให้ทุกคนสามารถทดสอบโค้ดได้อย่างง่ายดาย) ขอบคุณ Alconja สำหรับคำแนะนำ