Tarih alan ve bu tarihten sonraki 29 Şubat tarihinin haftasını döndüren bir işlev yazın.

• Giriş, ISO Genişletilmiş biçiminde bir dizedir: YYYY-AA-GG (örn. 27 Mayıs 2010, "2010-05-27" olacaktır).

• Çıktı, haftanın gününün adı olan bir dizedir (örneğin, "Pazartesi"). Büyük harf kullanımı önemli değildir, ancak tam adını İngilizce olarak verin.

• Belirtilen tarih 29 Şubat ise, bir sonraki 29 Şubat'ın haftasının gününü döndürün.

• Proleptik Gregoryen Takvimi için hesaplamaları kullanın (bu nedenle, tüm uzunluğu için Gregoryen sıçrama yılı hesaplarını kullanır). Julian Takvimi veya Julian'dan Gregorian'a geçiş olduğunda endişelenmeyin. Sadece herţey için Gregoryen varsay.

• İşlev en azından "0001-01-01" - "2100-01-01" aralığında çalışmalıdır.

• Seçtiğiniz dilin sağladığı standart kitaplıkları kullanmaktan çekinmeyin, ancak bu kodu çözümünüzün bir parçası olarak eklemek istemiyorsanız 3. taraf kitaplıkları kullanmayın.

• En kısa kod (en az karakter) kazanır.

Örnekler:

• func("0001-01-01") -> "Sunday"
• func("1899-12-03") -> "Monday"
• func("1970-01-01") -> "Tuesday"
• func("1999-07-06") -> "Tuesday"
• func("2003-05-22") -> "Sunday"
• func("2011-02-17") -> "Wednesday"
• func("2100-01-01") -> "Friday"

(ve hayır, işlevi adlandırmanız gerekmez func)

İpuçları:

• 00 ile biten ve 400 ile bölünemeyen yılların artık yıl olmadığını unutmayın.
• 1 Ocak, 0001 Pazartesi.

Windows PowerShell, 65

Yeterince açıksözlü.

filter f{for($d=date $_;($d+='1').day*$d.month-58){}$d.dayofweek}

Her zamanki gibi, tamamlanana kadar uzun süre beklemek istiyorsak, iki bayt tıraş edebiliriz:

filter f{for($d=date $_;($d+=9).day*$d.month-58){}$d.dayofweek}

Ölçek:

> '0001-01-01','1899-12-03','1970-01-01','1999-07-06','2003-05-22','2011-02-17','2100-01-01'|f
Sunday
Monday
Tuesday
Tuesday
Sunday
Wednesday
Friday

Tarih:

• 2011-02-18 00:06 (65) İlk deneme.

Yakut 1.9, 85 karakter

f=->a{require"date";d=Date.parse(a,0,0)+1;d+=1until d.day*d.month==58;d.strftime"%A"}

Kolay çözüm. İşlevi ile çağırın f[args].

• Düzenleme: (87 -> 97) 0001-01-01Test çantası düzeltildi .
• Düzenleme 2: (97 -> 91) Date.parse, takvim reformunun tarihinin de belirtilmesine izin verir.
• Düzenleme 3: (91 -> 87) İşlev yerine lambda kullanın. Teşekkürler Dogbert !
• Düzenleme 4: (87 -> 85) Gereksiz alanları kaldırın. Tekrar teşekkürler, Dogbert !

T-SQL 166185 Karakterler

CREATE PROCEDURE f29 (@d DATETIME) AS
DECLARE @i int
SET @i=YEAR(DATEADD(M,-2,@d)+3)
SET @i=@i+(4-@i%4)
IF @i%100=0 AND @i%400<>0 SET @i=@i+4
SELECT DATENAME(W,CAST(@i AS CHAR)+'-2-29')

Zaten T-SQL tarih fonksiyonları ile karışıklık yapıyordum, bu yüzden neden olmasın ...

Orijinal çözüm yanlıştı ...

İşte ne aslında işin bu stratejiyi almak için yapmanız gereken:

CREATE PROCEDURE f29 (@d DATE) AS
DECLARE @i int
SET @i = YEAR(@d)
BEGIN TRY 
SET @i=YEAR(DATEADD(D, 3, DATEADD(M,-2,@d)))
END TRY
BEGIN CATCH
END CATCH
SET @i=@i+(4-@i%4)
IF @i%100=0 AND @i%400<>0 SET @i=@i+4
SELECT DATENAME(W,CAST(@i AS CHAR)+'-2-29')

C #, 176

Func<String,String>f=(d)=>{DateTime n;for(n=DateTime.Parse(d).AddDays(307);!(DateTime.IsLeapYear(n.Year));n=n.AddYears(1)){}return new DateTime(n.Year,2,29).ToString("dddd");};

Bash, 96 bayt

Teşekkürler Peter ... Yüksek golf versiyonu, 96 bayt:

i=1;until [ `date -d"$1 $i days" +%m-%d` = "02-29" ];do((i++));done
date -d "${1} ${i} days" +%A

Eski versiyon, 229 bayt

#!/bin/bash
from=$1
i=1
while [ "$isFeb" = "" ] || [ "$is29" = "" ]
do
isFeb=`date -d "${from} ${i} days" | grep Feb`
is29=`date -d "${from} ${i} days" +%Y-%m-%d | grep "\-29"`
((i++))
done
((i--))
date -d "${from} ${i} days" +%A

ÖRNEK G ​​/ Ç

:~/aman>./29Feb.sh 0001-01-01
Sunday
:~/aman>./29Feb.sh 1899-12-03
Monday
:~/aman>./29Feb.sh 1970-01-01
Tuesday

Perl, hiçbir tarih kütüphanesi: 160 159 155

sub f {($ y, $ m) = bölünmüş / - /, @ _ ​​[0], 2; ($ m> '02 -28 ') ise; $ y = ($ y + 3)% 400 >> 2, $ y + = $ y && ($ y% 25); '(r = Salı, Çarş, Perşembe, Cu, Satur, güneş, Pt),! @ r [(5 x $ y - ($ y / 25 ve 3))% 7] "günlük";.}

Bu tarih kütüphanelerinin asıl yararı, günlerin adlarının uzunluğunu başka birine iletmektir.

Öte yandan, bence bu bölge ne olursa olsun işe yarayan tek çözüm.

DATE ve bazı BASHy tutkalları (90)

İşlev:

f(){ while :;do $(date -d$1+1day +'set - %F %A 1%m%d');(($3==10229))&&break;done;echo $2;}

Test yapmak:

$ for x in 0001-01-01 1899-12-03 1970-01-01 1999-07-06 2003-05-22 2011-02-17 2100-01-01 ; do f $x ; done
Sunday
Monday
Tuesday
Tuesday
Sunday
Wednesday
Friday

D: 175 Karakter

S f(S)(S s){auto d=Date.fromISOExtString(s)+days(1);while(d.month!=Month.feb||d.day!=29)d+=days(1);return["Sun","Mon","Tues","Wednes","Thurs","Fri","Sat"][d.dayOfWeek]~"day";}

Daha okunaklı:

S f(S)(S s)
{
    auto d = Date.fromISOExtString(s) + days(1);

    while(d.month != Month.feb || d.day != 29)
        d += days(1);

    return ["Sun", "Mon", "Tues", "Wednes", "Thurs", "Fri", "Sat"][d.dayOfWeek] ~ "day";
}

D'de yazmak çok kolay, ama kesinlikle herhangi bir kod golf yarışmasını kazanmayacak. Yine de, kod golf dışında, yazmayı ve anlamayı çok daha kolay olurdu ama uzun ama kısa yazmak ve anlamak zor.

Java 8-252 karakter

golfed:

import java.time.*;
import java.time.format.*;
public class S{public static void main(String[] a){LocalDate d=LocalDate.parse(a[0]).plusDays(1);while(d.getMonthValue()!=2||d.getDayOfMonth()!=29){d=d.plusDays(1);}System.out.println(d.getDayOfWeek());}}

Ungolfed:

import java.time.*;
import java.time.format.*;
public class S {
    public static void main(String[] a) {
        LocalDate d = LocalDate.parse(a[0]).plusDays(1);

        while(d.getMonthValue()!=2 || d.getDayOfMonth()!=29) {
            d = d.plusDays(1);
        }
        System.out.println(d.getDayOfWeek());
    }
}

Asi - 78

f: func[d][system/locale/days/(until[d: d + 1 d/day * d/month = 58]d/weekday)]

Ungolfed:

f: func [d] [
    system/locale/days/(
        until [
            d: d + 1
            d/day * d/month = 58
        ]
        d/weekday
    )
]

Örnek kullanım (Rebol konsolunda):

>> f 0001-01-01
== "Sunday"

>> f 2100-01-01
== "Friday"

PHP, 104 bayt

function f($s){for($y=$s-(substr($s,5)<"02-29");!date(L,$t=strtotime(++$y."-2-1")););return date(l,$t);}

Yıkmak

for($y=$s-;                 // "-" casts the string to int; decrement year if ...
    (substr($s,5)<"02-29")  // ... date is before feb 29
    !date(L,                        // loop while incremented $y is no leap year
        $t=strtotime(++$y."-2-1")   // $t=feb 01 in that year (same weekday, but shorter)
    );
);
return date(l,$t);          // return weekday name of that timestamp

date(L): 1artık yıl için, 0aksi takdirde
date(l): haftanın gününün tam metin temsili

GNU çekirdek dosyaları, 71 bayt

f(){
seq -f "$1 %gday" 2921|date -f- +'%m%d%A'|sed 's/0229//;t;d;:;q'
}

Önümüzdeki 8 yılın doğrusal araştırması (en kötü durum, 2096-02-29 verildi). Sed, 29 Şubat ile eşleşen ilk satırı bulur ve çıkarır.

İki kat t;d;:;qdaha fazla /[01]/d;qkomut olmasına rağmen basamakların ( ) olup olmadığını görmek için testten daha kısa olduğunu görünce şaşırdım .

Testler

Zor köşe vakaları için ekstra bir test satırı ekledim:

for i in 0001-01-01.Sunday 1899-12-03.Monday \
    1970-01-01.Tuesday     1999-07-06.Tuesday \
    2003-05-22.Sunday      2011-02-17.Wednesday 2100-01-01.Friday \
    2000-02-28.Tuesday     2000-02-29.Sunday    2000-03-01.Sunday   2096-02-29.Friday
do
    printf "%s => %s (expected %s)\n" ${i%.*} $(f ${i%.*}) ${i#*.}
done