Печать даты всех воскресений в 2017 году в следующем формате: dd.mm.yyyy.
Ожидаемый результат:

01.01.2017
08.01.2017
15.01.2017
22.01.2017
29.01.2017
05.02.2017
12.02.2017
19.02.2017
26.02.2017
05.03.2017
12.03.2017
19.03.2017
26.03.2017
02.04.2017
09.04.2017
16.04.2017
23.04.2017
30.04.2017
07.05.2017
14.05.2017
21.05.2017
28.05.2017
04.06.2017
11.06.2017
18.06.2017
25.06.2017
02.07.2017
09.07.2017
16.07.2017
23.07.2017
30.07.2017
06.08.2017
13.08.2017
20.08.2017
27.08.2017
03.09.2017
10.09.2017
17.09.2017
24.09.2017
01.10.2017
08.10.2017
15.10.2017
22.10.2017
29.10.2017
05.11.2017
12.11.2017
19.11.2017
26.11.2017
03.12.2017
10.12.2017
17.12.2017
24.12.2017
31.12.2017

Python 2 , 81 байт

x=0
exec"print'%05.2f.2017'%(x%30.99+1.01);x+=7+'0009ANW'.count(chr(x/7+40));"*53

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

Нет библиотеки дат, вычисляет даты напрямую. Основная хитрость заключается в обработке dd.mmдесятичного значения. Например, 16.04.2017(16 апреля) соответствует номеру 16.04. Номер печатается в формате xx.xxс .2017добавлением.

День и месяц вычисляются арифметически. Каждая неделя добавляет 7 дней сделано как x+=7. Взятие xпо модулю 30.99обрабатывает опрокидывание, вычитая 30.99всякий раз, когда число дня становится слишком большим. Это объединяет -31для сброса дней с +0.01увеличением месяца.

Ролловер предполагает, что каждый месяц имеет 31 день. Месяцы с меньшим числом дней корректируются путем смещения xвверх на определенные номера недели с помощью +[8,8,8,17,25,38,47].count(x/7). В этом списке указаны номера недель, оканчивающиеся на эти короткие месяцы, с 8утроенным значением, поскольку в феврале на 3 дня не хватает 31 дня.

Этот список может быть сжат в строку, принимая значения ASCII плюс 40. Смещения +40можно избежать, используя непечатаемые символы, и его можно получить короче как байтовый объект в Python 3.

PHP, 48 байт

while($t<53)echo gmdate("d.m.2017
",605e3*$t++);

PHP, 46 байт (для неотрицательных смещений UTC)

while($t<53)echo date("d.m.2017
",605e3*$t++);

Python 2 , 90 79 байт

-5 байт с помощью xnor (не
считайте сами недели) -1 байт благодаря xnor (добавьте обратно в e для 605000 как 605e3)

from time import*
i=0
exec"print strftime('%d.%m.2017',gmtime(i));i+=605e3;"*53

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

0секунд с начала 00:00:00 1 января 1970 года, который, как и 2017 год, не был високосным. 605000секунд составляет 1 неделю, 3 минуты, 20 секунд. Добавление 52 из этих «недель» не займет у нас больше полуночи.

Bash + coreutils, 44 байта

seq -f@%f 0 605e3 32e6|date -uf- +%d.%m.2017

может сохранить 2 байта, -uесли предполагается GMT

• Благодаря Digital Trauma указать -fпараметр, для dateкоторого экономится 10 байт;
• А использование в 2017 форматной строке сохраняет больше байт, идея которого от ответа дается user63956

• @0 это 1970-1-1
• 605000одна неделя ( 604800) плюс 200 с
  • 200 сек должен просто работать, так как в году всего 52 недели
• @32000000 чуть больше года

PowerShell, 51 47

0..52|%{date((date 2017-1-1)+7.*$_)-u %d.%m.%Y}

Довольно просто. 2017-01-01 это воскресенье, поэтому каждые последующие семь дней. Мы можем сохранить два байта, если нам нужно, чтобы скрипт работал только при моей жизни:

0..52|%{date((date 17-1-1)+7.*$_)-u %d.%m.%Y}

Excel VBA 106 91 79 байт

Sub p()
For i = #1/1/2017# To #12/31/2017#
If Weekday(i) = 1 Then MsgBox i
Next
End Sub

сэкономили 15 байт благодаря @Radhato

Если предположить, что 01.01.2017 - воскресенье, это сэкономит еще 12 байтов.

Sub p()
For i = #1/1/2017# To #12/31/2017#
MsgBox i
i = i + 6
Next
End Sub

Спасибо @ зубная щетка 66 байт

Sub p:For i=#1/1/2017# To #12/31/2017#:MsgBox i:i=i+6:Next:End Sub

Изменить: (Sub и End Sub не требуется) 52 байта

For i=#1/1/2017# To #12/31/2017#:MsgBox i:i=i+6:Next

PHP, 67 байт

Используя тот факт, что PHP автоматически присваивает значение 1 необъявленным переменным цикла, и используя время эпохи Linux,

<?php for(;54>$t+=1;)echo date("d.m.Y\n",604800*($t)+1482624000);?>

к6, 32 байта

`0:("."/|"."\)'$2017.01.01+7*!53

Краткое объяснение:

                2017.01.01+7*!53 /add 0, 7, 14, ..., 364 to January 1st
   ("."/|"."\)'$                 /convert to string, turn Y.m.d into d.m.Y
                                 /   split by ".", reverse, join by "."
`0:                              /output to stdout (or stderr), line by line

Увы, похоже, что это работает только в интерпретаторе с закрытым исходным кодом, только по запросу.

Пайк , 26 24 байта

53 Fy17y"RVs6)c"%d.%m.%Y

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

53 F                     - for i in range(53):, printing a newline between each
    y17y"                -  Create a time object with the year 2017. (Month and days are initialised to 1.)
         RV  )           -  Repeat i times:
           s6            -   Add 1 week
              c"%d.%m.%Y -  Format in "dd.mm.yyyy" time

Или 11 байт

Если разрешено игнорировать выходной формат

y17y"52VDs6

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

y17y"       - Create a time object with the year 2017. (Month and days are initialised to 1.)
     52V    - Repeat 52 times:
        D   -  Duplicate the old time
         s6 -  Add 1 week

R, 79 67 58 байт

cat(format(seq(as.Date("2017/01/01"),,7,53),"\n%d.%m.%Y"))

Первое воскресенье января, воскресенье, создает последовательность дней, каждые 7 дней, начиная с 01-01-2017 по 31-12-2017, форматирует их в желаемый формат и распечатывает.

Befunge-98 (PyFunge) , 99 95 93 85 байт, Листья в конце новой строки

Все оптимизации были сделаны @JoKing благодаря им

s :1g2/10g\%:d1p10g\`+:b`#@_:1\0d1g#;1+:a/'0+,a%'0+,'.,j;a"7102"4k,d1g7+
>8><><>><><>

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

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

Объяснение :
>8><><>><><>Кодирует продолжительность 12 месяцев.
sСохраните старый день в пустом пространстве.
:1g2/Получите значение ASCII из нижней строки и разделите его на два, что даст нам длину данного месяца. Пример: 8 = 56 в ASCII => 56 / 2 = 28 => Месяц (февраль) имеет 28 дней
10g\%Получите ранее сохраненный день и по модулю его на длину месяца, что позволяет нам перенести дату в следующий месяц.
:d1pСохраните копию нового обновленного дня.
10g\`+Проверьте, если старая дата > новая дата => мы перешли в следующий месяц => добавить 1 к счетчику месяца
:b`Проверить, если счетчик месяца> 11, что означает, что мы достигли конца года (с использованием индексации 0)
#@_На основе предыдущего, если программа завершится,
:1\0d1gпереупорядочить стек так это выглядит так:Month, 1, Month, 0, Day
#пропустить следующую инструкцию (duh)
1+:a/'0+,a%'0+,'.,Преобразовать число в 1, индексировать, распечатать, добавить .в конце.
j;Используйте 0 из стека, чтобы не прыгать, и используйте ;клавишу, чтобы снова перейти к расписанию печати, затем используйте 1, чтобы перескочить через ;следующее время
a"7102"4k,Печать 2017\n
d1gПолучите значение дня снова 7+Добавьте неделю перед повторением

JavaScript, 111 106 байт

for(i=14833e8;i<1515e9;i+=605e6)console.log(new Date(i).toJSON().replace(/(....).(..).(..).*/,'$3.$2.$1'))

Примечание. Консоль Stack Exchange недостаточно длинна, чтобы отобразить весь список, поэтому вот первая половина в виде отдельного фрагмента:

for(i=14833e8;i<15e11;i+=605e6)console.log(new Date(i).toJSON().replace(/(....).(..).(..).*/,'$3.$2.$1'))

Пользовательский формат стоит мне 40 байт ...

Perl 5 , 64 байта

use POSIX;print strftime"%d.%m.%Y\n",0,0,0,7*$_+1,0,117for 0..52

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

Задание было на 2017 год, а не на любой год, поэтому я жестко прописал:

• 117 (что за год 2017, 1900 + 117)
• +1, потому что 1 января - воскресенье 2017 года
• 0..52, потому что в 2017 году есть 53 воскресенья

POSIX является основным модулем и всегда устанавливается вместе с Perl5. Делаем то же самое без использования модулей в 101 байт, удаляя пробелы:

$$_[5]==117&&printf"%02d.%02d.%d\n",$$_[3],$$_[4]+1,$$_[5]+1900
  for map[gmtime(($_*7+3)*86400)],0..1e4

Рубин, 75 байт

Простое решение, чтобы выяснить даты с Time.

t=Time.new 2017
365.times{puts t.strftime("%d.%m.%Y")if t.sunday?
t+=86400}

САС, 52 50 байт

Сохранено 2 байта благодаря @ user3490.

data;do i=20820to 21184 by 7;put i ddmmyyp10.;end;

Mathematica 90 84 байта

Довольно многословно. Numbermaniac и Scott Milner сохранили 5 и 1 байт соответственно.

Column[#~DateString~{"Day",".","Month",".","Year"}&/@DayRange["2017","2018",Sunday]]

VBA, 81 байт (возможно, 64)

Sub p()
For i = 0 To 52
MsgBox format(42736 + i * 7, "dd.mm.yyyy")
Next i
End Sub

Мой первый пост. Опираясь на решение новичка, убирая чек на будни и просто указывая каждый 7-й день. Удаление даты экономит 12 байтов за штуку. 42736 от 01.01.2017. Выходной формат даты зависит от настроек системы. Это разрешено? Если это так, то это 64 байта, потому что вам не нужен метод форматирования .

MsgBox #1/1/2017# + i * 7

AHK , 67 байт

d=20170101
Loop,52{
FormatTime,p,%d%,dd.MM.yyyy
Send,%p%`n
d+=7,d
}

Ничего волшебного здесь не происходит. Я пытался найти более короткое средство, FormatTime но я потерпел неудачу.

Java 8+, 104 100 99 байт

()->{for(int t=0;t<53;)System.out.printf("%1$td.%1$tm.2017%n",new java.util.Date(t++*604800000L));}

Java 5+, 109 105 104 байта

void f(){for(int t=0;t<53;)System.out.printf("%1$td.%1$tm.2017%n",new java.util.Date(t++*604800000L));}

Использует дату-возможности printfформата.

Попробуйте сами!

экономия

1. 104 -> 100: изменились значения цикла и мультипликатор.
2. 100 -> 99: игра в гольф

T-SQL, 94 байта

DECLARE @ INT=0,@_ DATETIME='2017'W:SET @+=1SET @_+=7PRINT FORMAT(@_,'dd.MM.yyy')IF @<52GOTO W

если вам не нравится SQL GOTO или WHILE, вот решение CTE размером 122 байта

WITH C AS(SELECT CAST('2017'AS DATETIME)x UNION ALL SELECT x+7FROM C WHERE X<'12-31-17')SELECT FORMAT(x,'dd.MM.yyy')FROM C

Рубин, 60 + 7 = 67 байт

Использует -rdateфлаг.

(d=Date.new 1).step(d+365,7){|d|puts d.strftime"%d.%m.2017"}

Groovy, 81 77 63 60 56 байт

d=new Date(0);53.times{printf('%td.%<tm.2017%n',d);d+=7}

Выше может быть запущен как Groovy скрипт.

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

Спасибо Деннису, вот: попробуй онлайн!

C #, 138 111 102 байта

Благодаря Johan du Toit удалось сэкономить еще 9 байтов !

Сохранено 27 байтов благодаря предложениям Кевина Круйссена !

()=>{for(int i=0;i<53;)Console.Write(new DateTime(2017,1,1).AddDays(7*i++).ToString("dd.MM.yyyy\n"));}

Анонимная функция, которая печатает все воскресенья в 2017 году.

Полная программа с негольфированным методом:

using System;

class P
{
    static void Main()
    {
        Action f =
        ()=>
        {
            for (int i = 0; i < 53; )
                Console.Write(new DateTime(2017, 1, 1).AddDays(7 * i++).ToString("dd.MM.yyyy\n"));
        };



        f();
    }
}

C #, 110 109 байт

using System;()=>{for(int i=42729;i<43100;Console.Write(DateTime.FromOADate(i+=7).ToString("dd.MM.yyy\n")));}

Вы можете наслаждаться этой программой онлайн здесь

В этом решении мы:

• Используйте OLE Automation Date (OADate), чтобы избежать «AddDay ()» от datetime.
  FromOADate()кажутся большими, но это равноnew DateTime(2017,1,1)

• Запустите цикл в последнее воскресенье 2016 года, чтобы мы могли увеличиваться +=только с оператором . Этот оператор возвращает значение после завершения приращения.

• Увеличьте на 7 дней, чтобы перейти с воскресенья на воскресенье перед печатью даты.

• Мы останавливаемся, как только наступило последнее воскресенье 2017 года.

• Используйте Debugвместо того, Consoleчтобы сохранить два символа

• Избегайте явного объявления и назначения переменных

TSQL, 112 105 байт

SELECT CONVERT(VARCHAR,DATEADD(d,number*7,42734),104)FROM master..spt_values WHERE type='p' AND number<53

демонстрация

Синтаксис преобразования в T-SQL

JavaScript (ES6), 123 байта

Это мой первый пост здесь, привет!

a=x=>`0${x}.`.slice(-3);[].map.call('155274263153',(x,i)=>{for(j=0;j<4+(2633>>i&1);j++)console.log(a(+x+j*7)+a(i+1)+2017)})

Это решение использует жестко закодированные данные и разработано специально для 2017 года. Оно не использует API даты / времени.

Что касается цифр в строке 155274263153 , каждая цифра является собственным числом и обозначает первое воскресенье каждого месяца подряд. Выходные данные за весь год могут быть получены путем последовательного добавления 7 к ним.

Как насчет магического числа 2633, используемого в цикле?
Ну ... 2633(десятичный) 101001001001в двоичном виде. Что же это может 1значить? Начиная справа, устанавливаются 1-й, 4-й, 7-й, 10-й и 12-й биты. Это соответствует месяцам с пятью воскресеньями, а не четырем. Golfed вниз к этому меткому выражению, он изначально выглядел следующим образом : for(j=0;j<4+ +[0,3,6,9,11].includes(i);j++).

Я предполагаю, что остальные части довольно очевидны.

T-SQL, 79 77 байт

После помощи Салмана А улучшить свой ответ . Я решил написать свой, используя цикл и PRINT.

Я закончил с этим решением 90 байтов.

DECLARE @d DATETIME=42734 WHILE @d<43100BEGIN PRINT CONVERT(VARCHAR,@d,104)SET @d=@d+7 END

Затем я посмотрел на текущего лидера в T-SQL, который был 94 байта от WORNG ALL с этим ответом . Этот парень нашел очень хорошие трюки.

1. Назовите только переменную @
2. Цикл с GOTO вместо фактического цикла
3. Сохранить один символ, используя FORMATвместо CONVERT. (Только SSMS2012 +)

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

DECLARE @ DATETIME=42734G:PRINT FORMAT(@,'dd.MM.yyy')SET @+=7IF @<43100GOTO G

октава , 37 байт

Гораздо короче, чем все другие языки, не относящиеся к гольфу, и это даже связано с желе! Путь в октаву! :)

disp(datestr(367:7:737,'DD.mm.2017'))

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

К счастью, год 2 ADвыглядит точно так же, как год 2017 AD. Оба начинаются и заканчиваются в воскресенье, и ни один из них не является високосным. Это экономит много байтов, так 367:7:737как немного короче736696:7:737060 .

Это преобразует количество прошедших дней 01.01.0001в строку в формате DD.mmс завершающим .2017.

Haskell , 133 130 байт

import Data.Time.Calendar
((\[f,g,h,i,j]->i:j:'.':f:g:".2017\n").drop 5.show)=<<take 53(iterate(addDays 7)$fromGregorian 2017 1 1)

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

Без календарной библиотеки, 148 144 140 байт

(\l->last l!l++length l!l++"2017\n").fst.span(>0).(<$>scanl((+).(+28))0[3,0,3,2,3,2,3,3,2,3,2]).(-)=<<[1,8..365]
a!_=['0'|a<=9]++show a++"."

Это забавно, поскольку использование оператора для функции заполнения экономит два байта, даже если второй аргумент не используется, так как требуется меньше скобок - p(last l)он длиннее last l!l. Работает путем расчета day/monthпар путем вычитания суммарных дат начала месяца из дня года. Даты начала месяца сжимаются как (scanl((+).(+28))0[3,0,3,2,3,2,3,3,2,3,2] ). Номер месяца - это число положительных элементов, а номер дня - последний положительный элемент.

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

C #, 116 114 113 байтов

for(long i=(long)636188256e9;i<636502857e9;i+=(long)605e10)Out.Write(‌​new DateTime(i).ToString("dd.MM.yyyy\n"));

Может быть запущен в интерактивных окнах Visual Studio (или любой другой C # REPL на основе Roslyn)

До 113 байтов: благодаря Кевину Круйссену.