;;; this file: https://dataswamp.org/~incal/hockey/wj.el
;;;
;;; also see:  https://dataswamp.org/~incal/hockey/wc.el
;;;      and:  https://dataswamp.org/~incal/hockey/og.el
;;;
;;; source: https://en.wikipedia.org/wiki/List_of_IIHF_World_Under-20_Championship_medalists
;;;
;;; notes:
;;;
;;;   * medal computation fallout includes the three
;;;     unofficial World Juniors, held in 1974, 1975,
;;;     and 1976
;;;
;;;   * in 1992, the gold medal was formally claimed by the
;;;     CIS, the "Commonwealth of Independent States";
;;;     instead, for practical reasons, Russia is stated
;;;
;;;   * in 1993, the bronze medal was formally claimed by the
;;;     "Czech, Slovak Republics"; instead, Czechoslovakia is
;;;     stated

(defun wj-find-gold (nation)
  (save-excursion
    (let*((search-string (concat ";; [0-9]\\{4\\} " nation))
          (years '()))
      (while (re-search-forward search-string (point-max) t)
        (push
         (string-to-number (substring (match-string 0) 3 7))
         years) )
      (reverse years)) ))
;; (wj-find-gold "Finland") ; (1987 1998 2014 2016 2019)
;; (wj-find-gold "USA")     ; (2004 2010 2013 2017)

(defun wj-how-many-medals (nation &optional position)
  (let*((position (or position 1)) ; default: gold medal
        (col      (nth (1- position) '(8 23 38))) )
    (how-many
     (format "^.\\{%d\\}%s" col nation)
     (wj-point-at-string "WJ")
     (point-max) )))

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

;; all winners

(when nil

  (wj-how-many-medals    "Canada" 1) ; 18
  (wj-how-many-medals    "Canada" 2) ; 11

  (+ (wj-how-many-medals "SSSR"   1) ; 11
     (wj-how-many-medals "Russia" 1) ;  5
     )                               ; 16

  (+ (wj-how-many-medals "SSSR"   2) ;  3
     (wj-how-many-medals "Russia" 2) ; 10
     )                               ; 13

  (wj-how-many-medals    "Finland" 1) ;  5
  (wj-how-many-medals    "Finland" 2) ;  5

  (wj-how-many-medals    "USA" 1) ;  4
  (wj-how-many-medals    "USA" 2) ;  2

  (wj-how-many-medals    "Sweden" 1) ;  2
  (wj-how-many-medals    "Sweden" 2) ; 11

  (+ (wj-how-many-medals "Czechoslovakia" 1) ;  0
     (wj-how-many-medals "Czech Republic" 1) ;  2
     (wj-how-many-medals "Slovakia"       1) ;  0
     )                                       ;  2

  (+ (wj-how-many-medals "Czechoslovakia" 2) ;  5
     (wj-how-many-medals "Czech Republic" 2) ;  0
     (wj-how-many-medals "Slovakia"       2) ;  0
     )                                       ;  5
)

;;      gold           silver         bronze             unofficial WJ
;; -------------------------------------------------------------------
;; 1974 SSSR           Finland        Canada         Leningrad
;; 1975 SSSR           Canada         Sweden         Brandon, Winnipeg
;; 1976 SSSR           Canada         Czechoslovakia Pori, Rauna, Tampere, Turku
;;
;;
;;                                                          IIHF IHWJC
;; -------------------------------------------------------------------
;; 1977 SSSR           Canada         Czechoslovakia  Banská Bystrica, Zvolen
;; 1978 SSSR           Sweden         Canada          Montreal, Quebec City
;; 1979 SSSR           Czechoslovakia Sweden          Karlskoga, Karlstad
;; 1980 SSSR           Finland        Sweden          Helsinki, Vantaa
;; 1981 Sweden         Finland        SSSR            Füssen, Kaufbeuren, Landsberg
;; 1982 Canada         Czechoslovakia Finland         Bloomington, Duluth, Minneapolis; Kenora, Winnipeg
;; 1983 SSSR           Czechoslovakia Canada          Leningrad
;; 1984 SSSR           Finland        Czechoslovakia  Norrköping, Nyköping
;; 1985 Canada         Czechoslovakia SSSR            Helsinki, Turku
;; 1986 SSSR           Canada         USA             Hamilton, London, Toronto
;; 1987 Finland        Czechoslovakia Sweden          Nitra, Pieštany, Topolčany, Trenčín
;; 1988 Canada         SSSR           Finland         Moscow
;; 1989 SSSR           Sweden         Czechoslovakia  Anchorage, Eagle River
;; 1990 Canada         SSSR           Czechoslovakia  Helsinki, Turku
;; 1991 Canada         SSSR           Czechoslovakia  Saskatoon, Regina
;; 1992 Russia         Sweden         USA             Füssen, Kaufbeuren
;; 1993 Canada         Sweden         Czechoslovakia  Falun, Gävle, Uppsala
;; 1994 Canada         Sweden         Russia          Frydek-Místek, Ostrava
;; 1995 Canada         Russia         Sweden          Calgary, Edmonton, Red Deer
;; 1996 Canada         Sweden         Russia          Amherst, Boston, Marlborough
;; 1997 Canada         USA            Russia          Geneva, Morges
;; 1998 Finland        Russia         Switzerland     Helsinki, Hämeenlinna
;; 1999 Russia         Canada         Slovakia        Brandon, Selkirk, Winnipeg
;; 2000 Czech Republic Russia         Canada          Skellefteå, Umeå
;; 2001 Czech Republic Finland        Canada          Moscow, Podolsk
;; 2002 Russia         Canada         Finland         Hradec Králové, Pardubice
;; 2003 Russia         Canada         Finland         Halifax, Sydney
;; 2004 USA            Canada         Finland         Helsinki, Hämeenlinna
;; 2005 Canada         Russia         Czech Republic  Grand Forks, Thief River Falls
;; 2006 Canada         Russia         Finland         Kamloops, Kelowna, Vancouver
;; 2007 Canada         Russia         USA             Leksand, Mora
;; 2008 Canada         Sweden         Russia          Liberec, Pardubice
;; 2009 Canada         Sweden         Russia          Ottawa
;; 2010 USA            Canada         Sweden          Saskatoon, Regina
;; 2011 Russia         Canada         USA             Buffalo, Lewiston
;; 2012 Sweden         Russia         Canada          Calgary, Edmonton
;; 2013 USA            Sweden         Russia          Ufa
;; 2014 Finland        Sweden         Russia          Malmö
;; 2015 Canada         Russia         Slovakia        Montreal, Toronto
;; 2016 Finland        Russia         USA             Helsinki
;; 2017 USA            Canada         Russia          Montreal, Toronto
;; 2018 Canada         Sweden         USA             Buffalo, Orchard Park
;; 2019 Finland        USA            Russia          Vancouver, Victoria
;; 2020 Canada         Russia         Sweden          Ostrava, Trinec