;;; -*- lexical-binding: t -*- ;; ;; this file: ;; https://dataswamp.org/~incal/hockey/wj.el - World Juniors ;; ;; also see: ;; https://dataswamp.org/~incal/hockey/wc.el - World Championship ;; https://dataswamp.org/~incal/hockey/og.el - Olympic Games ;; ;; source: ;; https://en.wikipedia.org/wiki/List_of_IIHF_World_Under-20_Championship_medalists ;; ;; notes: ;; * Medal computations includes the unofficial ;; World Juniors in 1974, 1975 and 1976. ;; ;; * In 1992, the gold medal was formally claimed by the ;; CIS, the Commonwealth of Independent States; here, ;; Russia is stated. ;; ;; * In 1993, the bronze medal was formally claimed by the ;; Czech, Slovak Republics; here, Czechoslovakia ;; is stated. ;; ;; * We always use Czechia and never the Czech Republic. ;; ;; notes on Edmonton 2021: ;; * Zero spectators because of covid-19. ;; ;; * Since 2010, three nations have dominated the WJs: ;; USA (4 golds), Canada (3) and Finland (3). The only ;; other gold medalists in that period are Sweden (2012) ;; and Russia (2011). ;; ;; (wj-find-gold-since 2010 "USA" ) ; 2010 2013 2017 2021 ;; (wj-find-gold-since 2010 "Canada" ) ; 2015 2018 2020 ;; (wj-find-gold-since 2010 "Finland") ; 2014 2016 2019 ;; (wj-find-gold-since 2010 "Sweden" ) ; 2012 ;; (wj-find-gold-since 2010 "Russia" ) ; 2011 (require 'cl-lib) (defun wj-find-gold-since (year nation) (cl-delete-if (lambda (g) (> year g)) (wj-find-gold nation) )) (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 "USA") ; 2004 2010 2013 2017 2021 ;; (wj-find-gold "Finland") ; 1987 1998 2014 2016 2019 (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 <-- No 1, 18-12 (wj-how-many-medals "Canada" 2) ; 12 (+ (wj-how-many-medals "SSSR" 1) ; 11 (wj-how-many-medals "Russia" 1) ; 5 ) ; 16 <-- No 2, 16-13 (+ (wj-how-many-medals "SSSR" 2) ; 3 (wj-how-many-medals "Russia" 2) ; 10 ) ; 13 (wj-how-many-medals "Finland" 1) ; 5 <-- No 3, 5-5 (wj-how-many-medals "USA" 1) ; 5 (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 "Czechia" 1) ; 2 (wj-how-many-medals "Slovakia" 1) ; 0 ) ; 2 (+ (wj-how-many-medals "Czechoslovakia" 2) ; 5 (wj-how-many-medals "Czechia" 2) ; 0 (wj-how-many-medals "Slovakia" 2) ; 0 ) ; 5 ) ;; ---------------------------------------------------------------------------- ;; gold silver bronze unofficial WJs ;; ---------------------------------------------------------------------------- ;; 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 Czechia Russia Canada Skellefteå, Umeå ;; 2001 Czechia 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 Czechia 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 ;; 2021 USA Canada Finland Edmonton