Thử thách của bạn là viết một chương trình, trong một năm, sẽ đưa ra số lượng "Thứ Sáu ngày 13" trong đó.

Quy tắc & chi tiết:

• Bạn có thể đưa đầu vào qua STDINhoặc làm đối số được truyền cho chương trình của bạn.
• Bạn nên xuất kết quả cho STDOUT.
• Bạn có thể cho rằng đầu vào sẽ là một năm hợp lệ và không đăng ký trước lịch Gregorian (hành vi không xác định được cho phép trong những trường hợp này).
• Thư viện lịch / ngày được cho phép.

Đây là một môn đánh gôn , vì vậy mã ngắn nhất (tính bằng byte) sẽ thắng.

(Liên kết thử thách liên quan)

APL (Dyalog APL) với cal từ dfns , 29 byte

+/{13∊⍎,⍉3↑¯5↑⍉2↓cal⍵}¨⎕,¨⍳12

Hãy thử trực tuyến!

⍳ 12 các số nguyên từ một đến mười hai

⎕ ,¨ lấy đầu vào số và thêm vào mỗi mười hai số

{... }¨ trên mỗi cặp, áp dụng các chức năng ...

 cal⍵ lấy lịch cho tháng đó

 2 ↓ thả hai hàng (chú thích và ngày)

 ⍉ hoán vị (để chúng ta có thể giải quyết các cột thay vì các hàng)

 ¯5 ↑ lấy năm số cuối (hai chữ số cho mỗi thứ Sáu và thứ Bảy cộng với một khoảng trắng)

 3 ↑ lấy hai số đầu tiên (hai chữ số cho thứ Sáu cộng với một khoảng trắng)

 ⍉ hoán vị (để chúng ta có được thứ tự đọc)

 , rốn

 ⍎ thực hiện dưới dạng biểu thức APL (đưa ra danh sách các ngày thứ Sáu)

 13 ∊ mười ba là thành viên của danh sách đó?

+/ tổng cộng 12 Booleans

Sử dụng thuật toán của @ Wrzlprmft , chúng tôi có thể làm điều đó mà không cần thư viện cho 53 byte:

'21232211321211'⊃⍨14|2 3 ¯1+.×⊢,0≠.=400 100 4∘.|-∘0 1

-∘0 1 trừ 0 và 1

400 100 4 ∘.| bảng phân chia còn lại trong hai năm (qua) chia cho các số này (xuống)

0 ≠.= "sản phẩm" bên trong có 0, nhưng sử dụng và = thay vì +. ×

⊢ , chuẩn bị năm đối số không thay đổi

2 3 ¯1 +.× sản phẩm bên trong với những con số này

14 | phần còn lại khi chia cho mười bốn

'21232211321211' ⌷⍨ lập chỉ mục vào chuỗi này

Toán học 49 46 45 44 42

Là một hàm thuần túy : 42 ký tự

DayName@{#,m,6}~Table~{m,12}~Count~Friday&

Thí dụ

DayName@{#,m,6}~Table~{m,12}~Count~Friday&[2013]

2

Như một chức năng được đặt tên : 44 ký tự

f=DayName@{#,m,6}~Table~{m,12}~Count~Friday&

Ví dụ

f[1776]
f[2012]
f[2013]
f[2014]

2
3
2
1

Ruby, 49 48 47 46

f=->m{(1..12).count{|i|Time.gm(m,i,6).friday?}}

Chỉnh sửa: Cạo một nhân vật bằng cách quay lại một tuần, nhờ Jan và một nhân vật khác bằng cách chuyển từ Time.new sang Time.gm

Chỉnh sửa: Với chi phí làm xáo trộn nó thêm một chút, tôi có thể lên 46 với

f=->m{(1..12).count{|i|Time.gm(m,i,8).wday<1}}

Powershell, 68 63 58 52 50

Cảm ơn Iszi cho tiền boa.

$n=$args;(1..12|?{!+(date $n-$_).DayOfWeek}).Count

Sử dụng thực tế là nếu ngày đầu tiên trong tháng là Chủ nhật, ngày 13 sẽ là Thứ Sáu.

Tôi cũng đã thử:

(1..12|?{!+(date $args-$_).DayOfWeek}).Count

nhưng nó không giống nhau $argstrong khối kịch bản.

R 76 72 57

sum(format(as.Date(paste(scan(),1:12,1,sep="-")),"%w")<1)

Python2.7 90 86

from datetime import*
s=c=0
exec's+=1;c+=date(%d,s,9).weekday()<1;'%input()*12
print c

Thứ hai ngày 9 có thể không hoàn toàn giống với chiếc nhẫn nhưng nó cũng hoạt động tốt.

Chỉnh sửa: Một năm rưỡi để thông báo datengắn hơn datetime:)

Không sử dụng bất kỳ thư viện hoặc chức năng ngày tích hợp:

Golfscript - 51

~..({4/.25/.4/--@}2*2*\3*+-
14%' [3/=RI[)a%:*.'\=5%

' [3/=RI[)a%:*.' cũng có thể 'feefefgeeffgfe'

Con trăn - 82 79

Về cơ bản cùng một thuật toán.

l=lambda y:y/4-y/100+y/400
i=input()
print"21232211321211"[(2*i+3*l(i)-l(i-1))%14]

Sử dụng thủ thuật này , điều này có thể được đánh xuống để:

l=lambda y:y/4-y/100+y/400
i=input()
print 94067430>>(4*i+6*l(i)-2*l(i-1))%28&3

Điều này khai thác thực tế rằng, thông minh lịch, chỉ có 14 năm khác nhau, được phân biệt bởi ngày cuối cùng của họ và liệu họ có nhảy hay không. ltính toán số năm nhuận theo lý lẽ của nó (nếu lịch Gregorian kéo dài ngược lại năm 1). (2*i+3*l(i)-l(i-1))%14là viết tắt của l(i)-l(i-1)+(i+l(i))%7*2, trong đó l(i)-l(i-1)cho chúng ta biết liệu cuộc tranh luận có phải là một năm nhuận hay không và i+l(i)tổng hợp các ca làm việc của ngày cuối cùng (một trong một năm bình thường, hai trong một năm nhuận).

C Hơn 301 287

main(int x,char**v){char p[400],*a[]={"abbababbacaacbac","bacabbb","baabbaca","abbb","aabbacaac","abbbbcaac","abbbbaabb"},*b="adcadcadcaebcadcadcafbcadcadcagbcadcadcadc";int c=0,i,y=atoi(v[0]);for(i=0;i<42;i++)strcpy(&p[c],a[b[i]-'a']),c+=strlen(a[b[i]-'a']);printf("%d",p[y%400]-'`');}

Không phải là câu trả lời ngắn nhất, nhưng không sử dụng thư viện.

C ( 151 145 137 131 130 ký tự)

Tôi ngạc nhiên khi thấy rằng chỉ có một giải pháp khác không sử dụng các công cụ lịch tích hợp. Đây là một cách tiếp cận toán học (rất khó hiểu), cũng trong C:

f(x){return(x+(x+3)/4-(x+99)/100+!!x)%7;}main(int x,char**v){int y=atoi(v[1])%400,a=f(y+1);putchar('1'+((f(y)&3)==1)+(a>2&&a-5));}

(Các biên dịch trên trong GCC không có lỗi)

Giải pháp thay thế: C (287-> 215 ký tự)

Tôi khá thích giải pháp của Williham Totland và cách sử dụng nén của anh ấy. Tôi đã sửa hai lỗi nhỏ và điều chỉnh mã để rút ngắn độ dài của nó:

main(int x,char**v){char p[400],*a[]={"1221212213113","213122221122131","12213113","22213113","22221122","2131"},*b="abababafcbababafdbababafebababab";*p=0;for(;*b;b++)strcat(p,a[*b-97]);putchar(p[atoi(v[1])%400]);}

PHP, 82

<?for($i=1,$c=0;$i<13;$i++)$c+=(date("N",mktime(0,0,0,$i,1,$argv[1]))==7);echo $c;

Dựa trên

"Bất kỳ tháng nào bắt đầu vào Chủ nhật đều có Thứ Sáu ngày 13 và có ít nhất một Thứ Sáu ngày 13 trong mỗi năm dương lịch."

Từ http://en.wikipedia.org/wiki/Friday_the_13th

bash 47 36

seq -f$1-%g-6 12|date -f-|grep -c ^F

Cảm ơn @DigitalTrauma vì đã lưu 10 ký tự bằng cách sử dụng seqvới bắt đầu mặc định 1.

date -f<(printf "%s\n" $1-{1..12}-6)|grep -c ^F

(Phiên bản trước sử dụng echo hiện tại một lỗi vì dòng trống khi <(echo $1-{1..12}-6$'\n'). Vì vậy, chức năng này hoạt động tốt cho đến hôm nay là thứ Sáu.

Hãy xem:

set -- 2013
seq -f$1-%g-6 1 12|date -f-|grep -c ^F
2

date -f<(printf "%s\n" $1-{1..12}-13)|grep -c ^F
2

Là miền địa phương phụ thuộc , si nếu nó không hoạt động, bạn có thể phải

export LANG=C

hoặc là

LANG=C date -f<(printf "%s\n" $1-{1..12}-13)|grep -c ^F

Vào một chức năng; +7 -> 43

f(){ seq -f$1-%g-6 12|date -f-|grep -c ^F;}

f 2013
2

for i in {2010..2017};do echo $i $(f $i) ;done
2010 1
2011 1
2012 3
2013 2
2014 1
2015 3
2016 1
2017 2

Tiền thưởng: +78 -> 121

Từ đó, nếu chức năng của tôi trở thành:

f(){ o=();for t in $(seq -f$1-%g-6 12|date -f- +%a,%b);do [ "${t:0:1}" = "F" ]&&o+=(${t#*,});done;echo ${#o[@]} ${o[@]};}

hoặc là

f(){ o=();
     for t in $(seq -f$1-%g-6 1 12|date -f- +%a,%b);do
         [ "${t:0:1}" = "F" ]&&o+=(${t#*,})
       done
     echo ${#o[@]} ${o[@]}
}

for i in {2010..2017};do echo $i $(f $i) ;done
2010 1 Aug
2011 1 May
2012 3 Jan Apr Jul
2013 2 Sep Dec
2014 1 Jun
2015 3 Feb Mar Nov
2016 1 May
2017 2 Jan Oct

JavaScript, 70

f=function(a){b=0;for(c=12;c--;)b+=!new Date(a,c,1).getDay();return b}

k

64 ký tự

{+/6={x-7*x div 7}(.:')x,/:(".",'"0"^-2$'$:1+!:12),\:".13"}[0:0]

Đọc từ stdin

Lisp thường gặp (CLISP), 149

(print 
    (loop for i from 1 to 12 count 
        (= 4 (nth-value 6 
            (decode-universal-time
                (encode-universal-time 0 0 0 13 i
                    (parse-integer (car *args*)) 0))))))

C # 110 101 93 92

int f(int y){int c=0;for(int i=1;i<13;i++)c+=new DateTime(y,i,8).DayOfWeek>0?0:1;return c;}

C # Linq 88

int g(int y){return Enumerable.Range(1,12).Count(m=>new DateTime(y,m,8).DayOfWeek==0);}

Cảm ơn Jeppe Stig Nielsen cho linq và đề nghị kiểm tra chủ nhật vào ngày 8.

Cảm ơn Danko Durbić đã gợi ý >thay vì ==.

PHP, 55 byte

for(;++$i<13;)$c+=!date(w,strtotime($argn.-$i));echo$c;

Chạy với echo <year> | php -nR '<code>'.

Về cơ bản giống như Oleg đã thử và Damir Kasipovic đã làm, chỉ với việc chơi golf tốt hơn:
Mỗi tháng bắt đầu bằng chủ nhật, có một ngày thứ Sáu ngày 13.
Vì vậy, tôi lặp qua các tháng và đếm những ngày đầu tiên là chủ nhật.

phá vỡ

for(;++$i<13;)          // loop $i from 1 to 12
    $c+=!                   // 4. if result is not truthy (weekday==0), increment $c
        date(w,             // 3. get weekday (0 stands for Sunday)
            strtotime(      // 2. convert to timestamp (midnight 1st day of the month)
                $argn.-$i   // 1. concatenate year, "-" and month
            )
        )
    ;
echo$c;                 // output

K, 42

{+/1={x-7*x div 7}"D"$"."/:'$+(x;1+!12;1)}

.

k){+/1={x-7*x div 7}"D"$"."/:'$+(x;1+!12;1)}'1776 2012 2013 2014
2 3 2 1

Bash ( 52 47 ký tự)

for m in {1..12};do cal $m $Y;done|grep -c ^15

Nổi loạn, 63

f: 0 repeat m 12[d: do ajoin["6-"m"-"y]if d/weekday = 5[++ f]]f

Ví dụ sử dụng trong bảng điều khiển Rebol:

>> y: 2012
== 2012

>> f: 0 repeat m 12[d: do ajoin["6-"m"-"y]if d/weekday = 5[++ f]]f
== 3

Giải pháp thay thế thu thập tất cả thứ Sáu ngày 13 trong năm nhất định là:

>> collect[repeat m 12[d: do ajoin["13-"m"-"y]if d/weekday = 5[keep d]]]
== [13-Jan-2012 13-Apr-2012 13-Jul-2012]

Bash và Sed, 39

ncal $1|sed '/F/s/13/\
/g'|grep -c ^\ 2

ncal in lịch cho năm nhất định với các ngày trong tuần ở bên trái.

sedvới một /gcờ phụ ra tất cả 13 giây với dòng mới

grep -c đếm các dòng bắt đầu bằng "2" (20 luôn theo sau 13)

Cảm ơn @DigitalTrauma vì đã tìm ra lỗi trong phiên bản cũ của tôi và đề xuất giải pháp!

Scala, 76 68 ký tự

Trong 78 ký tự:

def f(y:Int)=0 to 11 count(new java.util.GregorianCalendar(y,_,6).get(7)==6)

Không có gì khác thường, ngoại trừ việc sử dụng số ma thuật cho DAY_OF_WEEK = 7và FRIDAY = 6.

Phiên bản 68 ký tự:

def f(y:Int)=0 to 11 count(new java.util.Date(y-1900,_,6).getDay==5)

Có, Java đã thay đổi giá trị của các hằng số trong tuần giữa các API.

Con trăn 195/204

Chỉ hoạt động cho các năm trước, bởi vì monthdatescalendartrả về một lịch cho năm nhất định cho đến bây giờ . Tôi nghĩ rằng có rất nhiều tiềm năng tối ưu hóa còn lại :).

import calendar, sys
c=calendar.Calendar()
f=0
for m in range(1,12):
 for w in c.monthdatescalendar(int(sys.argv[1]),m):
  for d in w:
   if d.weekday() == 4 and d.day == 13:
    f=f+1
print(f)

Một giải pháp khác, hoạt động cho mọi ngày nhưng không nhỏ hơn:

import datetime,sys
y=int(sys.argv[1])
n=datetime.date
f=n(y,1,1)
l=n(y,12,31)
i=0
for o in range(f.toordinal(), l.toordinal()):
 d=f.fromordinal(o)
 if d.day == 13 and d.weekday() == 4:
  i=i+1
print(i)

Perl 6, 55 53

{sum (1..12).map: {Date.new($_,$^a,1).day-of-week>6}}

Câu trả lời cũ:

{sum (1..12).map: {Date.new($_,$^a,13).day-of-week==5}}

Con trăn (v2) 120

import datetime as d,sys
s=0
for m in range(1, 13):
    if d.datetime(int(sys.argv[1]),m,6).weekday()==4: s=s+1
print s

Perl + lib POSIX 55

Với ý tưởng về không tìm kiếm 13thnhưng trước tiên, và như sundaylà 0let này tiết kiệm 3 chars! Cảm ơn @ Iszi và Danko Durbić!

$==$_;$_=grep{!strftime"%w",0,0,0,1,$_,$=-1900}(0..11)

Có thể tính 2010 đến 2017 (đối với mẫu) theo cách này:

perl -MPOSIX -pE '$==$_;$_=grep{!strftime"%w",0,0,0,1,$_,$=-1900}(0..11)' <(
    printf "%s\n" {2010..2017})
11321312

(Ok, không có dòng mới , nhưng điều đó không được hỏi;)

Bài cũ: 63

$==grep{5==strftime"%w",0,0,0,13,$_,$ARGV[0]-1900}(0..11);say$=

Trong hành động:

for i in {2010..2017};do
    echo $i $(
        perl -MPOSIX -E '
            $==grep{5==strftime"%w",0,0,0,13,$_,$ARGV[0]-1900}(0..11);say$=
            ' $i );
  done
2010 1
2011 1
2012 3
2013 2
2014 1
2015 3
2016 1
2017 2

Trong Smalltalk (Squeak / Pharo hương vị), thực hiện phương pháp này trong Integer ( 86 chars)

countFriday13^(1to:12)count:[:m|(Date year:self month:m day:13)dayOfWeekName='Friday']

Sau đó sử dụng nó như thế này : 2014countFriday13.

Tất nhiên, chúng ta có thể sử dụng một tên ngắn hơn, nhưng sau đó không phải là Smalltalk

C ++ - Quá nhiều byte :(

Tôi đã thử một giải pháp không sử dụng bất kỳ thư viện ngày nào.

Tôi tìm thấy một giải pháp khá tuyệt vời (nếu tôi có thể tự nói như vậy). Thật không may, tôi không thể có được nó ngắn hơn thế này, điều này thực sự làm tôi bực mình vì cảm thấy như có một cách tốt hơn.

Giải pháp bản lề cho thuật toán này chỉ có 44 byte. Thật không may, tôi cần thêm 100 byte để bọc nó một cách độc đáo ...

#include<stdlib.h>
main(int,char**v){int f=0,d,m,y;for(m=1;m<13;++m)d=13,y=atoi(v[1]),(d+=m<3?y--:y-2,23*m/9+d+4+y/4-y/100+y/400)%7-5||++f;return f;}

Sản lượng thông qua các mã trả lại (trong C ++, sử dụng couthoặc printfhoặc bất cứ điều gì như thế đòi hỏi khác#include , trong đó sẽ thổi lên các giải pháp thậm chí nhiều hơn).

Chương trình lái xe / kiểm tra:

# Make sure we're not running an old version
rm doomsday.exe

gcc doomsday.cpp -o doomsday.exe

./doomsday.exe 1776
echo 1766: $?

./doomsday.exe 2012
echo 2013: $?

./doomsday.exe 2013
echo 2013: $?

./doomsday.exe 2014
echo 2014: $?

echo `wc doomsday.cpp -c` characters

Đầu ra của chương trình điều khiển:

$ ./test_doomsday 
1766: 2
2013: 3
2013: 2
2014: 1
150 doomsday.cpp characters

Clojure, 207 187 byte

-20 byte bằng cách loại bỏ importvà một số khoảng trắng tôi đã bỏ lỡ.

(import '[java.time LocalDate DayOfWeek])#(loop[d(LocalDate/parse(str %"-01-01"))c 0](if(=(.getYear d)%)(recur(.plusDays d 1)(if(and(=(.getDayOfMonth d)13)(= (.getDayOfWeek d) DayOfWeek/FRIDAY))(inc c)c))c))

Bắt đầu từ ngày 1 tháng 1 của năm nhất định, nó lặp lại mỗi ngày. Nếu ngày là thứ Sáu ngày 13, nó sẽ tăng số đếm. Nó tiếp tục lặp lại cho đến khi nó đạt được vào năm tới.

(import '[java.time LocalDate DayOfWeek])

(defn count-friday-13ths [year]
  (loop [d (LocalDate/parse (str year "-01-01")) ; Starting date
         c 0] ; The count
    (if (= (.getYear d) year) ; If we haven't moved onto the next year...
      (recur (.plusDays d 1) ; Add a day...
             (if (and (= (.getDayOfMonth d) 13) ; And increment the count if it's Friday the 13th
                      (= (.getDayOfWeek d) DayOfWeek/FRIDAY))
               (inc c) c))
      c))) ; Return the count once we've started the next year.

PHP, không có nội dung, 81 byte

echo 0x5da5aa76d7699a>>(($y=$argn%400)+($y>102?$y>198?$y>299?48:32:16:0))%28*2&3;

Chạy với echo <year> | php -nR '<code>'.

phá vỡ

Các ngày trong tuần lặp lại sau mỗi 400 năm.
Trong các kết quả từ 1600 đến 1999 (ví dụ), có một khoảng thời gian 28 chiều chỉ với ba khoảng trống:

  0:2212122131132131222211221311
 28:2212122131132131222211221311
 56:2212122131132131222211221311
 84:2212122131132131122
103:       131132131222211221311
124:2212122131132131222211221311
152:2212122131132131222211221311
180:2212122131132131222
199:       131132131222211221311
220:2212122131132131222211221311
248:2212122131132131222211221311
276:221212213113213122221122
300:            2131222211221311
316:2212122131132131222211221311
344:2212122131132131222211221311
372:2212122131132131222211221311

Sau khi điều chỉnh năm cho các khoảng trống này, chúng ta có thể nhận được kết quả bằng hàm băm đơn giản:

$y=$argn%400;foreach([300,199,103]as$k)$y<$k?:$y+=16;
echo"2212122131132131222211221311"[$y%28];

Không ngắn (95 byte) nhưng đẹp. Và chúng ta có thể chơi gôn

• 4 byte bằng cách sử dụng chuỗi ternary cho offset,
• 8 byte bằng cách chuyển đổi bản đồ băm từ chuỗi cơ sở4 sang số nguyên,
• thêm một bằng cách sử dụng biểu diễn hex
• và một bằng cách hợp nhất các biểu thức.

Japt -x , 10 byte

CÆ5¥ÐUXD e

Thử nó

CÆ5¥ÐUXD e     :Implicit input of integer U
C              :12
 Æ             :  Map each X in the range [0,C) (months are 0-indexed in JavaScript)
  5¥           :  Check if 5 is equal to
    ÐUXD       :  new Date(U,X,13)
         e     :  0-based index of day of the week
               :Implicitly reduce by addition and output