Il 1 ° luglio è il giorno del Canada (yay Canada)! O è? Sembra che la pagina di Wikipedia di oggi abbia molti contenuti correlati al Canada, ma c'è un altro giorno che è più canadese?

Il tuo compito è quello di scrivere un programma o una funzione che accetta una data (mese e giorno) come input e restituisce o genera il numero di menzioni di "Canada" sulla pagina di Wikipedia per la data inserita. Alcune regole:

• Le date possono essere inserite in qualsiasi formato ragionevole di vostra scelta
• L'invio deve estrarre i dati dall'URL en.wikipedia.org/wiki/Month_Day.
• È "Canada"necessario cercare e contare solo le sottostringhe incluse e solo nel caso del titolo. "Canadian"non conta, tuttavia "Canada's"conta. Finché il testo esatto e sensibile al maiuscolo / minuscolo "Canada"esiste all'interno di una stringa, è una corrispondenza
• I contenuti della pagina sono considerati qualsiasi cosa all'interno del .htmlfile corrispondente (ovvero ciò che viene visualizzato se scarichi come pagina come .htmle lo apri in Blocco note)
• Il risultato può essere inviato a STDOUT, restituito o visualizzato in qualsiasi altro modo ragionevole

Casi test:

July 1 => 34
May 14 => 1
Oct 31 => 2
July 4 => 2

Questo è il golf del codice, quindi vince l'invio più breve

(Come bonus non ricompensato, sono interessato a vedere qual è il giorno con il conteggio più alto)

Pyth, 31 byte

/jk'+"http://enwp.org/"z"Canada

Non funziona sull'implementazione online, il server disabilita l'accesso a Internet. Volevo usare http://wki.pe/July_1 ma purtroppo è un reindirizzamento sul lato client quindi recupera la pagina sbagliata. Il formato di input è July_1.

Il codice è sostanzialmente solo:

"".join(open("http://enwp.org/"+input())).count("Canada")

Bash, 43 42 40 byte

curl -L enwp.org/$@|grep -o Canada|wc -l

Usi curl, grepe wcper contare le occorrenze di "Canada" nella pagina web specificata. Come le altre risposte, l'input è dato nel formato July_1. Questa è la mia prima pubblicazione su Code Golf SE e non conosco bene tutte le regole. Qualsiasi feedback sarebbe il benvenuto.

Non ho capito che l'output di STDERR viene tradizionalmente ignorato. Grazie per i 3 byte, Dennis !

Perl 5, 39 byte

38 byte, più 1 per -peanziché-e

$_=()=`curl -L enwp.org/$_`=~/Canada/g

Accetta input come July_1.

Grazie a busukxuan per avermi salvato sette byte.

Python 3.5, 117 111 98 90 byte

( -8 byte ( 98 -> 90) grazie ad alexwlchan )

from urllib.request import*
lambda i:urlopen('http://enwp.org/'+i).read().count(b"Canada")

Utilizza semplicemente la libreria "urllib" integrata di Python per recuperare i dati HTML e quindi conta le occorrenze della parola "Canada" in tali dati. Proverò a giocare a golf più nel tempo dove e quando posso. Chiamalo rinominando la lambdafunzione in qualsiasi cosa e quindi chiamando quel nome come una normale funzione racchiusa print(). Ad esempio, se la funzione fosse denominata H, la chiameresti come print(H(Month_Day)).

Mathematica, 60 byte

Import["http://enwp.org/"<>#,"Source"]~StringCount~"Canada"&

Funzione anonima. Analogamente alla soluzione Perl 5, accetta input come July_1.

PowerShell, 52 byte

((iwr enwp.org/$($args[0]))-csplit"Canada").length-1

• Inserisci come July_1.
• iwrè l'abbreviazione di Invoke-WebRequest.
• $($args[0])è il primo argomento della riga di comando. Inizia lo script come OhCanada.ps1 July_1.
• -csplit è la divisione tra maiuscole e minuscole.

C #, 85 byte

return Regex.Matches(new WebClient().DownloadString("http://enwp.org/"+d),"Canada").Count;

Accetta input dcome July_1.

Ed July_1 è veramente il Canada Day, con il maggior numero di riferimenti. Con February_1e April_23condividendo il 2 ° posto con 18 "Canada"s ciascuno.

Trova "Canada"giorno (in parallelo), 207 byte:

return Enumerable.Range(0,366).Select(i=>new DateTime(8,1,1).AddDays(i).ToString("MMMM_d")).AsParallel().OrderBy(d=>Regex.Matches(new WebClient().DownloadString("http://enwp.org/"+d),"Canada").Count).Last();

(L'anno 8 è l'anno bisestile con la rappresentazione più breve). Potenzialmente inefficiente, in quanto OrderByprobabilmente genera> 366 chiamate Web, ma va solo più breve e sembra completarsi in non molto più tempo.

R, 99 96 byte

x = function (d) {p = readLines (paste0 (" http://enwp.org/ ", d)); sum (nchar (p) -nchar (gsub ("Canada", "", p))) / 6}

d=scan(,"");p=readLines(paste0("http://enwp.org/",d));sum(nchar(p)-nchar(gsub("Canada","",p)))/6

Questo prende l'input d nel modulo "July_1" e restituisce il conteggio di Canadas. Conta le parole contando il numero di caratteri sulla pagina, quindi rimuove la parola Canada dalla pagina e conta nuovamente i caratteri. Il numero di volte in cui il Canada si presenta è la differenza in questi conteggi divisa per il numero di lettere in Canada, 6.

modifica: apprezzo il suggerimento che segue per sostituire la mia funzione con la scansione.

ES6, 89 byte

d=>fetch('http://enwp.org/'+d).then(r=>r.text().then(t=>alert(t.split`Canada`.length-1)))

Sfortunatamente scartare tutte le promesse penalizza la dimensione: /

Rubino + arricciatura, 44 byte

p`curl -L enwp.org/#$_`.scan(/Canada/).size

ruby -n+ 43 byte. Accetta input come July_1.

Clojure, 71 byte

#(count(re-seq #"Canada"(slurp(str"https://en.wikipedia.org/wiki/"%))))

Sì, sarebbe bello da usare http://enwp.orgma immagino slurpche non gestisca i reindirizzamenti (?). Funzione anonima che richiede giorno nel formato "July_1".

PHP, 65 byte

echo substr_count(file_get_contents('http://enwp.org'),'Canada');