Ngày 1 tháng 7 là ngày Canada (yay Canada)! Hoặc là nó? Có vẻ như trang Wikipedia cho ngày này có rất nhiều nội dung liên quan đến Canada, nhưng có một ngày nào đó là Canada nhiều hơn không?

Nhiệm vụ của bạn là viết một chương trình hoặc chức năng lấy ngày (tháng và ngày) làm đầu vào và trả về hoặc xuất số lượng đề cập của "Canada" trên trang Wikipedia cho ngày được nhập. Một số quy tắc:

• Ngày có thể là đầu vào trong bất kỳ định dạng hợp lý nào bạn chọn
• Trình của bạn phải lấy dữ liệu từ url en.wikipedia.org/wiki/Month_Day.
• Chỉ "Canada"phải được tìm kiếm và tính bao gồm các chuỗi con, và chỉ trong trường hợp tiêu đề. "Canadian"không tính, tuy nhiên "Canada's"không tính. Miễn là chính xác, văn bản phân biệt chữ hoa chữ thường "Canada"tồn tại trong một chuỗi, đó là một kết quả khớp
• Nội dung của trang được coi là bất cứ thứ gì trong .htmltệp tương ứng (nghĩa là nội dung hiển thị nếu bạn tải xuống dưới dạng trang dưới dạng .htmlvà mở nó trong Notepad)
• Kết quả có thể là đầu ra cho STDOUT, được trả lại hoặc hiển thị theo bất kỳ cách hợp lý nào khác

Các trường hợp thử nghiệm:

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

Đây là mã golf, vì vậy nộp bài ngắn nhất

(Là một phần thưởng không được chuyển, tôi rất muốn xem ngày nào có số lượng cao nhất)

Bình thường, 31 byte

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

Không hoạt động trên triển khai trực tuyến, máy chủ sẽ vô hiệu hóa truy cập Internet. Tôi muốn sử dụng http://wki.pe/July_1 nhưng thật đáng buồn, đó là một chuyển hướng phía máy khách để nó tải trang sai. Các định dạng đầu vào là July_1.

Mã về cơ bản chỉ là:

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

Bash, 43 42 40 byte

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

Sử dụng curl, grepvà wcđể đếm lần xuất hiện của "Canada" trong các trang chỉ định. Giống như các câu trả lời khác, đầu vào được đưa ra trong định dạng July_1. Đây là lần đầu tiên tôi đăng bài trên Code Golf SE và tôi không quen với tất cả các quy tắc. Bất kỳ thông tin phản hồi sẽ được chào đón nhất.

Không nhận ra rằng đầu ra STDERR theo truyền thống bị bỏ qua. Cảm ơn vì 3 byte, Dennis !

Perl 5, 39 byte

38 byte, cộng thêm 1 cho -pethay vì-e

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

Đưa đầu vào như thế nào July_1.

Cảm ơn busukxuan đã tiết kiệm cho tôi bảy byte.

Python 3.5, 117 111 98 90 byte

( -8 byte ( 98 -> 90) nhờ alexwlchan )

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

Chỉ cần sử dụng thư viện "urllib" tích hợp của Python để tìm nạp dữ liệu HTML và sau đó đếm số lần xuất hiện của từ "Canada" trong dữ liệu đó. Sẽ cố gắng và chơi golf nhiều hơn theo thời gian ở đâu và khi nào tôi có thể. Gọi nó bằng cách đổi tên lambdahàm thành bất cứ thứ gì và sau đó gọi tên đó giống như một hàm bình thường được bọc trong print(). Ví dụ, nếu hàm được đặt tên H, thì bạn sẽ gọi nó như thế nào print(H(Month_Day)).

Toán học, 60 byte

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

Chức năng ẩn danh. Tương tự như giải pháp Perl 5, lấy đầu vào như thế nào July_1.

PowerShell, 52 byte

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

• Đầu vào như July_1.
• iwrlà chữ viết tắt Invoke-WebRequest.
• $($args[0])là đối số dòng lệnh đầu tiên. Bắt đầu kịch bản như OhCanada.ps1 July_1.
• -csplit là trường hợp phân chia nhạy cảm.

C #, 85 byte

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

Đưa đầu vào dnhư thế nào July_1.

Và thực sự July_1 là Ngày Canada, có nhiều tài liệu tham khảo nhất. Với February_1và April_23chia sẻ vị trí thứ 2 với "Canada"mỗi 18 giây.

Tìm "Canada"ngày (song song), 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();

(Năm thứ 8 là năm nhuận với đại diện ngắn nhất). Có khả năng không hiệu quả, trong đó OrderBycó thể tạo ra> 365 cuộc gọi web, nhưng chỉ diễn ra trong thời gian ngắn hơn và dường như hoàn thành trong thời gian không nhiều.

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

Điều này nhận đầu vào d ở dạng "Tháng 7_1" và trả về số lượng Canadas. Nó đếm các từ bằng cách đếm số lượng ký tự trên trang, sau đó xóa từ Canada khỏi trang và đếm lại các ký tự. Số lần Canada hiển thị là sự khác biệt về số lượng này chia cho số lượng chữ cái ở Canada, 6.

chỉnh sửa: Tôi đánh giá cao mẹo dưới đây về việc thay thế chức năng của tôi bằng quét.

ES6, 89 byte

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

Đáng buồn thay Unwrapping tất cả các lời hứa phạt kích thước: /

Ruby + curl, 44 byte

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

ruby -n+ 43 byte. Đưa đầu vào như thế nào July_1.

Clojure, 71 byte

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

Vâng, nó sẽ rất tốt để sử dụng http://enwp.orgnhưng tôi đoán slurpkhông xử lý các chuyển hướng (?). Chức năng ẩn danh mất ngày theo định dạng "Tháng 7_1".

PHP, 65 byte

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