挑战

给定一个非负整数，输出是否可以将两个日期（公历的日期）相差多少年以共享一周中的某一天。如果将年份除以4但不能除以100，或者将其除以400则认为是a年。

输出可能是：

• 虚假/真实（任一方向）
• 任何两个不同的值
• 一个独特的价值，另一个价值
• 通过程序返回码
• 通过成功/错误
• 通过任何其他合理的方式-请问您是否怀疑这可能会引起争议

但是，除了假/真实（因为这将允许不操作！）外，不是按两个不同的值集进行操作

详情

这是输入是否为OEIS序列A230995的成员。

成员：

0, 5, 6, 7, 11, 12, 17, 18, 22, 23, 28, 29, 33, 34, 35, 39, 40, 45, 46, 50, 51, 56, 57, 61, 62, 63, 67, 68, 73, 74, 78, 79, 84, 85, 89, 90, 91, 95, 96, 101, 102, 106, 107, 108, 112, 113, 114, 117, 118, 119, 123, 124, 125, 129, 130, 131, 134, 135, 136, 140, 141, 142, 145, 146, 147, 151, 152, 153, 157, 158, 159, 162, 163, 164, 168, 169, 170, 173, 174, 175, 179, 180, 181, 185, 186, 187, 190, 191, 192, 196, 197, 198, 202, 203, 204, 208, 209, 210, 213, 214, 215, 219, 220, 221, 225, 226, 227, 230, 231, 232, 236, 237, 238, 241, 242, 243, 247, 248, 249, 253, 254, 255, 258, 259, 260, 264, 265, 266, 269, 270, 271, 275, 276, 277, 281, 282, 283, 286, 287, 288, 292, 293, 294, 298, 299, 304, 305, 309, 310, 311, 315, 316, 321, 322, 326, 327, 332, 333, 337, 338, 339, 343, 344, 349, 350, 354, 355, 360, 361, 365, 366, 367, 371, 372, 377, 378, 382, 383, 388, 389, 393, 394, 395
plus
400, 405, 406, 407, 411, ...

非会员：

1, 2, 3, 4, 8, 9, 10, 13, 14, 15, 16, 19, 20, 21, 24, 25, 26, 27, 30, 31, 32, 36, 37, 38, 41, 42, 43, 44, 47, 48, 49, 52, 53, 54, 55, 58, 59, 60, 64, 65, 66, 69, 70, 71, 72, 75, 76, 77, 80, 81, 82, 83, 86, 87, 88, 92, 93, 94, 97, 98, 99, 100, 103, 104, 105, 109, 110, 111, 115, 116, 120, 121, 122, 126, 127, 128, 132, 133, 137, 138, 139, 143, 144, 148, 149, 150, 154, 155, 156, 160, 161, 165, 166, 167, 171, 172, 176, 177, 178, 182, 183, 184, 188, 189, 193, 194, 195, 199, 200, 201, 205, 206, 207, 211, 212, 216, 217, 218, 222, 223, 224, 228, 229, 233, 234, 235, 239, 240, 244, 245, 246, 250, 251, 252, 256, 257, 261, 262, 263, 267, 268, 272, 273, 274, 278, 279, 280, 284, 285, 289, 290, 291, 295, 296, 297, 300, 301, 302, 303, 306, 307, 308, 312, 313, 314, 317, 318, 319, 320, 323, 324, 325, 328, 329, 330, 331, 334, 335, 336, 340, 341, 342, 345, 346, 347, 348, 351, 352, 353, 356, 357, 358, 359, 362, 363, 364, 368, 369, 370, 373, 374, 375, 376, 379, 380, 381, 384, 385, 386, 387, 390, 391, 392, 396, 397, 398, 399
plus
401, 402, 403, 404, 408, ...

这是代码高尔夫球，因此每种语言中最短的答案会获胜！

MATL，17个字节

`0Gv@+5:YcYO8XOda

如果输入属于序列，则程序将暂停，否则，它将无限期运行（无限循环）。

让我们n作为输入。该代码执行一个循环，用于测试年份1和1+n; 然后2和2+n; ...直到找到匹配的星期几。如果不存在匹配，则循环无限期地运行。

的隶属函数n是周期性的，带有周期400。因此，400如果n属于序列，则最多需要迭代。在“在线试用”中，所需时间少于20秒。作为此上限的证明，这里是一个经过修改的程序，该程序将迭代次数限制为400（通过@401<*在末尾添加）。还请注意，此绑定是宽松的，通常只需几秒钟即可。

在线尝试！

说明

`           % Do...while
  0Gv       %   Push column vector [0; n], where n is the input number
  @+        %   Add k, element-wise. Gives [k; k+n]
  5:        %   Push row vector [1, 2, 3, 4, 5]
  Yc        %   Horizontal "string" concatenation: gives the 2×6 matrix
            %   [k, 1, 2, 3, 4, 5; k+n, 1, 2, 3, 4, 5]. The 6 columns
            %   represent year, month, day, hour, minute, second
  YO        %   Convert each row to serial date number. Gives a column
            %   vector of length 2
  8XO       %   Convert each date number to date string with format 8,
            %   which is weekday in three letters ('Mon', 'Tue', etc).
            %   This gives a 2×3 char matrix such as ['Wed';'Fri']
  d         %   Difference (of codepoints) along each column. Gives a
            %   row vector of length 3
  a         %   True if some element is nonzero, or false otherwise
            % End (implicit). The loop proceeds with the next iteration
            % if the top of the stack is true

旧版本，24字节

400:"0G&v@+5:YcYO8XOdavA

输出是0输入是否属于序列，1否则为。

在线尝试！

说明

400         % Push row vector [1, 2, ..., 400]
"           % For each k in that array
  0G&v      %   Push column vector [0; n], where n is the input number
  @+        %   Add k, element-wise. Gives [k; k+n]
  5:        %   Push row vector [1, 2, 3, 4, 5]
  Yc        %   Horizontal "string" concatenation: gives the 2×6 matrix
            %   [k, 1, 2, 3, 4, 5; k+n, 1, 2, 3, 4, 5]. The 6 columns
            %   represent year, month, day, hour, minute, second
  YO        %   Convert each row to serial date number. Gives a column
            %   vector of length 2
  8XO       %   Convert each date number to date string with format 8,
            %   which is weekday in three letters ('Mon', 'Tue', etc).
            %   This gives a 2×3 char matrix such as ['Wed';'Fri']
  d         %   Difference (of codepoints) along each column. Gives a
            %   row vector of length 3
  a         %   True if some element is nonzero, or false otherwise
  v         %   Concatenate vertically with previous results
  A         %   True if all results so far are true
            % End (implicit). Display (implicit)

Python 2，58字节

u=-abs(200-input()%400)-4
print u/100+5>(u-8)*5/4%7>u%4/-3

在线尝试！

直接公式。

果冻，20 18字节

99R4ḍj`‘ṡ%4ȷ$S€P7ḍ

输出1表示成员，0表示非成员。

在线尝试！

怎么运行的

99R4ḍj`‘ṡ%4ȷ$S€P7ḍ  Main link. Argument: n

99                  Set the return value to 99.
  R                 Range; yield [01, .., 99].
   4ḍ               Test each element in the range for divisibility by 4.
     j`             Join the resulting array, using itself as separator.
                    The result is an array of 9801 Booleans indicating whether the
                    years they represent have leap days.
       ‘            Increment the results, yielding 1 = 365 (mod 7) for non-leap
                    years, 2 = 366 (mod 7) for leap years.
         %4ȷ$       Compute n % 4000.
        ṡ           Take all slices of length n % 4000 of the result to the left.
             S€     Take the sum of each slice.
               P    Take the product of the sums.
                7ḍ  Test for divisibility by 7.

Python 2，83个字节

lambda i:all(c(y)-c(y-i)for y in range(401))
c=lambda n:(5*(n/4)+n%4-n/100+n/400)%7

在线尝试！

我的Haskell答案的直接端口。

Haskell，76个字节

-35字节，感谢Jonathan Allan。-2个字节，感谢Lynn。

f i=or[c y==c$y+i|y<-[0..400]]
c n=(5*n#4+n%4-n#100+n#400)%7
(%)=mod
(#)=div

在线尝试！

使用OEIS PARI程序的算法。

Pyth，32个字节

iI7*FsM.:hMs.iKiIL4S99*98]K%Q400

在这里尝试！（单击“切换到测试套件”一次验证更多测试用例）

怎么样？

使用一个很酷的技巧，我刚刚添加到“ Pyth高尔夫技巧”中。

iI7 * FsM。：hMs.iKiIL4S99 * 98] K％Q400 | 完整程序。从STDIN读取，输出到STDOUT。

                   S99 | 生成1 ... 99中的整数。
                 L | 对于该列表中的每个整数N ...
               iI 4 | 检查4是否对G加上N不变。
                                 | 这等效于检查4 |。N.
              K | 将结果存储在变量K中。
            .i * 98] K | 并将K与包裹的K元素交织
                                 | 进入列表并重复98次。
           s | 展平。
         hM | 增量。
       。：| 并生成所有子字符串...
                           ％Q400 | 长度％400。
     sM | 每个加起来。
   * F | 并应用折叠产品。
iI7 | 将7与GCD一起应用时，检查7是否不变
                                 | 产品（基本上检查7 |产品）。
                                 | 隐式输出适当的布尔值。

Python 3中，110个 107字节

from datetime import*
lambda n,d=date:0in[d(i,1,1).weekday()-d(i+n%400,1,1).weekday()for i in range(1,999)]

在线尝试！

-3个字节，感谢Xcoder先生。