Aż do zdziesiątkowania w 1971 r. Brytyjskie pieniądze opierały się na podziale funta na 240 centów. Szyling wynosił 12 centów, więc 20 szylingów to funt. Najmniejszy nominał to grzebanie w jednej czwartej centa. Istnieje wiele innych nominałów i pseudonimów monet, co może być dość mylące, jeśli nie jesteś przyzwyczajony do systemu.

Wyzwanie

Napisz program lub funkcję, która może konwertować (prawie) dowolne nominały starych angielskich pieniędzy na dowolne inne. Aby ułatwić użytkownikowi, musisz obsługiwać liczbę mnogą i pseudonimy.

Są to nominały i ich synonimiczne warunki, które musisz wspierać. Dla wygody ich wartość w farthings prowadzi każdą linię.

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

^{(Nie jestem Brytyjczykiem, ta lista nie jest autorytatywna, ale wystarczy na wyzwanie).}

Za pomocą argumentu stdin lub funkcji należy przyjąć ciąg znaków

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

i zwróć lub wydrukuj

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

w których [converted value]to [value to convert]jednostek nominału 1 przekształca się nominał 2.

[value to convert]I [converted value]są pozytywne pływaki. Na wyjściu oba powinny być zaokrąglone lub obcięte do 4 miejsc po przecinku. W razie potrzeby można założyć, że [value to convert]zawsze ma kropkę dziesiętną i zero po wprowadzeniu (np. 1.0Zamiast 1).

Nominały 1 i 2 mogą być dowolnymi dwoma terminami z powyższej listy. Nie martw się, czy są w liczbie mnogiej, czy nie, traktuj wszystkie nominały i synonimy tak samo. Możesz założyć, że format wejściowy i nominały są zawsze prawidłowe.

Przykłady

1 pounds in shilling→ 1 pounds is 20 shilling
( 1.0000 pounds is 20.0000 shillingbyłoby dobrze)

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

Punktacja

Najkrótszy kod w bajtach wygrywa.

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

Bardziej czytelne (nowe wiersze i wcięcia muszą zostać usunięte, aby uruchomić):

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

Aktualizacja: Okazuje się, że jest o 1 znak krótszy (nie wymaga spacji), aby pokroić ciąg na listę 2 ciągów znaków przed uruchomieniem operacji indeksu ciągu. /x"string"<b2 2-> xc"string"2<b2. Nic więcej nie trzeba zmieniać.

Jak to działa:

• Wykorzystuje @ podejścia XNOR dnia patrząc w górę wartości waluty przy użyciu dwóch pierwszych liter, a także sprawę wykrywania początkowego halflub twousunięcie go i ponownie wywołanie funkcji.

• Aby wyszukać wartość pierwszych dwóch znaków, znajduje lokalizację pierwszych dwóch liter waluty w ciągu, a następnie dzieli przez 2 i przyjmuje wartość pod tym indeksem na liście. To jest znacznie krótsze niż dyktat w pyth.

• Wykorzystuje fakt, że x(znajdź w ciągu ciągu) zwraca -1 po nieudanym uniknięciu wpisania po(funtów) qu(quid) lub so(suwerenów) w ciągu i po prostu domyślnie zwraca ostatni element listy, 960.

• Przez zmianę kolejności walut w systemie wyszukiwania i staranne zainicjowanie za pomocą K4i J24, wszystkie spacje, które byłyby potrzebne do oddzielenia liczb na liście, zostały usunięte.

• Używa operatora podwójnego przypisania Pytha A, przy podziale danych wejściowych na, inaby uzyskać początek i koniec danych wejściowych w osobnych zmiennych.

• Robi w zasadzie to samo wyszukiwanie na końcu, chociaż pyth nie ma .split(_,1), więc jest nieco bardziej kłopotliwy.

Przykłady:

$ 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

Rubinowy, 345 306 302 288 287 278 273 253 252 242 232 221 202 190 bajtów

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

Pobiera dane wejściowe ze STDIN i drukuje do STDOUT.

Używam krótkich wyrażeń regularnych, aby dopasować tylko pożądane nominały dla każdej wartości. Istnieją dwie tablice, jedna z wyrażeniami regularnymi i jedna z wartościami, przy odpowiednich indeksach. Tablica wyrażeń regularnych jest literałem rozdzielanym spacjami, a tablica wartości jest spakowana w ciąg znaków UTF-8.

Wybieram indeks do wartości, szukając wyrażenia regularnego pasującego do każdego nominału. Domyślam się również przypadku tuppence / half-groat (wartość 8), ponieważ wymagało to najdłuższego wyrażenia regularnego. Podobnie, niektóre wzorce zakładają, że inne wartości zostały już dopasowane do wcześniejszych wzorców, więc każde wyrażenie regularne odróżnia tylko pożądaną wartość tylko od pozostałych. Korzystając z tego, prawdopodobnie mógłbym ogolić kolejną parę bajtów, zmieniając kolejność nominałów.

Dzięki Ventero za pomoc w pokonaniu Pytha, dzięki czemu jest on krótszy!

Python 3: 264 239 znaków

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)

Funkcja fpobiera szylingową wartość łańcucha walutowego cpoprzez odcisk palca pierwszych dwóch liter za pomocą słownika , znajdując je w ciągu. Przedrostki „połowa” i „dwa” są wykrywane i uwzględniane poprzez wycięcie przedrostka i spacji oraz zastosowanie mnożnika. Ponieważ „halfpenny” nie ma spacji po „half”, skutkuje to „enny”, ale jest to obsługiwane za pomocą fikcyjnego wpisu „en”.

Dzięki @isaacg i @grc za wiele ulepszeń w wyszukiwaniu słownika.

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

Wymaga, aby numer wejściowy był zmiennoprzecinkowy w pythonie, tj 144.1

Myślę, że można to skrócić w Pythonie 3 ...

... Potwierdzone dzięki @xnor. Potwierdził także, że posiadanie lepszego algorytmu ma duże znaczenie;)

Haskell - 315 bajtów

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])

Poszedłem z podejściem funkcji skrótu ... Myślę, że nie doceniłem (względnie), jak skomplikowane byłoby przetwarzanie danych wejściowych (w stosunku do wyrażenia regularnego, które nie dbałoby o liczbę).

Na podstawie odpowiedzi @ FryAmTheEggMan, z innym sposobem testowania 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))

Otrzymuje wartość każdej waluty, porównując ją z różnymi wyrażeniami regularnymi, zaczynając od najszerszego /t/; wartość zostanie zastąpiona, jeśli zostanie znalezione inne dopasowanie. Może istnieć sposób na zmniejszenie kilku bajtów poprzez zmianę kolejności ciągu wyrażeń regularnych. Możesz go przetestować za pomocą powyższego fragmentu (jest sformatowany tylko w celu korzystania z okien dialogowych i usuwania funkcji strzałek ES6, dzięki czemu każdy może łatwo przetestować kod). Dzięki Alconja za sugestie.