Ваша задача состоит в том, чтобы написать программу, в которой, учитывая год, выводится число «Пятница 13-е».

Правила и детали:

• Вы можете получить ввод через STDINили в качестве аргумента, передаваемого вашей программе.
• Вы должны вывести результат в STDOUT.
• Вы можете предположить, что ввод будет действительным годом и не будет предшествовать григорианскому календарю (в этих случаях допускается неопределенное поведение).
• Календарь / Дата библиотеки разрешены.

Это код-гольф , поэтому выигрывает самый короткий код (в байтах).

(Связанная ссылка вызов)

APL (Dyalog АПЗ) с калом от dfns , 29 байт

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

Попробуйте онлайн!

⍳ 12 целые числа от одного до двенадцати

⎕ ,¨ взять числовой ввод и предварять каждое из двенадцати чисел

{... }¨ на каждую из пар примените функцию ...

 cal⍵ получить календарь на этот год-месяц

 2 ↓ отбросить два ряда (заголовок и дни)

 ⍉ транспонировать (чтобы мы могли обращаться к столбцам вместо строк)

 ¯5 ↑ возьмите последние пять (две цифры для каждой пятницы и субботы плюс один пробел)

 3 ↑ возьмите первые две (две цифры для пятницы плюс пробел)

 ⍉ транспонировать (так мы получаем порядок чтения)

 , запутывать

 ⍎ выполнить как выражение APL (дает список дат пятницы)

 13 ∊ тринадцать является членом этого списка?

+/ сумма 12 булевых

Используя алгоритм @ 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

Спасибо Иззи за отзыв.

$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'

Питон - 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)суммирует смены последнего дня (один в обычном году, два в високосном году).

С 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 символов)

Мне скорее понравилось решение Виллихема Тотланда и его использование сжатия. Я исправил две небольшие ошибки и подправил код, чтобы сократить его длину:

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 символов с использованием seqначала по умолчанию 1.

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

Это зависит от локали, например , если это не сработает, возможно, вам придется

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}

К

64 персонажа

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

Читает со стандартного ввода

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-го.

Спасибо Данко Дурбичу за предложение >вместо ==.

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

К, 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

Баш ( 52 47 символов)

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

Реболь, 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]

Баш и Сед, 39

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

ncal печатает календарь на данный год с днями недели внизу слева.

sedс /gфлагом подает все 13 с новыми строками

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 = 7и FRIDAY = 6.

Версия для 68 персонажей:

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

Да, Java изменила значения констант дня недели между API.

Python 195/204

Работает только за предыдущие годы, потому что monthdatescalendarвозвращает календарь на данный год до сих пор . Я думаю, что остается много оптимизационного потенциала :).

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)

Другое решение, работает на каждую дату, но оно не меньше:

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

Старый ответ:

{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

С идеей не ищет , 13thно первый, и , как sundayэто 0это пусть экономия 3 символов! Спасибо @ Iszi и Данко Дурбич!

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

Можно рассчитать 2010 по 2017 год (для образца) следующим образом:

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

(Хорошо, новой строки нет , но об этом не спрашивали;)

Старый пост: 63

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

В бою:

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

В Smalltalk (вкус Squeak / Pharo), реализовать этот метод в Integer ( 86 символов)

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

Затем использовать его как это: 2014countFriday13.

Конечно, мы можем использовать более короткое имя, но тогда это не будет Smalltalk

C ++ - слишком много байтов :(

Я попробовал решение, которое не использует какие-либо библиотеки дат.

Я нашел довольно классное (если можно так выразиться) решение. К сожалению, я не могу получить это короче, чем это, что действительно меня беспокоит, потому что такое чувство, что должен быть лучший способ.

Решение зависит от этого алгоритма, который сам по себе составляет всего 44 байта. К сожалению, мне нужно еще 100 байтов, чтобы красиво обернуть его ...

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

Вывод через код возврата (в C ++, для использования coutили printfчего-то подобного требуется другой #include, что взорвет решение еще больше).

Водитель / тестовая программа:

# 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

Вывод программы драйвера:

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

Clojure, 207 187 байт

-20 байт, избавившись от import, и некоторые пробелы, которые я пропустил.

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

Начиная с 1 января данного года, он проходит каждый день. Если день пятница 13-е, это увеличивает счет. Он продолжает цикл до следующего года.

(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, без встроенных функций, 81 байт

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

Беги с echo <year> | php -nR '<code>'.

сломать

Будни повторяются каждые 400 лет.
В результатах за 1600–1999 гг. (Например) есть период продолжительностью 28 с тремя пробелами:

  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

После корректировки года для этих пробелов мы можем получить результат с помощью простого хеша:

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

Не короткая (95 байт), но красивая. И мы можем играть в гольф

• 4 байта с использованием троичной цепочки для смещения,
• 8 байтов путем преобразования хэш-карты из строки base4 в целое число,
• еще один, используя шестнадцатеричное представление,
• и один путем слияния выражений.

Japt -x , 10 байт

CÆ5¥ÐUXD e

Попытайся

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