1 de julho é o dia do Canadá (yay Canadá)! Ou é? Parece que a página da Wikipedia para este dia tem muito conteúdo relacionado ao Canadá, mas há outro dia mais canadense?

Sua tarefa é escrever um programa ou função que receba uma data (mês e dia) como entrada e retorne ou produza o número de menções de "Canadá" na página da Wikipedia para a data inserida. Algumas regras:

• As datas podem ser inseridas em qualquer formato razoável de sua escolha
• Seu envio deve extrair dados do URL en.wikipedia.org/wiki/Month_Day.
• Somente "Canada"devem ser pesquisadas e contadas as substrings incluídas e apenas no título. "Canadian"não conta, no entanto "Canada's"conta. Desde que o texto exato, com distinção entre maiúsculas e minúsculas, "Canada"exista dentro de uma sequência, é uma correspondência
• O conteúdo da página é considerado qualquer coisa no .htmlarquivo correspondente (ou seja, o que aparece se você fizer o download da página como a .htmle abrir no bloco de notas)
• O resultado pode ser enviado para STDOUT, retornado ou exibido de qualquer outra maneira razoável

Casos de teste:

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

Esse é o código de golfe, portanto, a submissão mais curta vence

(Como um bônus não recompensado, estou interessado em ver qual é o dia com a contagem mais alta)

Pitão, 31 bytes

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

Não funciona na implementação online, o servidor desabilita o acesso à Internet. Eu queria usar http://wki.pe/July_1, mas, infelizmente, é um redirecionamento do lado do cliente, para buscar a página errada. O formato de entrada é July_1.

O código é basicamente apenas:

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

Bash, 43 42 40 bytes

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

Usos curl, grepe wcpara contar as ocorrências de "Canadá" no webpage especificado. Como as outras respostas, a entrada é fornecida no formato July_1. Esta é minha primeira vez publicando no Code Golf SE e não estou familiarizado com todas as regras. Qualquer feedback seria bem-vindo.

Não percebeu que a saída para STDERR é tradicionalmente ignorada. Obrigado pelos 3 bytes, Dennis !

Perl 5, 39 bytes

38 bytes, mais 1 para em -pevez de-e

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

Toma entrada como July_1.

Obrigado ao busukxuan por me salvar sete bytes.

Python 3.5, 117 111 98 90 bytes

( -8 bytes ( 98 -> 90) graças a alexwlchan )

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

Simplesmente usa a biblioteca "urllib" interna do Python para buscar dados HTML e conta as ocorrências da palavra "Canadá" nesses dados. Tentarei jogar golfe com o tempo, onde e quando puder. Chame-o renomeando a lambdafunção para qualquer coisa e, em seguida, chamando esse nome como uma função normal envolvida print(). Por exemplo, se a função fosse nomeada H, você a chamaria assim print(H(Month_Day)).

Mathematica, 60 bytes

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

Função anônima. Da mesma forma para a solução Perl 5, leva entrada como July_1.

PowerShell, 52 bytes

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

• Entrada como July_1.
• iwré a abreviação de Invoke-WebRequest.
• $($args[0])é o primeiro argumento da linha de comandos. Inicie o script como OhCanada.ps1 July_1.
• -csplit é uma distinção entre maiúsculas e minúsculas.

C #, 85 bytes

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

Toma entrada dcomo July_1.

E July_1 é realmente o Dia do Canadá, com mais referências. Com February_1e April_23compartilhando o 2º lugar com 18 "Canada"s cada.

Encontre o "Canada"dia (em paralelo), 207 bytes:

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();

(O ano 8 é o ano bissexto com a menor representação). Potencialmente ineficiente, na medida em que OrderByprovavelmente gera mais de 366 chamadas pela web, mas apenas diminui o tempo e parece concluir em pouco tempo.

R, 99 bytes 96

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

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

Isso recebe a entrada d no formato "July_1" e retorna a contagem de Canadas. Ele conta as palavras contando o número de caracteres na página, remove a palavra Canadá da página e conta os caracteres novamente. O número de vezes que o Canadá aparece é a diferença nessas contagens dividida pelo número de letras no Canadá, 6.

edit: Agradeço a dica abaixo sobre como substituir minha função pelo scan.

ES6, 89 bytes

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

Infelizmente, desembrulhar todas as promessas penaliza o tamanho: /

Ruby + ondulação, 44 ​​bytes

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

ruby -n+ 43 bytes. Toma entrada como July_1.

Clojure, 71 bytes

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

Sim, seria bom usar, http://enwp.orgmas acho slurpque não lida com redirecionamentos (?). Função anônima que leva dia no formato "July_1".

PHP, 65 bytes

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