เขียนฟังก์ชั่นที่ใช้วันที่และส่งคืนวันในสัปดาห์ของวันที่ 29 กุมภาพันธ์ถัดไปหลังจากวันที่นั้น

• อินพุตเป็นสตริงในรูปแบบ ISO Extended: YYYY-MM-DD (เช่น 27 พฤษภาคม 2010 จะเป็น "2010-05-27")

• ผลลัพธ์คือสตริงที่เป็นชื่อของวันในสัปดาห์ (เช่น "วันจันทร์") การใช้อักษรตัวพิมพ์ใหญ่ไม่สำคัญ แต่ให้ชื่อเต็มเป็นภาษาอังกฤษ

• หากวันที่ที่กำหนดคือ 29 กุมภาพันธ์ให้ส่งคืนวันในสัปดาห์ของวันที่ 29 กุมภาพันธ์ถัดไป

• ใช้การคำนวณสำหรับปฏิทินเกรกอเรียน Proleptic (ดังนั้นจะใช้การคำนวณแบบกระโดดปีเกรโกเรียนสำหรับความยาวทั้งหมด) ไม่ต้องกังวลกับปฏิทินจูเลียนหรือเมื่อมีการเปลี่ยนจากจูเลียนเป็นเกรโกเรียน เพียงแค่ถือว่า Gregorian สำหรับทุกสิ่ง

• ฟังก์ชันควรใช้งานได้อย่างน้อยช่วง "0001-01-01" - "2100-01-01"

• อย่าลังเลที่จะใช้ไลบรารี่มาตรฐานที่คุณเลือกภาษา แต่อย่าใช้ไลบรารี่ของบุคคลที่สามจนกว่าคุณจะต้องการรวมรหัสนั้นเป็นส่วนหนึ่งของโซลูชันของคุณ

• รหัสที่สั้นที่สุด (ตัวอักษรน้อยที่สุด) ชนะ

ตัวอย่าง:

• 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"

(และไม่คุณไม่ต้องตั้งชื่อฟังก์ชั่นfunc)

คำแนะนำ:

• จำไว้ว่าปีที่ลงท้ายด้วย 00 ซึ่งไม่หารด้วย 400 จะไม่กระโดดปี
• 1 มกราคม 0001 คือวันจันทร์

Windows PowerShell, 65

ค่อนข้างตรงไปตรงมา

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

ตามปกติเราสามารถโกนสองไบต์ถ้าเรายินดีที่จะรอเป็นเวลานานจนแล้วเสร็จ:

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

ทดสอบ:

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

ประวัติความเป็นมา:

• 2011-02-18 00:06 (65) ความพยายามครั้งแรก

Ruby 1.9, 85 ตัวอักษร

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

ทางออกที่ตรงไปตรงมา f[args]เรียกใช้ฟังก์ชันที่มี

• แก้ไข: (87 -> 97) แก้ไข0001-01-01testcase
• แก้ไข 2: (97 -> 91) Date.parse อนุญาตให้ระบุวันที่ของการปฏิรูปปฏิทินเช่นกัน
• แก้ไข 3: (91 -> 87) ใช้แลมบ์ดาแทนฟังก์ชั่น ขอบคุณDogbert !
• แก้ไข 4: (87 -> 85) ลบช่องว่างที่ไม่จำเป็นออก ขอขอบคุณอีกครั้งDogbert !

T-SQL 166 185 ตัวละคร

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

ฉันกำลังยุ่งกับฟังก์ชั่นวันที่ของ T-SQL ดังนั้นฉันจึงคิดว่าทำไมไม่ ...

โซลูชันดั้งเดิมไม่ถูกต้อง ...

นี่คือสิ่งที่ฉันจริงต้องทำเพื่อให้ได้ว่ากลยุทธ์ในการทำงาน:

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 ไบต์

ขอบคุณ Peter ... รุ่น golfed สูงมากไบต์ 96:

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

รุ่นเก่า 229 ไบต์

#!/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

ตัวอย่าง I / O

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

Perl, ไม่มีไลบรารีวันที่: 160 159 155

ย่อย f {($ y, $ m) = แยก / - /, @ _ ​​[0], 2; $ y ++ ถ้า ($ m> '02 -28 '); $ y = ($ y + 3)% 400 >> 2; $ Y + = $ Y && ($ Y 25%); @ r = (อังคาร, Wednes, พฤหัสบดี, ศุกร์, Satur อาทิตย์จันทร์);! @ R [(5 * $ Y - ($ / y 25 และ 3))% 7] "วัน";.}

ประโยชน์ที่แท้จริงของไลบรารีวันที่เหล่านี้คือการผลักดันความยาวของชื่อของวันให้ผู้อื่น

ในทางกลับกันฉันคิดว่านี่เป็นวิธีแก้ปัญหาเดียวที่ทำงานได้โดยไม่คำนึงถึงสถานที่

DATE และกาว BASHy บางส่วน (90)

ฟังก์ชั่น:

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

การทดสอบ:

$ 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 ตัวอักษร

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

ชัดเจนยิ่งขึ้น:

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 แต่แน่นอนว่าจะไม่ชนะการแข่งขันกอล์ฟรหัสใด ๆ ยังนอกรหัสกอล์ฟฉันจะค่อนข้างง่ายต่อการเขียนและเข้าใจ แต่นานกว่ามันสั้นกระชับ แต่ยากที่จะเขียนและเข้าใจ

Java 8 - 252 ตัวอักษร

แข็งแรงเล่นกอล์ฟ:

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

Rebol - 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
    )
]

ตัวอย่างการใช้งาน (ในคอนโซล Rebol):

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

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

PHP, 104 ไบต์

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

ชำรุด

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): 1สำหรับปีอธิกสุรทิน0อื่น
date(l): การแสดงข้อความเต็มรูปแบบของวันในสัปดาห์

coreutils ของ GNU, 71 ไบต์

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

การค้นหาเชิงเส้นในอีก 8 ปีข้างหน้า (กรณีที่เลวร้ายที่สุดได้รับ 2096-02-29) Sed ค้นหาและส่งออกบรรทัดแรกที่ตรงกับ 29 กุมภาพันธ์

ฉันรู้สึกประหลาดใจที่พบว่าt;d;:;qสั้นกว่าการทดสอบเพื่อดูว่าตัวเลขยังคงอยู่หรือไม่ ( /[01]/d;q) แม้ว่าจะเป็นสองเท่าของคำสั่งจำนวนมากก็ตาม

การทดสอบ

ฉันได้เพิ่มการทดสอบเพิ่มเติมสำหรับกรณีมุมยาก:

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