编写一个带有日期并返回该日期之后的下一个2月29日的星期几的函数。

• 输入是ISO扩展格式的字符串：YYYY-MM-DD（例如，2010年5月27日为“ 2010-05-27”）。

• 输出是一个字符串，它是星期几的名称（例如“ Monday”）。大写字母无关紧要，但是请使用英文全名。

• 如果给定的日期是2月29日，则返回下一个 2月29日的星期几。

• 使用Proleptic Gregorian Calendar的计算（因此，它使用整个公历的Gregorian year年计算）。不用担心朱利安日历或何时从朱利安切换为公历。只要为所有事情假设格里高利安。

• 该功能至少应在“ 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整除，这并不是leap年。
• 0001年1月1日为星期一。

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-01测试用例。
• 编辑2：（97-> 91）Date.parse也允许指定日历改革的日期。
• 编辑3：（91-> 87）使用Lambda代替函数。谢谢Dogbert！
• 编辑4：（87-> 85）删除不必要的空格。再次感谢，多伯特！

T-SQL 166185个字符

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个字节

谢谢彼得...高尔夫版本，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，无日期库：160159 155

sub f {（$ y，$ m）= split /-/，@ _ [0]，2; $ y ++ if（$ m> '02 -28'）; $ y =（$ y + 3）％ 400 >> 2; $ y + = $ y &&！（$ y％25）; @ r =（星期二，星期三，星期四，星期五，星期六，星期日，星期一）; @ r [（5 * $ y-（$ y / 25＆3））％7]。“ day”;}

这些日期库的真正好处是将日期名称的长度缩短给其他人。

另一方面，我认为这是迄今为止唯一适用于任何区域的解决方案。

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

取消高尔夫：

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

取消高尔夫：

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对于leap年，0否则
date(l)：表示星期几的全文

GNU coreutils，71个字节

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

未来8年的线性搜索（最坏情况，给出2096-02-29）。Sed查找并输出与2月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