задача

Напишите программу или функцию, которая вычисляет название дня недели для даты, которую вводит пользователь.

Ввод, вывод

Ввод - это строка YYYYMMDD.

Пример входных значений:

20110617: 17 июня 2011
19040229: 29 февраля 1904 г.
06661225: 25 декабря 666
00000101: 1 января, 0
99991231: 31 декабря 9999

Вы можете предположить, что все данные верны. Обратите внимание, что нулевой год действителен.

Выход - это целое число между 0и 6. Каждое целое число представляет название дня недели. Вы можете свободно выбирать, какое целое число представляет название дня недели, например, это

0: понедельник
1: вторник
2: среда
...
6: воскресенье

(по порядку) или этот

0: понедельник
1: среда
2: воскресенье
...
6: суббота

(не в порядке).

Тестовые случаи

Input Выходной день недели (в этом примере используется [0..6 -> Monday..Sunday].)

20110617 пятница 4
19500101, воскресенье 6
22220202 суббота 5
19000228 среда 2
19000301 четверг 3
19450815 среда 2
19040229 Понедельник 0
19040301 вторник 1
17760704 четверг 3
20000228 Понедельник 0
20000229 вторник 1
20000301 среда 2
20121223 воскресенье 6
00000401 суббота 5
66660606 среда 2
59161021 суббота 5

ограничение

Вы не должны использовать какую- либо функцию / класс / ..., связанную с отметкой времени или датой, например, Dateкласс в Java/ JavaScript/ ActionScriptили getdateфункцию в PHP.

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

Конечно, выигрывает самый короткий код. Если два кода имеют одинаковую длину, то выигрывает код с наибольшим количеством голосов.

(Должно быть: когда есть более 5 кодов, у которых больше (или равно) +1голосов.)

Рубин, 95 92 персонажа

Простая прямая реализация ruby ​​с 0: понедельник, ...

p ((y=(d=gets.to_i)/(k=100)/k-((m=d/k%k)<3?1:0))+y/4-y/k+y/400+"squsptrotqro"[-m].ord+d%k)%7

PHP - 101 97 103 125 символов

• Алгоритм Сакамото
• 0 = воскресенье

Код

<?php fscanf(STDIN,"%4d%2d%2d",$y,$m,$d);@$a=a032503514624;$y-=$m<3;$z=$y+1;echo($y+$y/4%$z-$y/100%$z+$y/400%$z+$a[$m]+$d)%7;

Заметка

К сожалению, из-за динамической слабой типизации PHP алгоритм Sakamoto не работает должным образом без явного указания каждой операции деления.

С - 129

main(y,m,d,s)
{
    scanf("%04d%02d%02d",&y,&m,&d);
    y-=s=86400;
    d+=y+"-addgbegcfadf"[m];
    m>2?y++:0;
    putchar(48+(d+y/4-y/100+y/400+s+s)%7);
}

Это злоупотребляет тем, как деление округляется до нуля, по крайней мере, в моей системе (Linux x86).

Магическая константа 86400, служит двум целям:

• Вычтите из года, чтобы сделать его отрицательным, не влияя на день недели. Это позволяет округлениям округляться вверх, а не вниз.
• Сдвиньте номер дня, чтобы в понедельник было 0.

Так же бывает и количество секунд в дне.

Javascript, 126 123 символов

Используя алгоритм Сакамото с 0 = воскресенье:

prompt().replace(/(....)(..)(..)/,function(_,y,m,d){y-=m<3;alert((+d+y-~(y/4)+~(y/100)-~(y/400)+ +".621462403513"[+m])%7)})

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

Редактировать: Улучшено деление (нет необходимости, ~~когда вы можете просто ~).

Python 2 , 83 116 113 109 байт

Реализует алгоритм Сакамото . Предложения по игре в гольф приветствуются. Попробуйте онлайн!

Изменить: я должен был исправить это давным-давно. -6 байт из предложений Джонатана Аллана +2 байта для фактического исправления кода.

def w(s):m=int(s[4:6]);y,d=int(s[:4])-(m<3),int(s[6:]);return(y+y/4-y/100+y/400+int('032503514624'[m-1])+d)%7

Perl - 110 байт

Вот решение для запуска с помощью perl -p source.pl ИЛИ perl -pe 'here-is-code'.

s/((..)(..))(..)(..)/(1+3*$1+$2-2*($1%4+$2%4)-(2<$4?$4+(1&$4&&4-(8&$4)):(2^$4)+(!($3%4)-!-$3+!($2%4)))+$5)%7/e

Просто скопируйте и вставьте контрольные примеры в стандартный ввод.

Кажется, это единственный код без переменных, строковых констант и делений.

JavaScript (ES6), 73 байта (не конкурирует)

d=>(w=new Date(d[s="slice"](0,4),d[s](4,6)-1,d[s](-2)).getDay())-(w?1:-6)

Попытайся

f=
d=>(w=new Date(d[s="slice"](0,4),d[s](4,6)-1,d[s](-2)).getDay())-(w?1:-6)
o.innerText=f(i.value="59161021")
oninput=_=>i.value.length==8&&(o.innerText=f(i.value))

<input id=i type=number><pre id=o>