[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
congrats Finland
From: |
Emanuel Berg |
Subject: |
congrats Finland |
Date: |
Tue, 31 May 2022 05:29:33 +0200 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/29.0.50 (gnu/linux) |
;; this file:
;; https://dataswamp.org/~incal/hockey/wc.el - World Championship
;;
;; also see:
;; https://dataswamp.org/~incal/hockey/wj.el - World Juniors
;; https://dataswamp.org/~incal/hockey/og.el - Olympic Games
;;
;; source:
;; https://en.wikipedia.org/wiki/List_of_IIHF_World_Championship_medalists
;;
;; no games:
;; World War 2: 1940-1946
;; Olympic years: 1980, 1984, 1988
;; covid-19: 2020
;;
;; notes:
;; * The games in 1920, 1924 and 1928 were actually
;; Olympic hockey tournaments but the IIHF considers the
;; winners of these tournaments these year's world
;; champions as well.
;;
;; * "The 2020 IIHF World Championship would have been
;; hosted from 2020-05-08 to 2020-05-24 by Switzerland
;; [but] was cancelled [...] due to the
;; covid-19 pandemic."
;; <https://en.wikipedia.org/wiki/2020_IIHF_World_Championship>
;;
;; * In 2021 the tournament was scheduled to be co-hosted by
;; Minsk and Riga but because of the political and
;; security situation in Belarus it was hosted solely
;; by Latvia.
;;
<https://olympics.com/en/news/ice-hockey-2021-world-championship-moved-minsk-security-issues>
;;
;; * We always use Czechia and never the Czech Republic.
(defun how-many-medals (nation &optional position)
(let*((position (or position 1))
(col (nth (1- position) '(8 23 38))) )
(how-many
(format "^.\\{%d\\}%s" col nation)
(point-at-string "Olympic")
(point-max) )))
(defun point-at-string (s)
(save-excursion
(search-forward s)
(point) ))
;; all winners
(when nil
(how-many-medals "Canada" 1) ; 27 <-- No 1, 27-16
(how-many-medals "Canada" 2) ; 16
(+ (how-many-medals "SSSR" 1) ; 22
(how-many-medals "Russia" 1) ; 5
) ; 27 <-- No 2, 27-10
(+ (how-many-medals "SSSR" 2) ; 7
(how-many-medals "Russia" 2) ; 3
) ; 10
(+ (how-many-medals "Czechoslovakia" 1) ; 6
(how-many-medals "Czechia" 1) ; 6
(how-many-medals "Slovakia" 1) ; 1
) ; 13 <-- No 3, 13-15
(+ (how-many-medals "Czechoslovakia" 2) ; 12
(how-many-medals "Czechia" 2) ; 1
(how-many-medals "Slovakia" 2) ; 2
) ; 15
(how-many-medals "Sweden" 1) ; 11
(how-many-medals "Sweden" 2) ; 19
(how-many-medals "Finland" 1) ; 4
(how-many-medals "Finland" 2) ; 9
(how-many-medals "USA" 1) ; 2
(how-many-medals "USA" 2) ; 9
(how-many-medals "UK" 1) ; 1
(how-many-medals "UK" 2) ; 2
)
;; ----------------------------------------------------------------------------
;; gold silver bronze Olympic Games
;; ----------------------------------------------------------------------------
;; 1920 Canada USA Czechoslovakia Antwerp
;; 1924 Canada USA UK Chamonix
;; 1928 Canada Sweden Switzerland St Moritz
;;
;; ----------------------------------------------------------------------------
;; IIHF IHWC
;; ----------------------------------------------------------------------------
;; 1930 Canada Germany Switzerland Berlin, Chamonix, Vienna
;; 1931 Canada USA Austria Krynica
;; 1932 Canada USA Germany Lake Placid
;; 1933 USA Canada Czechoslovakia Prague
;; 1934 Canada USA Germany Milan
;; 1935 Canada Switzerland UK Davos
;; 1936 UK Canada USA Garmisch-Partenkirchen
;; 1937 Canada UK Switzerland London
;; 1938 Canada UK Czechoslovakia Prague
;; 1939 Canada USA Switzerland Basle, Zurich
;; 1947 Czechoslovakia Sweden Austria Prague
;; 1948 Canada Czechoslovakia Switzerland St. Moritz
;; 1949 Czechoslovakia Canada USA Stockholm
;; 1950 Canada USA Switzerland London
;; 1951 Canada Sweden Switzerland Paris
;; 1952 Canada USA Sweden Oslo
;; 1953 Sweden West Germany Switzerland Basle, Zurich
;; 1954 SSSR Canada Sweden Stockholm
;; 1955 Canada SSSR Czechoslovakia Cologne, Dortmund, Krefeld
;; 1956 SSSR USA Canada Cortina
;; 1957 Sweden SSSR Czechoslovakia Moscow
;; 1958 Canada SSSR Sweden Oslo
;; 1959 Canada SSSR Czechoslovakia Bratislava, Prague
;; 1960 USA Canada SSSR Squaw Valley
;; 1961 Canada Czechoslovakia SSSR Geneva, Lausanne
;; 1962 Sweden Canada USA Denver, Colorado Springs
;; 1963 SSSR Sweden Czechoslovakia Stockholm
;; 1964 SSSR Sweden Czechoslovakia Innsbruck
;; 1965 SSSR Czechoslovakia Sweden Tampere
;; 1966 SSSR Czechoslovakia Canada Ljubljana
;; 1967 SSSR Sweden Canada Vienna
;; 1968 SSSR Czechoslovakia Canada Grenoble
;; 1969 SSSR Sweden Czechoslovakia Stockholm
;; 1970 SSSR Sweden Czechoslovakia Stockholm
;; 1971 SSSR Czechoslovakia Sweden Berne, Geneva
;; 1972 Czechoslovakia SSSR Sweden Prague
;; 1973 SSSR Sweden Czechoslovakia Moscow
;; 1974 SSSR Czechoslovakia Sweden Helsinki
;; 1975 SSSR Czechoslovakia Sweden Dusseldorf, Munich
;; 1976 Czechoslovakia SSSR Sweden Katowice
;; 1977 Czechoslovakia Sweden SSSR Vienna
;; 1978 SSSR Czechoslovakia Canada Prague
;; 1979 SSSR Czechoslovakia Sweden Moscow
;; 1981 SSSR Sweden Czechoslovakia Gothenburg, Stockholm
;; 1982 SSSR Czechoslovakia Canada Helsinki, Tampere
;; 1983 SSSR Czechoslovakia Canada Dortmund, Dusseldorf,
Munich
;; 1985 Czechoslovakia Canada SSSR Prague
;; 1986 SSSR Sweden Canada Moscow
;; 1987 Sweden SSSR Czechoslovakia Vienna
;; 1989 SSSR Canada Czechoslovakia Södertalje, Stockholm
;; 1990 SSSR Sweden Czechoslovakia Berne, Fribourg
;; 1991 Sweden Canada SSSR Helsinki, Tampere, Turku
;; 1992 Sweden Finland Czechoslovakia Bratislava, Prague
;; 1993 Russia Sweden Czechia Dortmund, Munich
;; 1994 Canada Finland Sweden Bolzano, Canazei, Milan
;; 1995 Finland Sweden Canada Gavle, Stockholm
;; 1996 Czechia Canada USA Vienna
;; 1997 Canada Sweden Czechia Helsinki, Tampere, Turku
;; 1998 Sweden Finland Czechia Basle, Zurich
;; 1999 Czechia Finland Sweden Hamar, Lillehammer, Oslo
;; 2000 Czechia Slovakia Finland St. Petersburg
;; 2001 Czechia Finland Sweden Cologne, Hanover, Nuremberg
;; 2002 Slovakia Russia Sweden Göteborg, Jönköping,
Karlstad
;; 2003 Canada Sweden Slovakia Helsinki, Tampere, Turku
;; 2004 Canada Sweden USA Ostrava, Prague
;; 2005 Czechia Canada Russia Innsbruck, Vienna
;; 2006 Sweden Czechia Finland Riga
;; 2007 Canada Finland Russia Moscow, Mytishi
;; 2008 Russia Canada Finland Halifax, Quebec City
;; 2009 Russia Canada Sweden Berne, Zurich-Kloten
;; 2010 Czechia Russia Sweden Cologne, Gelsenkirchen,
Mannheim
;; 2011 Finland Sweden Czechia Bratislava, Košice
;; 2012 Russia Slovakia Czechia Helsinki, Stockholm
;; 2013 Sweden Switzerland USA Helsinki, Stockholm
;; 2014 Russia Finland Sweden Minsk
;; 2015 Canada Russia USA Ostrava, Prague
;; 2016 Canada Finland Russia Moscow, S:t Petersburg
;; 2017 Sweden Canada Russia Cologne, Paris
;; 2018 Sweden Switzerland USA Copenhagen, Herning
;; 2019 Finland Canada Russia Bratislava, Košice
;; 2021 Canada Finland USA Riga
;; 2022 Finland Canada Czechia Tampere, Helsinki
--
underground experts united
https://dataswamp.org/~incal
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- congrats Finland,
Emanuel Berg <=