;;; -*- 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:
;;   World War 2:   1940-1946
;;   Olympic years: 1980, 1984, 1988
;;   covid-19:      2020
;;
;; 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.
;;
;;   * "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 and in Latvia.
;;     <https://olympics.com/en/news/ice-hockey-2021-world-championship-moved-minsk-security-issues>
;;
;;   * Belarus and Russia were expelled by the IIHF due to the
;;     full-scale Russian invasion of Ukraine, which was
;;     launched partly from the territory of Belarus; they did
;;     not play the 2022 and 2023 tournaments. The 2023 event
;;     was originally planned for St Petersburg, Russia.
;;     <https://en.wikipedia.org/wiki/2023_IIHF_World_Championship>
;;
;;   * 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) ; 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        Tampere, Helsinki
;; 2023 Canada         Germany        Latvia         Riga, Tampere