;;; -*- lexical-binding: t -*- ;; ;; this file: ;; https://dataswamp.org/~incal/hockey/wc.el - World Championship (Worlds) ;; ;; 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: ;; 1940-1946 (WW2) ;; 1980, 1984, 1988 (Olympic Games) ;; 2020 (covid-19) ;; ;; notes: ;; ;; * The games in 1920, 1924 and 1928 were Olympic hockey ;; tournaments but the IIHF considers the winners of these ;; tournaments these year's world champions as well. ;; The Olympic Games finals in 1932, 1936, 1948, 1952, ;; 1956, 1960, 1964 and 1968 are also considered ;; World Championship finals; all these are are marked [*]. ;; ;; * "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." ;; ;; ;; * 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. ;; ;; ;; * Belarus and Russia were expelled by the IIHF due to the ;; full-scale Russian invasion of Ukraine, which was ;; launched partly from Belarus; they did not play the ;; 2022 and 2023 tournaments. The 2023 event was ;; originally planned for St Petersburg. ;; ;; Belarus and Russia also didn't play in 2024. ;; ;; * We always use Czechia and never the Czech Republic. (defun how-many-medals (nat &optional pos) (or pos (setq pos 1)) (let ((col (nth (1- pos) '(8 23 38)))) (how-many (format "^.\\{%d\\}%s" col nat) (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) ; 28 <-- 1 (+ (how-many-medals "SSSR" 1) ; 22 (how-many-medals "Russia" 1) ; 5 ) ; 27 <-- 2 (+ (how-many-medals "Czechoslovakia" 1) ; 6 (how-many-medals "Czechia" 1) ; 6 (how-many-medals "Slovakia" 1) ; 1 ) ; 13 <-- 3 (how-many-medals "Sweden" 1) ; 11 (how-many-medals "Finland" 1) ; 4 (how-many-medals "USA" 1) ; 2 (how-many-medals "UK" 1) ; 1 ) ;; ---------------------------------------------------------------------------- ;; gold silver bronze Olympic Games ;; ---------------------------------------------------------------------------- ;; 1920 Canada USA Czechoslovakia Antwerp [*] ;; 1924 Canada USA UK Chamonix [*] ;; 1928 Canada Sweden Switzerland St Moritz [*] ;; ;; ---------------------------------------------------------------------------- ;; IIHF Worlds ;; ---------------------------------------------------------------------------- ;; 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 Colorado Springs, Denver ;; 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 Stockholm, Södertalje ;; 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 Gävle, 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, St 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 Helsinki, Tampere ;; 2023 Canada Germany Latvia Riga, Tampere ;; 2024 Ostrava, Prague