Keskustelu: Koodit: Mikä maa tuotti Pekingin talviolympialaisissa tehokkaiten mitaleja?

1.43510552735094E-7 Ruotsi
3.93126461403821E-8 Slovenia
3.4251078491457E-8 Norja
2.11055081589029E-8 Sveitsi
2.06147397863241E-8 Slovakia
1.93103859520495E-8 Viro
1.28172329234724E-8 Uusi-Seelanti
1.12262322030814E-8 Saksa
7.96682512044485E-9 Valko-Venäjä
7.36683375198129E-9 Unkari
4.91297312600038E-9 Suomi
3.94729717164101E-9 Alankomaat
3.27287741041033E-9 Tšekki
1.72986291698784E-9 Itävalta
1.44881458642858E-9 Italia
1.34450197745249E-9 Ranska
1.1639935714177E-9 Kiina
1.05056378410923E-9 Latvia
1.02456006748244E-9 Belgia
3.71492790708E-10 Ukraina
3.26168650217016E-10 Etelä-Korea
2.95575002344421E-10 Australia
2.76269141307102E-10 Venäjä
1.61700822692252E-10 Japani
1.0129304448352E-10 Yhdysvallat
8.96629316657505E-11 Kanada
6.63893747110962E-11 Iso-Britannia
4.61637629220079E-11 Espanja
9.51091342900738E-12 Puola

rebol[]
;Pekingin talviolympialaisten 2022 mitalitaulukko
;Kaikissa taulukoissa rivit maittain aakkosjärjestyksessä
mitalit:
[
["Alankomaat" 8 5 4]
["Australia" 1 2 1]
["Belgia" 1 0 1]
["Espanja" 0 1 0]
["Etelä-Korea" 2 5 2]
["Iso-Britannia" 1 1 0]
["Italia" 2 7 8]
["Itävalta" 7 7 4]
["Japani" 3 6 9]
["Kanada" 4 8 14]
["Kiina" 9 4 2]
["Latvia" 0 0 1]
["Norja" 16 8 13]
["Puola" 0 0 1]
["Ranska" 5 7 2]
["Ruotsi" 8 5 5]
["Saksa" 12 10 5]
["Slovakia" 1 0 1]
["Slovenia" 2 3 2]
["Suomi" 2 2 4]
["Sveitsi" 7 2 6]
["Tšekki" 1 0 1]
["Ukraina" 0 1 0]
["Unkari" 1 0 2]
["Uusi-Seelanti" 2 1 0]
["Valko-Venäjä" 0 2 0]
["Venäjä" 6 12 14]
["Viro" 0 0 1]
["Yhdysvallat" 8 10 7]
]

;bruttokansantuote miljoonaa dollaria
brutto:
[
["Alankomaat" 990583.0]
["Australia" 1724787.0]
["Belgia" 589491.0]
["Espanja" 1389927.0]
["Etelä-Korea" 1734207.0]
["Italia" 1996934.0]
["Itävalta" 468046.0]
["Japani" 4300621.0]
["Kanada" 2200352.0]
["Kiina" 18321197.0]
["Latvia" 40588.0]
["Norja" 504703.0]
["Puola" 716305.0]
["Ranska" 2778090.0]
["Ruotsi" 603922.0]
["Saksa" 431149.0]
["Slovakia" 112418.0]
["Slovenia" 62191.0]
["Suomi" 281411.0]
["Sveitsi" 807418.0]
["Tšekki" 295618.0]
["Ukraina" 199719.0]
["Unkari" 184651.0]
["Uusi-Seelanti" 112417.0]
["Uusi-Seelanti" 242700.0]
["Valko-Venäjä" 79704.0]
["Venäjä" 2133092.0]
["Viro" 39054.0]
["Yhdysvallat" 2535164.0]
]
;väkiluku tuhatta
väkiluku:
[
["Alankomaat" 17135]
["Australia" 25500.0]
["Belgia" 11590.0]
["Espanja" 46755.0]
["Etelä-Korea" 51269.0]
["Iso-Britannia" 67886.0]
["Italia" 60462.0]
["Itävalta" 9006.0]
["Japani" 126476.0]
["Kanada" 37742.0]
["Kiina" 1439331.0]
["Latvia" 1886.0]
["Norja" 5421.0]
["Puola" 37847.0]
["Ranska" 65273.0]
["Ruotsi" 1099.0]
["Saksa" 84784.0]
["Slovakia" 5460.0]
["Slovenia" 2079.0]
["Suomi" 5546.0]
["Sveitsi" 8655.0]
["Tšekki" 10709.0]
["Ukraina" 43734.0]
["Unkari" 9660.0]
["Uusi-Seelanti" 4822.0]
["Valko-Venäjä" 9449.0]
["Venäjä" 145934.0]
["Viro" 1326.0]
["Yhdysvallat" 331004.0]
]
tehokkuus: copy[]
;lasketaan valtion mitalin tuotto tehokkuus kaavalla  mitaliluku/(väkiluku * bruttokansantuote),
; missä muuttuja nimeltään mitaliluku saa arvon siten, että jokaisesta kultamitalista saa 6 pistettä,
;hopeasta 3 ja pronssista 1

lmrk: to-char 34
for i 1 length? mitalit 1 [
	mitaliluku: (6 * mitalit/(i)/2) + (3 * mitalit/(i)/3) + (mitalit/(i)/4)
	jakaja: väkiluku/(i)/2 * brutto/(i)/2
	tehokkuusluku: mitaliluku / jakaja
	append tehokkuus to-block rejoin ["[" tehokkuusluku " " lmrk mitalit/(i)/1 lmrk "]"]
]
sort/reverse tehokkuus
for i 1 length? tehokkuus 1 [
	print rejoin[tehokkuus/(i)/1 " " tehokkuus/(i)/2]
]
halt