From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Emanuel Berg Newsgroups: gmane.emacs.help Subject: congrats Finland Date: Tue, 31 May 2022 05:29:33 +0200 Message-ID: <87sfoq8jmq.fsf@dataswamp.org> Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: 8bit Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="22914"; mail-complaints-to="usenet@ciao.gmane.io" User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/29.0.50 (gnu/linux) To: help-gnu-emacs@gnu.org Cancel-Lock: sha1:g1yo8AMyfhU73sfwG2fLwieeIDg= Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane-mx.org@gnu.org Tue May 31 05:30:45 2022 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1nvsaj-0005mC-0b for geh-help-gnu-emacs@m.gmane-mx.org; Tue, 31 May 2022 05:30:45 +0200 Original-Received: from localhost ([::1]:59190 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1nvsah-0008LP-MV for geh-help-gnu-emacs@m.gmane-mx.org; Mon, 30 May 2022 23:30:43 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:48966) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1nvsZn-0008LB-Ov for help-gnu-emacs@gnu.org; Mon, 30 May 2022 23:29:47 -0400 Original-Received: from ciao.gmane.io ([116.202.254.214]:58730) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1nvsZl-0006FJ-MQ for help-gnu-emacs@gnu.org; Mon, 30 May 2022 23:29:47 -0400 Original-Received: from list by ciao.gmane.io with local (Exim 4.92) (envelope-from ) id 1nvsZi-0004X5-BD for help-gnu-emacs@gnu.org; Tue, 31 May 2022 05:29:42 +0200 X-Injected-Via-Gmane: http://gmane.org/ Mail-Followup-To: help-gnu-emacs@gnu.org Mail-Copies-To: never Received-SPF: pass client-ip=116.202.254.214; envelope-from=geh-help-gnu-emacs@m.gmane-mx.org; helo=ciao.gmane.io X-Spam_score_int: -16 X-Spam_score: -1.7 X-Spam_bar: - X-Spam_report: (-1.7 / 5.0 requ) BAYES_00=-1.9, HEADER_FROM_DIFFERENT_DOMAINS=0.249, SPF_HELO_NONE=0.001, SPF_PASS=-0.001, T_SCC_BODY_TEXT_LINE=-0.01 autolearn=no autolearn_force=no X-Spam_action: no action X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane-mx.org@gnu.org Original-Sender: "help-gnu-emacs" Xref: news.gmane.io gmane.emacs.help:137471 Archived-At: ;; this file: ;; https://dataswamp.org/~incal/hockey/wc.el - World Championship ;; ;; 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 actually ;; Olympic hockey tournaments but the IIHF considers the ;; winners of these tournaments these year's world ;; champions as well. ;; ;; * "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. ;; ;; ;; * 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) ; 27 <-- No 1, 27-16 (how-many-medals "Canada" 2) ; 16 (+ (how-many-medals "SSSR" 1) ; 22 (how-many-medals "Russia" 1) ; 5 ) ; 27 <-- No 2, 27-10 (+ (how-many-medals "SSSR" 2) ; 7 (how-many-medals "Russia" 2) ; 3 ) ; 10 (+ (how-many-medals "Czechoslovakia" 1) ; 6 (how-many-medals "Czechia" 1) ; 6 (how-many-medals "Slovakia" 1) ; 1 ) ; 13 <-- No 3, 13-15 (+ (how-many-medals "Czechoslovakia" 2) ; 12 (how-many-medals "Czechia" 2) ; 1 (how-many-medals "Slovakia" 2) ; 2 ) ; 15 (how-many-medals "Sweden" 1) ; 11 (how-many-medals "Sweden" 2) ; 19 (how-many-medals "Finland" 1) ; 4 (how-many-medals "Finland" 2) ; 9 (how-many-medals "USA" 1) ; 2 (how-many-medals "USA" 2) ; 9 (how-many-medals "UK" 1) ; 1 (how-many-medals "UK" 2) ; 2 ) ;; ---------------------------------------------------------------------------- ;; gold silver bronze Olympic Games ;; ---------------------------------------------------------------------------- ;; 1920 Canada USA Czechoslovakia Antwerp ;; 1924 Canada USA UK Chamonix ;; 1928 Canada Sweden Switzerland St Moritz ;; ;; ---------------------------------------------------------------------------- ;; IIHF IHWC ;; ---------------------------------------------------------------------------- ;; 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 Södertalje, Stockholm ;; 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 Gavle, 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, S:t 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 -- underground experts united https://dataswamp.org/~incal