ความท้าทายของคุณคือการเขียนโปรแกรมที่ให้ผลเป็นจำนวนปี "วันศุกร์ที่ 13" ในปีนั้น

กฎและรายละเอียด:

• คุณสามารถป้อนข้อมูลผ่านSTDINหรือเป็นอาร์กิวเมนต์ที่ส่งผ่านไปยังโปรแกรมของคุณ
• STDOUTคุณควรส่งออกผลให้
• คุณอาจจะสมมติว่าการป้อนข้อมูลจะเป็นปีที่ถูกต้องและไม่ได้ทำการปรับปรุงปฏิทินเกรโกเรียนล่วงหน้า (พฤติกรรมที่ไม่ได้กำหนดจะได้รับอนุญาตในกรณีเหล่านี้)
• อนุญาตให้ใช้ไลบรารีปฏิทิน / วันที่

นี่คือรหัสกอล์ฟดังนั้นรหัสที่สั้นที่สุด (เป็นไบต์) ชนะ

(ลิงค์ท้าทายที่เกี่ยวข้อง)

APL (Dyalog APL) ที่มีcal จากdfns , 29 ไบต์

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

ลองออนไลน์!

⍳ 12 จำนวนเต็มหนึ่งถึงสิบสอง

⎕ ,¨ รับข้อมูลเข้าเป็นตัวเลขและเสริมแต่ละหมายเลขสิบสอง

{... }¨ ในแต่ละคู่ใช้ฟังก์ชัน ...

 cal⍵ รับปฏิทินสำหรับปีนั้น

 2 ↓ ปล่อยสองแถว (คำบรรยายภาพและวัน)

 ⍉ ไขว้ (เพื่อให้เราสามารถที่อยู่คอลัมน์แทนแถว)

 ¯5 ↑ ใช้ตัวเลขห้าตัวสุดท้าย (สองหลักสำหรับแต่ละวันศุกร์และวันเสาร์และอีกหนึ่งช่องว่าง)

 3 ↑ ใช้สองคนแรก (ตัวเลขสองหลักสำหรับวันศุกร์บวกด้วยช่องว่าง)

 ⍉ ไขว้ (ดังนั้นเราจึงได้อ่านคำสั่ง)

 , คลี่คลาย

 ⍎ รันเป็นนิพจน์ APL (ให้รายการวันที่ของวันศุกร์)

 13 ∊ สิบสามเป็นสมาชิกของรายการนั้นหรือไม่?

+/ รวม 12 Booleans

การใช้อัลกอริทึมของ @ Wrzlprmftเราสามารถทำได้โดยไม่ต้องมีไลบรารีสำหรับ 53 ไบต์:

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

-∘0 1 ลบศูนย์และหนึ่ง

400 100 4 ∘.| ตารางเศษที่เหลือสำหรับสองปี (ข้าม) หารด้วยตัวเลขเหล่านี้ (ลง)

0 ≠.= "ผลิตภัณฑ์" ภายในด้วย 0 แต่ใช้≠และ = แทน +. ×

⊢ , เพิ่มปีอาร์กิวเมนต์ที่ไม่ได้แก้ไข

2 3 ¯1 +.× ผลิตภัณฑ์ภายในด้วยตัวเลขเหล่านี้

14 | ส่วนที่เหลือเมื่อหารด้วยสิบสี่

'21232211321211' ⌷⍨ จัดทำดัชนีลงในสายอักขระนี้

Mathematica 49 46 45 44 42

ในฐานะที่เป็นฟังก์ชั่นที่บริสุทธิ์ : 42 ตัวอักษร

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

ตัวอย่าง

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

2

ในฐานะที่เป็นฟังก์ชั่นที่มีชื่อ : 44 ตัวอักษร

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

ตัวอย่าง

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

2
3
2
1

ทับทิม, 49 48 47 46

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

แก้ไข: โกนตัวละครโดยย้อนกลับไปหนึ่งสัปดาห์ขอบคุณแจนและอีกตัวโดยเปลี่ยนจาก Time.new เป็น Time.gm

แก้ไข: ด้วยค่าใช้จ่ายในการทำให้งงมากขึ้นฉันสามารถไปถึง 46 ด้วย

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

Powershell, 68 63 58 52 50

ขอบคุณ Iszi สำหรับคำแนะนำ

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

ใช้ความจริงที่ว่าถ้าวันที่ 1 ของเดือนเป็นวันอาทิตย์ที่ 13 จะเป็นวันศุกร์

ฉันยังลอง:

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

แต่มันไม่เหมือนกัน$argsในบล็อกสคริปต์

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

วันจันทร์ที่ 9 อาจไม่มีวงแหวนเดียวกัน แต่ให้ผลเช่นกัน

แก้ไข: หนึ่งปีครึ่งที่จะสังเกตเห็นว่าdateสั้นกว่าdatetime:)

ไม่ใช้ไลบรารีหรือฟังก์ชั่นวันที่ในตัว:

Golfscript - 51

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

' [3/=RI[)a%:*.' อาจจะเป็นเช่นกัน 'feefefgeeffgfe'

Python - 82 79

เป็นหลักอัลกอริทึมเดียวกัน

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

ด้วยการใช้เคล็ดลับนี้สามารถลงไปที่:

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

การใช้ประโยชน์จากความจริงที่ว่าปฏิทินฉลาดมีเพียง 14 ปีที่แตกต่างกันซึ่งสามารถแยกแยะได้ในวันสุดท้ายของพวกเขาและไม่ว่าพวกเขาจะกระโจน lคำนวณจำนวนปีอธิกสุรทินจนถึงอาร์กิวเมนต์ (ถ้าปฏิทินเกรโกเรียนขยายไปจนถึงปี 1) (2*i+3*l(i)-l(i-1))%14สั้นสำหรับl(i)-l(i-1)+(i+l(i))%7*2ที่l(i)-l(i-1)จะบอกเราว่าการโต้เถียงเป็นปีอธิกสุรทินและi+l(i)สรุปการเปลี่ยนแปลงของวันสุดท้ายหรือไม่ (หนึ่งในปีปกติสองปีในปีอธิกสุรทิน)

C 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]-'`');}

ไม่ใช่คำตอบที่สั้นที่สุด แต่ไม่ต้องใช้ห้องสมุด

C ( 151 145 137 131 130 ตัวอักษร)

ฉันประหลาดใจที่เห็นว่ามีเพียงโซลูชันเดียวเท่านั้นที่ไม่ได้ใช้เครื่องมือปฏิทินในตัว นี่คือวิธีการทางคณิตศาสตร์ (ที่ทำให้งงมาก) ใน 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));}

(คอมไพล์ข้างต้นใน GCC โดยไม่มีข้อผิดพลาด)

ทางเลือกอื่น: C (287-> 215 chars)

ฉันชอบวิธีแก้ปัญหาของ Williham Totlandมากกว่าและการใช้การบีบอัดของเขา ฉันแก้ไขข้อบกพร่องเล็ก ๆ สองตัวและปรับแต่งโค้ดเพื่อลดความยาวของมัน:

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;

ขึ้นอยู่กับ

"เดือนใดก็ตามที่เริ่มต้นในวันอาทิตย์จะมีวันศุกร์ที่ 13 และอย่างน้อยหนึ่งวันศุกร์ที่ 13 ในทุก ๆ ปีปฏิทิน"

จากhttp://en.wikipedia.org/wiki/Friday_the_13th

ทุบตี47 36

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

@DigitalTrauma ขอขอบคุณสำหรับการบันทึก 10 ตัวอักษรโดยใช้กับการเริ่มต้นที่จะเริ่มต้นseq1

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

(รุ่นก่อนหน้าใช้echoข้อผิดพลาดในการนำเสนอเนื่องจากบรรทัดว่างเมื่อ<(echo $1-{1..12}-6$'\n')ดังนั้นฟังก์ชั่นนี้ทำงานได้ดีจนถึงวันนี้เป็นวันศุกร์

มาดูกัน:

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

คือเป็นสถานที่เกิดเหตุขึ้นอยู่กับ si ถ้ามันจะไม่ได้ทำงานคุณอาจจะต้อง

export LANG=C

หรือ

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

เป็นฟังก์ชั่น; +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

โบนัส: +78 -> 121

จากนั้นถ้าฟังก์ชั่นของฉันกลายเป็น:

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[@]};}

หรือ

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 ตัวอักษร

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

อ่านจาก stdin

Common LISP (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);}

ขอบคุณ Jeppe Stig Nielsen สำหรับ linq และข้อเสนอแนะในการตรวจสอบวันอาทิตย์ที่ 8

ขอขอบคุณที่ Danko Durbićสำหรับการแนะนำแทน>==

PHP, 55 ไบต์

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

echo <year> | php -nR '<code>'ทำงานด้วย

โดยพื้นฐานแล้วสิ่งเดียวที่โอเล็กพยายามและดาเมียร์กาซิโปวิชทำก็คือเล่นกอล์ฟได้ดีกว่า:
ทุก ๆ เดือนที่เริ่มต้นด้วยวันอาทิตย์จะมีวันศุกร์ที่ 13
ดังนั้นฉันจึงวนรอบเดือนและนับวันแรกที่เป็นวันอาทิตย์

ทำให้พังถล่ม

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 ตัวอักษร)

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

Rebol, 63

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

ตัวอย่างการใช้งานในคอนโซล Rebol:

>> y: 2012
== 2012

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

ทางเลือกในการแก้ปัญหาซึ่งรวบรวมทั้งหมดในวันศุกร์ที่ 13 ในปีนั้นคือ:

>> 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 and Sed, 39

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

ncal พิมพ์ปฏิทินสำหรับปีที่กำหนดโดยมีวันในสัปดาห์ทางด้านซ้าย

sedด้วย/gค่าสถานะย่อยออกทั้งหมด 13s ด้วยการขึ้นบรรทัดใหม่

grep -c นับจำนวนบรรทัดที่ขึ้นต้นด้วย "2" (20 เสมอตาม 13)

ขอบคุณ @DigitalTrauma สำหรับการค้นหาข้อผิดพลาดในรุ่นเก่าของฉันและเสนอทางออก!

สกาลา, 76 68 ตัวอักษร

ใน 78 ตัวอักษร:

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

ไม่มีอะไรออกจากสามัญยกเว้นสำหรับการใช้ตัวเลขที่มีมนต์ขลังสำหรับและDAY_OF_WEEK = 7FRIDAY = 6

รุ่น 68 ตัว:

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

ใช่จาวาเปลี่ยนค่าของวันของสัปดาห์ค่าคงที่ระหว่าง API

Python 195 / 204

Works only for previous years, because monthdatescalendar returns a calendar for the given year until now. I think there is a lot of optimizing potential left :).

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)

Another solution, works for every date but it isn't smaller:

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}}

Old answer:

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

Python(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

With the idea of not looking for 13th but first, and as sunday is 0 this let save 3 chars! Thanks @ Iszi and Danko Durbić!

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

Could compute 2010 to 2017 (for sample) in this way:

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

(Ok, there is no newline, but that was not asked;)

Old post: 63

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

In action:

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

In Smalltalk (Squeak/Pharo flavour), implement this method in Integer (86 chars)

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

Then use it like this: 2014countFriday13.

Of course, we could use a shorter name, but then it would not be Smalltalk

C++ - Too many bytes :(

I tried a solution which doesn't make use of any date libraries.

I found a pretty cool (if I may say so myself) solution. Unfortunately I can't get it shorter than this, which really bugs me because it feels like there should be a better way.

The solution hinges on this algorithm which is only 44 bytes in itself. Unfortunately I need another 100 bytes to wrap it nicely...

#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;}

Output through the return code (in C++, using cout or printf or anything like that requires another #include, which would blow up the solution even more).

Driver / test program:

# 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

Output of the driver program:

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

Clojure, 207 187 bytes

-20 bytes by getting rid of the import, and some whitespace I missed.

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

Starting on Janauary 1st of the given year, it loops over each day. If the day is Friday the 13th, it increments the count. It continues to loop until it reaches the next year.

(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, no builtins, 81 bytes

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

Run with echo <year> | php -nR '<code>'.

breakdown

Weekdays repeat every 400 years.
In the results for 1600 to 1999 (for example), there is a 28-length period with just three gaps:

  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

After adjusting the year for these gaps, we can get the result with a simple hash:

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

Not short (95 bytes) but pretty. And we can golf

• 4 bytes by using a ternary chain for the offset,
• 8 bytes by converting the hash map from a base4 string to integer,
• one more by using the hex representation,
• and one by merging the expressions.

Japt -x, 10 bytes

CÆ5¥ÐUXD e

Try it

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