Aşağıdaki biçimde 2017 yılında tüm Pazar günleri tarihlerini yazdır: dd.mm.yyyy.
Beklenen çıktı:

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 bayt

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

Çevrimiçi deneyin!

Tarih kütüphanesi yok, tarihleri ​​doğrudan hesaplar. Asıl püf noktası, dd.mmondalık değer olarak ele almaktır. Örneğin, 16.04.2017(16 Nisan) sayıya karşılık gelir 16.04. Sayı olarak biçimlendirilmiş basılır xx.xxile .2017ekteki.

Gün ve ay aritmetik olarak hesaplanır. Her hafta 7 gün olarak eklenir x+=7. xModulo alınması , gün sayısı ne kadar büyük olursa 30.99, oradan çıkartarak rollover'ı işler 30.99. Bu -31, günleri sıfırlamak +0.01için ay artışını birleştirir .

Devir her ayın 31 günü olduğunu varsayar. Daha az gün içeren aylar, ile xbelirli hafta sayıları üzerinde yukarı kaydırarak ayarlanır +[8,8,8,17,25,38,47].count(x/7). Bu liste, bu kısa aylarda biten hafta sayılarından üçü ile çıkıyor, 8çünkü Şubat 31 günün 3 günü.

Bu liste ASCII değerleri artı 40 alınarak bir dizgeye sıkıştırılabilir. +40Baskısız karakterleri kullanarak kaymasından kaçınılabilir ve Python 3'te bir bayt nesnesi olarak daha kısa erişilebilir.

PHP, 48 bayt

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

PHP, 46 bayt (negatif olmayan UTC ofsetleri için)

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

Python 2 , 90 79 bayt

Xnor yardımı ile -5 bayt (haftaları kendi saymaktan kaçının)
xnor sayesinde -1 bayt (605e3 olarak 605e3 e e ekleyin)

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

Çevrimiçi deneyin!

0çağdan bu yana saniyeler, 1 Ocak 1970’te, saat 2017’de artık bir yıl olmadı. 605000saniye, 1 hafta, 3 dakika, 20 saniyedir. Bu "haftaların" 52'sini eklemek bizi gece yarısından öteye götürmez.

Bash + coreutils, 44 bayt

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

-uGMT varsayılırsa 2 bayt tasarruf edebilir

• Teşekkürler Dijital Travma 10 bayt kazandıran -fparamter işaret date;
• Ve biçim dizesinde kullanılması 2017 Fikir dan fazla bayt kaydeder cevap verdiği user63956

• @0 1970-1-1
• 605000bir hafta ( 604800) artı 200 saniye
  • 200 saniye Sadece yılda 52 hafta olduğundan işe yaramalı
• @32000000 bir yıldan biraz daha fazla

PowerShell, 51 47

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

Yeterince açıksözlü. 2017-01-01 bir Pazar günleridir, takip eden yedi gün boyunca her biri. Sadece hayatım boyunca çalışacak senaryoya ihtiyacımız olursa iki bayt kaydedebiliriz:

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

Excel VBA 106 91 79 bayt

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

@Radhato sayesinde 15 byte kurtarıldı

1/20 / 17'nin Pazar olduğunu farz edersek, 12 bayt daha tasarruf edersiniz.

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

Thanks @Toothbrush 66 bayt

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

Düzenleme: (Alt ve Son Alt gerekli değildir) 52 bayt

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

PHP, 67 bayt

PHP, bildirilmemiş döngü değişkenlerine otomatik olarak 1 değerini atar ve Linux dönem zamanlarını kullanarak,

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

k6, 32 bayt

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

Kısa açıklama:

                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

Ne yazık ki, bu yalnızca kapalı kaynaklı, istek üzerine tercüman olarak çalışıyor gibi görünüyor.

Pyke , 26 24 bayt

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

Çevrimiçi deneyin!

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

Veya 11 bayt

Çıkış biçimini yoksaymaya izin verilirse

y17y"52VDs6

Çevrimiçi deneyin!

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 bayt

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

Ocak ayının ilk günü pazar olan bu kod parçası, 01-01-2017'den 31-12-2017'ye kadar her 7 günde bir, onları istenen formata biçimlendirerek yazdırmak için bir gün dizisi oluşturur.

Befunge-98 (PyFunge) , 99 95 93 85 bytes, İzleyen yeni satır

Tüm optimizasyonlar @JoKing tarafından yapıldı, çok teşekkürler

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

Çevrimiçi deneyin!

Burada biraz eziyetçilikten mahrum olduğumuzu hissettim, bu yüzden en sevdiğim Esosteric dilinde bir çözüm yaptım.

Açıklama :
>8><><>><><>12 ayın uzunluğunu kodlar
sEski gününü boş alanda
:1g2/saklayın Alt satırdan bir ASCII değeri alın ve bunu ikiye bölün, bu bize verilen ayın uzunluğunu verir Ör: ASCII = 8 2 = 28 => ay (Şubat) 28 gün vardır
10g\%önceden kaydedilmiş gün alın ve bize bir sonraki aya içine tarihini geçiş sağlayan ayın uzunluğu onu modulo
:d1pyeni güncellenmiş gün bir kopyasını kaydet
10g\`+eski tarihten eğer Testi > yeni tarih => sonraki aya geçtik => ay sayacına 1 ekle
:b`Ay sayacı> 11 ise yılın sonuna ulaştığımızı test edin (0 dizin oluşturma kullanarak)
#@_Programı sonlandırdıysanız
:1\0d1gyığını yeniden sıralayın bu yüzden şöyle görünüyor:Month, 1, Month, 0, Day
#sonraki talimatı atla (duh)
1+:a/'0+,a%'0+,'.,Sayıyı 1 indekslemeye dönüştürün, yazdırın, .sonuna ekleyin Bir sondan atlamak için 0'ı
j;kullanın ve ;tekrar yazdırma programına gitmek için kullanın, ardından ;sonraki atlamak için 1'i kullanın time
a"7102"4k,Yazdır 2017\n
d1gGün değerini tekrar al Tekrar 7+etmeden önce bir hafta ekle

JavaScript, 111 106 bayt

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

Not: Stack Exchange'in konsolu listenin tamamını görüntülemek için yeterince uzun değil, bu yüzden ayrı bir snippet olarak ilk yarı:

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

Özel format bana 40 byte eder ...

Perl 5 , 64 bayt

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

Çevrimiçi deneyin!

Verilen görev 2017 idi, herhangi bir yıl değil, bu yüzden kod yazdım:

• 117 (2017 yılı için yapıldığı, 1900 + 117)
• +1, 1 Ocak 2017’de pazar
• 0..52 çünkü 2017'de 53 pazar var

POSIX bir çekirdek modüldür ve her zaman Perl5 ile kurulur. Aynısını 101 byte modül kullanmadan yapmak, boşlukları kaldırmak:

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

Ruby, 75 bayt

Tarihleri ​​bulmak için basit bir çözüm Time.

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

SAS, 52 50 bayt

@ User3490 sayesinde 2 bayt kaydedildi.

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

Mathematica 90 84 bayt

Oldukça wordy. numbermaniac ve Scott Milner, sırasıyla 5 ve 1 bayt kaydetti.

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

VBA, 81 bayt (belki 64)

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

İlk gönderim. Hafta içi çekleri kaldırarak ve her 7. günde bir belirterek newguy çözümü üzerine inşa. Tarihlerin kaldırılması 12 baytlık bir parça kazandırır. 42736 1/1/2017. Çıkış tarihi formatı sistem ayarlarına bağlıdır. Buna izin var mı? Öyleyse, 64 bayttır, çünkü format metoduna ihtiyacınız yoktur .

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

AHK , 67 bayt

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

Burada büyülü bir şey olmaz. Daha kısa bir yol bulmaya çalıştım FormatTime ama başaramadım.

Java 8+, 104 100 99 bayt

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

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

printfFormatın tarih özelliklerini kullanır .

Kendin test et!

Tasarruf

1. 104 -> 100: döngü değerlerini ve çoklu kopyayı değiştirdi.
2. 100 -> 99: döngü attı

T-SQL, 94 Bayt

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

SQL GOTO veya WHILE'ı beğenmediyseniz, işte 122 baytlık bir CTE çözümü:

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

Ruby, 60 + 7 = 67 bayt

-rdateBayrağı kullanır .

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

Groovy, 81 77 63 60 56 bayt

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

Yukarıdaki groovy script olarak çalıştırılabilir.

İlk kod golf girişim. Neyse ki, 1970 yılı artık bir yıl değildi, dolayısıyla üs olarak kullanabilir.

Dennis sayesinde, işte burada: Çevrimiçi deneyin!

C #, 138 111 102 bayt

Johan du Toit sayesinde 9 bayt daha kaydedildi !

Kevin Cruijssen'in önerileri sayesinde 27 bayt kaydedildi !

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

2017'de tüm pazar günlerini basan anonim işlev.

Ungolfed yöntemi ile tam program:

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 bayt

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

Çevrimiçi olarak bu programın tadını çıkarabilirsiniz

Bu çözümde biz:

• Datetime zamanından "AddDay ()" kullanmaktan kaçınmak için OLE Otomasyon Tarihi'ni (OADate) kullanın.
  FromOADate()büyük gibi görünüyor ama buna eşitnew DateTime(2017,1,1)

• Döngüyü 2016'nın son pazar günü başlatın +=. Yalnızca operatörle artmamızı sağlamak için. Bu operatör, artış yapıldıktan sonra değeri döndürür.

• Tarihi basmadan önce pazardan pazara atlamak için 7 gün artırın.

• 2017'nin son pazarına çıktıktan sonra durduk.

• İki karakter kaydetmek için Debugyerine kullanınConsole

• Açık değişken bildirimde ve atamada bulunmaktan kaçının

TSQL, 112 105 bayt

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

gösteri

T-SQL Sözdizimini Dönüştür

JavaScript (ES6), 123 bayt

Bu benim ilk gönderim, merhaba!

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

Bu çözüm kodlanmış verileri kullanır ve özellikle 2017 yılı için çalışmak üzere tasarlanmıştır. Tarih / saat API'lerine dayanmaz.

Dizideki rakamlara gelince 155274263153, her rakam kendi başına bir sayıdır ve ardışık her ayın ilk Pazar günü anlamına gelir. Tüm yıl için çıktılar bunlara art arda 7 eklenerek üretilebilir.

Döngüde 2633kullanılan sihirli sayıdan ne haber ?
Şey ... 2633(ondalık) 101001001001ikili dosyada. Şimdi bunların 1anlamı ne olabilir ? Sağdan başlayarak 1., 4., 7., 10. ve 12. bitler ayarlanır. Bu, sadece dört olanların aksine, beş Pazar olan aylara karşılık gelir. Bu düzgün ifade aşağı golfed, başlangıçta bu benziyordu: for(j=0;j<4+ +[0,3,6,9,11].includes(i);j++).

Kalan kısımların yeterince açıklayıcı olduğunu tahmin ediyorum.

T-SQL, 79 77 Bayt

A'ya yardım ettikten sonra cevabını geliştir . Kendimi bir döngü kullanarak yazmaya karar verdim ve PRINT.

Bu 90 baytlık çözümle bitirdim.

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

Daha sonra bu yanıtla WORNG ALL'dan 94 bayt olan T-SQL'deki mevcut lidere baktım . Bu adam çok iyi numaralar buldu.

1. Yalnızca değişkeni adlandırın @
2. GOTOGerçek LOOP yerine döngü
3. FORMATBunun yerine kullanarak bir karakter kaydedin CONVERT. (Yalnızca SSMS2012 +)

Bu hileler kullanılarak, bu çözelti, 79 bayt olan aşağıdaki çözüme indirgenmiştir.

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

Octave , 37 bayt

Diğer golf dışı dillerden çok daha kısa ve hatta Jelly ile bile bağlı! Octave gitmek için yol! :)

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

Çevrimiçi deneyin!

Neyse ki, yıl 2 ADtam olarak yıl aynı görünüyor 2017 AD. Her ikisi de Pazar günü başlar ve biter ve artık artık bir yıl değildir. Bu, bayttan çok tasarruf sağlar, çünkü 367:7:737bundan biraz daha kısadır 736696:7:737060.

Bu, o zamandan beri geçen gün sayısını, izleyen bir 01.01.0001biçimdeki dizgeye dönüştürür .DD.mm.2017

Haskell , 133 130 bayt

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)

Çevrimiçi deneyin!

Takvim kitaplığı olmadan, 148 144 140 bayt

(\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++"."

Bu komik dolgu fonksiyonu için Operatör kullanarak beri daha az parantez ihtiyaç vardır çünkü ikinci argüman, kullanılmamış olmasına rağmen iki bayt kaydeder - p(last l)olduğu daha uzun last l!l. day/monthKümülatif ay başlangıç ​​tarihlerini yılın gününden çıkararak çiftleri hesaplayarak çalışır . Ayın başlangıç ​​tarihleri ​​( scanl((+).(+28))0[3,0,3,2,3,2,3,3,2,3,2]) olarak sıkıştırılır . Ay numarası, olumlu unsurların sayısıdır ve gün sayısı da son olumlu unsurdur.

Çevrimiçi deneyin!

C #, 116 114 113 bayt

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

Visual Studio'nun etkileşimli pencerelerinde çalıştırılabilir (veya Roslyn'i temel alan diğer herhangi bir C # REPL).

113 bayta kadar: Kevin Cruijssen sayesinde.