;; this file: https://dataswamp.org/~incal/hockey/vm.el

;; also see:  https://dataswamp.org/~incal/hockey/jvm.el
;;      and:  https://dataswamp.org/~incal/hockey/os.el


;; source: https://en.wikipedia.org/wiki/List_of_IIHF_World_Championship_medalists


(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 "IIHF")
     (point-max) )))

(defun point-at-string (s)
  (save-excursion
    (search-forward s)
    (point) ))


;; some interesting examples...

(when nil
  (+ (how-many-medals "SSSR"   1) ; 22
     (how-many-medals "Russia" 1) ;  5
     )                            ; 27

  (how-many-medals "Canada" 1) ; 26
  (how-many-medals "Canada" 2) ; 15
  (how-many-medals "Canada" 3) ;  9

  (+ (how-many-medals "Czechoslovakia" 1) ;  6
     (how-many-medals "Czech Republic" 1) ;  6
     (how-many-medals "Slovakia"       1) ;  1
     )                                    ; 13

  (how-many-medals "Sweden" 1) ; 11
  (how-many-medals "Sweden" 2) ; 19
  (how-many-medals "Sweden" 3) ; 17

  (how-many-medals "Finland" 1) ;  3
  (how-many-medals "Finland" 2) ;  8
  (how-many-medals "Finland" 3) ;  3

  (how-many-medals "USA" 1) ;  2
  (how-many-medals "USA" 2) ;  9
  (how-many-medals "USA" 3) ;  8
)

;;      gold           silver         bronze                 IIHF IHWC
;; -------------------------------------------------------------------
;; 1920 Canada         USA            Czechoslovakia Antwerp
;; 1924 Canada         USA            UK             Chamonix
;; 1928 Canada         Sweden         Switzerland    St. Moritz
;; 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 Sodertalje, Stockholm
;; 1990 SSSR           Sweden         Czechoslovakia Berne, Fribourg
;; 1991 Sweden         Canada         SSSR           Helsinki, Tampere, Turku
;; 1992 Sweden         Finland        Czechoslovakia Bratislava, Prague
;; 1993 Russia         Sweden         Czech Republic Dortmund, Munich
;; 1994 Canada         Finland        Sweden         Bolzano, Canazei, Milan
;; 1995 Finland        Sweden         Canada         Gavle, Stockholm
;; 1996 Czech Republic Canada         USA            Vienna
;; 1997 Canada         Sweden         Czech Republic Helsinki, Tampere, Turku
;; 1998 Sweden         Finland        Czech Republic Basle, Zurich
;; 1999 Czech Republic Finland        Sweden         Hamar, Lillehammer, Oslo
;; 2000 Czech Republic Slovakia       Finland        St. Petersburg
;; 2001 Czech Republic 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 Czech Republic Canada         Russia         Innsbruck, Vienna
;; 2006 Sweden         Czech Republic Finland        Riga
;; 2007 Canada         Finland        Russia         Moscow, Mytishi
;; 2008 Russia         Canada         Finland        Halifax, Quebec City
;; 2009 Russia         Canada         Sweden         Berne, Zurich-Kloten
;; 2010 Czech Republic Russia         Sweden         Cologne, Gelsenkirchen, Mannheim
;; 2011 Finland        Sweden         Czech Republic Bratislava, Košice
;; 2012 Russia         Slovakia       Czech Republic Helsinki, Stockholm
;; 2013 Sweden         Switzerland    USA            Helsinki, Stockholm (final)
;; 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