Tantangan Anda adalah menulis sebuah program yang, setelah satu tahun, menampilkan jumlah "Friday 13ths" di dalamnya.

Aturan & Detail:

• Anda dapat mengambil input melalui STDIN, atau sebagai argumen yang diteruskan ke program Anda.
• Anda harus menampilkan hasilnya STDOUT.
• Anda dapat berasumsi bahwa input akan menjadi tahun yang valid, dan tidak memberi tanggal lebih awal pada kalender Gregorian (perilaku tidak terdefinisi diizinkan dalam kasus-kasus ini).
• Kalender / Pustaka Tanggal diizinkan.

Ini adalah kode-golf , jadi kode terpendek (dalam byte) menang.

(Tautan tantangan terkait)

APL (Dyalog APL) dengan kal dari dfns , 29 byte

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

Cobalah online!

⍳ 12 bilangan bulat satu sampai dua belas

⎕ ,¨ mengambil input numerik dan menambahkan masing-masing dari dua belas angka

{... }¨ pada masing-masing pasangan, terapkan fungsinya ...

 cal⍵ dapatkan kalender untuk tahun-bulan itu

 2 ↓ turunkan dua baris (keterangan dan hari)

 ⍉ transpos (jadi kita bisa membahas kolom alih-alih baris)

 ¯5 ↑ ambil lima terakhir (dua digit untuk masing-masing hari Jumat dan Sabtu ditambah satu spasi)

 3 ↑ ambil dua yang pertama (dua digit untuk Jumat ditambah spasi)

 ⍉ transpos (jadi kami mendapat pesanan membaca)

 , berlepasan

 ⍎ dieksekusi sebagai ekspresi APL (memberikan daftar tanggal Jumat)

 13 ∊ Apakah tiga belas anggota dari daftar itu?

+/ jumlah 12 Boolean

Dengan menggunakan algoritma @ Wrzlprmft , kita dapat melakukannya tanpa pustaka untuk 53 byte:

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

-∘0 1 kurangi nol dan satu

400 100 4 ∘.| tabel sisa pembagian selama dua tahun (lintas) dibagi dengan angka-angka ini (turun)

0 ≠.= "produk" dalam dengan 0, tetapi menggunakan ≠ dan = bukannya +. ×

⊢ , pertahankan tahun argumen yang tidak dimodifikasi

2 3 ¯1 +.× produk dalam dengan angka-angka ini

14 | pembagian divisi ketika dibagi empat belas

'21232211321211' ⌷⍨ indeks ke dalam string ini

Mathematica 49 46 45 44 42

Sebagai fungsi murni : 42 karakter

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

Contoh

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

2

Sebagai fungsi bernama : 44 karakter

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

Contohnya

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

Sunting: Mencukur karakter dengan kembali seminggu, terima kasih kepada Jan, dan lainnya dengan beralih dari Time.new ke Time.gm

Sunting: Dengan mengorbankan sedikit lebih banyak, saya bisa mendapatkan 46 dengan

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

Powershell, 68 63 58 52 50

Terima kasih Iszi atas tipnya.

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

Menggunakan fakta bahwa jika hari pertama di bulan itu adalah hari Minggu, tanggal 13 akan menjadi hari Jumat.

Saya juga sudah mencoba:

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

tapi itu tidak sama $argsdi dalam blok skrip.

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

Senin tanggal 9 mungkin tidak memiliki cincin yang sama tetapi berfungsi dengan baik.

Sunting: Satu setengah tahun untuk melihat yang datelebih pendek dari datetime:)

Tidak menggunakan perpustakaan atau fungsi tanggal bawaan:

Golfscript - 51

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

' [3/=RI[)a%:*.' bisa juga 'feefefgeeffgfe'

Python - 82 79

Intinya algoritma yang sama.

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

Dengan menggunakan trik ini , ini dapat diturunkan lebih lanjut ke:

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

Ini mengeksploitasi fakta bahwa, berdasarkan kalender, hanya ada 14 tahun yang berbeda, yang dapat dibedakan berdasarkan hari terakhir mereka dan apakah mereka melompat. lmenghitung jumlah tahun kabisat hingga argumennya (jika kalender Gregorian diperpanjang mundur ke tahun 1). (2*i+3*l(i)-l(i-1))%14adalah kependekan dari l(i)-l(i-1)+(i+l(i))%7*2, di mana l(i)-l(i-1)memberitahu kita apakah argumennya adalah tahun kabisat dan i+l(i)meringkas pergeseran dari hari terakhir (satu dalam tahun normal, dua dalam tahun kabisat).

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

Bukan jawaban terpendek, tetapi tidak menggunakan perpustakaan.

C ( 151 145 137 131 130 karakter)

Saya terkejut melihat bahwa hanya ada satu solusi lain yang tidak menggunakan alat kalender bawaan. Berikut ini adalah pendekatan matematika (sangat dikaburkan), juga dalam 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));}

(Kompilasi di atas di GCC tanpa kesalahan)

Solusi alternatif: C (287-> 215 karakter)

Saya agak menikmati solusi Williham Totland dan penggunaan kompresi. Saya memperbaiki dua bug kecil dan mengubah kode untuk mempersingkat panjangnya:

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;

Berdasarkan

"Setiap bulan yang dimulai pada hari Minggu berisi hari Jumat tanggal 13, dan setidaknya ada satu hari Jumat tanggal 13 di setiap tahun kalender."

Dari http://en.wikipedia.org/wiki/Friday_the_13th

bash 47 36

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

Terima kasih @DigitalTrauma karena telah menyimpan 10 karakter dengan menggunakan seqmulai dari awal 1.

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

(Versi sebelumnya menggunakan echobug saat ini karena baris kosong ketika <(echo $1-{1..12}-6$'\n'). Jadi fungsi ini berfungsi dengan baik sampai hari ini adalah hari Jumat.

Ayo lihat:

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

Apakah tergantung pada lokal , jika tidak berfungsi, Anda mungkin harus

export LANG=C

atau

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

Menjadi suatu fungsi; +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

Bonus: +78 -> 121

Dari sana, jika fungsi saya menjadi:

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

atau

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 karakter

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

Baca dari stdin

Gangguan Umum (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);}

Terima kasih kepada Jeppe Stig Nielsen untuk linq dan saran untuk memeriksa minggu pada tanggal 8.

Terima kasih kepada Danko Durbić karena menyarankan >alih-alih ==.

PHP, 55 byte

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

Jalankan dengan echo <year> | php -nR '<code>'.

Pada dasarnya sama dengan yang dicoba Oleg dan Damir Kasipovic , hanya dengan bermain golf yang lebih baik:
Setiap bulan yang dimulai dengan minggu, memiliki hari Jumat tanggal 13.
Jadi saya mengulangi bulan dan menghitung hari-hari pertama minggu.

kerusakan

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

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

Contoh penggunaan di konsol Rebol:

>> y: 2012
== 2012

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

Solusi alternatif yang mengumpulkan semua hari Jumat tanggal 13 tahun tertentu adalah:

>> 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 mencetak kalender untuk tahun tertentu dengan hari dalam seminggu di sebelah kiri.

seddengan /gflag subs semua 13 dengan newlines

grep -c menghitung garis yang dimulai dengan "2" (20 selalu mengikuti 13)

Terima kasih kepada @DigitalTrauma untuk menemukan bug di versi lama saya dan mengusulkan solusi!

Scala, 76 68 karakter

Dalam 78 karakter:

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

Tidak ada yang luar biasa, kecuali untuk menggunakan angka ajaib untuk DAY_OF_WEEK = 7dan FRIDAY = 6.

Versi 68 karakter:

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

Ya, Java mengubah nilai konstanta hari dalam seminggu antara API.

Python 195/204

Hanya berfungsi untuk tahun-tahun sebelumnya, karena monthdatescalendarmengembalikan kalender untuk tahun yang diberikan hingga sekarang . Saya pikir ada banyak potensi optimal yang tersisa :).

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)

Solusi lain, berfungsi untuk setiap tanggal tetapi tidak lebih kecil:

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

Jawaban lama:

{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

Dengan ide tidak mencari 13thtapi pertama, dan sebagai sundayadalah 0membiarkan ini Hemat 3 karakter! Terima kasih @ Iszi dan Danko Durbić!

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

Dapat menghitung 2010 hingga 2017 (untuk sampel) dengan cara ini:

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

(Ok, tidak ada baris baru , tapi itu tidak ditanyakan;)

Posting lama: 63

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

Beraksi:

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

Dalam Smalltalk (Squeak / Pharo flavour), implementasikan metode ini dalam Integer ( 86 karakter)

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

Kemudian gunakan seperti ini: 2014countFriday13.

Tentu saja, kita bisa menggunakan nama yang lebih pendek, tetapi itu bukan Smalltalk

C ++ - Terlalu banyak byte :(

Saya mencoba solusi yang tidak menggunakan perpustakaan tanggal apa pun.

Saya menemukan solusi yang cukup keren (jika saya bisa mengatakannya sendiri). Sayangnya saya tidak bisa mendapatkannya lebih pendek dari ini, yang benar-benar mengganggu saya karena rasanya harus ada cara yang lebih baik.

Solusinya bergantung pada algoritma ini yang hanya 44 byte dalam dirinya sendiri. Sayangnya saya perlu 100 byte untuk membungkusnya dengan baik ...

#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 melalui kode kembali (dalam C ++, menggunakan coutatau printfatau sesuatu seperti itu membutuhkan lain #include, yang akan meledakkan solusi bahkan lebih).

Driver / program pengujian:

# 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 dari program driver:

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

Clojure, 207 187 bytes

-20 byte dengan menyingkirkan import, dan beberapa spasi putih saya lewatkan.

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

Mulai tanggal 1 Janauari pada tahun tertentu, ia berulang setiap hari. Jika hari itu adalah hari Jumat tanggal 13, itu menambah hitungan. Itu terus berulang sampai mencapai tahun berikutnya.

(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, tanpa builtin, 81 byte

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

Jalankan dengan echo <year> | php -nR '<code>'.

kerusakan

Hari kerja ulangi setiap 400 tahun.
Dalam hasil untuk 1600 hingga 1999 (misalnya), ada periode 28-panjang dengan hanya tiga celah:

  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

Setelah menyesuaikan tahun untuk celah ini, kita bisa mendapatkan hasilnya dengan hash sederhana:

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

Tidak pendek (95 byte) tetapi cantik. Dan kita bisa bermain golf

• 4 byte dengan menggunakan rantai terner untuk offset,
• 8 byte dengan mengkonversi peta hash dari string base4 ke integer,
• satu lagi dengan menggunakan representasi hex,
• dan satu dengan menggabungkan ekspresi.

Japt -x , 10 byte

CÆ5¥ÐUXD e

Cobalah

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