load '~addons\tables\tara\tara.ijs' $ eurovisiooni_punktitabel =: readexcel kaust, 'eurovisioon_nimedega.xls' NB. 25 38 $ eur =: > }:"1 }."1 }. eurovisiooni_punktitabel NB. 24 36 load 'stats' vordlus =: 13 : '+/ x. ="0 y.' vordle =: monad define korr_adiag + |: korr_adiag=. (tarv, tarv)$(((0{tunnuspaarid){"1 y.) vordlus ((1{tunnuspaarid=. |:2 comb tarv){"1 y.)) (I. , adiag tarv) }, adiag tarv=. (1{$y.) ) vordlus =: 13 : '+/ x. >"0 y.' $ vsuurem =: vordle |: eur NB. 24 24 vordlus =: 13 : '+/ x. <"0 y.' $ vvaiksem =: vordle |: eur NB. 24 24 0 1 { eur NB. 0 0 5 0 1 4 6 0 4 0 3 1 12 5 10 4 2 0 1 0 10 0 3 0 0 1 0 8 4 0 7 7 1 6 0 1 NB. 0 0 0 0 0 0 0 0 0 0 0 4 0 0 5 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 vsuurem * adiag 24 (vvaiksem * bdiag 24) + vsuurem * adiag 24 NB. 0 22 22 15 21 9 22 20 16 8 22 22 20 23 23 23 21 4 19 13 22 9 5 20 NB. 1 0 2 2 2 0 2 2 1 1 2 2 2 2 2 2 2 0 1 2 2 0 1 2 NB. 3 3 0 3 3 1 2 3 3 0 3 3 2 3 2 2 2 0 1 1 3 0 0 3 NB. 10 13 12 0 12 12 12 12 9 7 12 13 13 13 13 13 13 5 11 11 13 7 7 13 NB. 5 11 11 7 0 6 11 9 9 2 10 11 11 11 10 11 8 1 9 9 11 5 3 11 NB. 25 32 32 22 28 0 28 28 22 12 30 32 29 32 30 30 26 12 23 16 31 19 10 32 NB. 7 7 7 6 6 5 0 6 4 2 7 7 6 7 7 5 7 3 5 4 7 4 2 7 NB. 5 9 9 4 6 6 9 0 7 3 9 9 9 9 8 9 8 1 7 8 8 6 5 8 NB. 14 19 18 14 17 12 18 15 0 5 18 18 14 19 18 19 17 7 15 11 18 8 5 17 NB. 28 35 35 28 33 24 33 32 30 0 34 35 33 35 35 34 31 17 31 27 35 23 11 34 NB. 3 5 5 3 4 2 3 5 4 1 0 5 5 5 5 5 4 1 5 1 5 0 0 5 NB. 1 1 1 1 1 0 1 1 1 0 1 0 1 1 1 1 1 1 1 0 1 1 1 1 NB. 11 15 16 12 13 6 14 12 12 3 15 15 0 16 13 15 10 5 12 4 16 7 1 15 NB. 0 1 1 0 1 0 1 1 1 0 1 1 1 0 1 1 1 0 1 1 1 0 0 1 NB. 4 7 8 7 7 3 7 8 7 1 8 8 8 7 0 6 5 1 7 5 8 1 1 7 NB. 4 4 4 4 4 3 4 4 2 1 4 4 3 4 4 0 2 1 1 1 4 2 1 4 NB. 8 9 10 9 9 7 10 9 10 5 10 10 10 10 9 10 0 5 7 7 10 7 2 10 NB. 32 35 35 31 35 24 32 35 28 19 34 34 30 35 34 34 31 0 30 24 33 22 17 33 NB. 11 17 17 15 16 11 16 17 14 5 17 18 16 18 15 18 17 5 0 10 18 6 5 15 NB. 22 29 30 24 22 20 27 24 23 8 30 30 28 30 27 29 24 12 24 0 29 20 8 30 NB. 2 3 3 3 3 1 2 3 3 0 3 3 2 3 3 3 2 2 1 1 0 2 1 1 NB. 25 31 31 26 27 17 28 28 27 13 31 30 26 31 30 30 25 14 28 16 31 0 14 29 NB. 30 33 34 28 33 26 32 31 30 25 34 33 34 34 34 33 33 19 30 27 33 22 0 33 NB. 7 10 10 9 8 0 9 10 8 1 9 10 7 9 9 10 7 2 8 1 10 4 1 0 euro =: (vvaiksem * bdiag 24) + vsuurem * adiag 24 euro > |: euro NB. 0 1 1 1 1 0 1 1 1 0 1 1 1 1 1 1 1 0 1 0 1 0 0 1 NB. 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 0 0 0 0 0 0 0 0 0 NB. 0 1 0 0 0 0 0 0 0 0 0 1 0 1 0 0 0 0 0 0 0 0 0 0 NB. 0 1 1 0 1 0 1 1 0 0 1 1 1 1 1 1 1 0 0 0 1 0 0 1 NB. 0 1 1 0 0 0 1 1 0 0 1 1 0 1 1 1 0 0 0 0 1 0 0 1 NB. 1 1 1 1 1 0 1 1 1 0 1 1 1 1 1 1 1 0 1 0 1 1 0 1 NB. 0 1 1 0 0 0 0 0 0 0 1 1 0 1 0 1 0 0 0 0 1 0 0 0 NB. 0 1 1 0 0 0 1 0 0 0 1 1 0 1 0 1 0 0 0 0 1 0 0 0 NB. 0 1 1 1 1 0 1 1 0 0 1 1 1 1 1 1 1 0 1 0 1 0 0 1 NB. 1 1 1 1 1 1 1 1 1 0 1 1 1 1 1 1 1 0 1 1 1 1 0 1 NB. 0 1 1 0 0 0 0 0 0 0 0 1 0 1 0 1 0 0 0 0 1 0 0 0 NB. 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 NB. 0 1 1 0 1 0 1 1 0 0 1 1 0 1 1 1 0 0 0 0 1 0 0 1 NB. 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 NB. 0 1 1 0 0 0 0 0 0 0 1 1 0 1 0 1 0 0 0 0 1 0 0 0 NB. 0 1 1 0 0 0 0 0 0 0 0 1 0 1 0 0 0 0 0 0 1 0 0 0 NB. 0 1 1 0 1 0 1 1 0 0 1 1 0 1 1 1 0 0 0 0 1 0 0 1 NB. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 1 1 1 1 0 1 NB. 0 1 1 1 1 0 1 1 0 0 1 1 1 1 1 1 1 0 0 0 1 0 0 1 NB. 1 1 1 1 1 1 1 1 1 0 1 1 1 1 1 1 1 0 1 0 1 1 0 1 NB. 0 1 0 0 0 0 0 0 0 0 0 1 0 1 0 0 0 0 0 0 0 0 0 0 NB. 1 1 1 1 1 0 1 1 1 0 1 1 1 1 1 1 1 0 1 0 1 0 0 1 NB. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 1 NB. 0 1 1 0 0 0 1 1 0 0 1 1 0 1 1 1 0 0 0 0 1 0 0 0 $ euro24 =: euro > |: euro NB. 24 24 touranking euro24 NB. 22 17 9 19 5 21 0 8 18 3 16 12 4 23 14 7 6 10 15 20 2 1 13 11 NB. 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 NB. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1