ท้าทาย

ให้เป็นจำนวนเต็มไม่เป็นลบเอาท์พุทไม่ว่ามันจะเป็นไปได้สำหรับสองวัน (ของปฏิทินเกรโกเรียน) แตกต่างกันหลายปีที่ผ่านมาเพื่อแบ่งปันวันของสัปดาห์ ปีจะถือว่าเป็นปีอธิกสุรทินทั้งสองถ้าหารด้วย 4 แต่ไม่ใช่ 100 หรือหารด้วย 400

ผลลัพธ์อาจเป็น:

• ความเท็จ / ความจริง (ในทิศทางใด)
• สองค่าที่แตกต่างกัน
• ค่าหนึ่งที่แตกต่างและหนึ่งเป็นสิ่งอื่น
• โดยรหัสส่งคืนโปรแกรม
• โดยสำเร็จ / ผิดพลาด
• ด้วยวิธีการอื่นที่สมเหตุสมผล - เพียงแค่ถามว่าคุณสงสัยหรือไม่ว่าอาจเป็นการโต้เถียง

แต่ไม่ได้สองชุดที่ไม่แตกต่างของค่ายกเว้น falsey / truthy (เช่นนี้จะช่วยให้ไม่มี-op)

รายละเอียด

นี่คือว่าอินพุตเป็นสมาชิกของลำดับ 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, ...

นี่คือcode-golfดังนั้นคำตอบที่สั้นที่สุดในแต่ละภาษาจะชนะ!

MATL , 17 ไบต์

`0Gv@+5:YcYO8XOda

โปรแกรมจะหยุดถ้าอินพุตอยู่ในลำดับหรือรันไม่สิ้นสุด (วนซ้ำไม่สิ้นสุด) เป็นอย่างอื่น

อนุญาตnเป็นอินพุต รหัสดำเนินการวนรอบที่ทดสอบปี1และ1+n ; จากนั้น2และ2+n; ... จนกระทั่งพบวันที่ตรงกันของสัปดาห์ หากไม่มีการจับคู่ที่มีอยู่ลูปจะทำงานไปเรื่อย ๆ

ฟังก์ชั่นสำหรับสมาชิกเป็นระยะที่มีระยะเวลาn 400ดังนั้นจึง400จำเป็นต้องมีการวนซ้ำมากที่สุดหากnเป็นลำดับ การดำเนินการนี้ใช้เวลาน้อยกว่า 20 วินาทีใน Try It Online ในฐานะที่เป็นข้อพิสูจน์ของขอบเขตบนนี้โปรแกรมที่แก้ไขซึ่ง จำกัด จำนวนการวนซ้ำเป็น 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 เป็นค่าคงที่หรือไม่มากกว่าการใช้ GCD กับ N
                                 | นี่เทียบเท่ากับการตรวจสอบว่า 4 | N.
              K | เก็บผลลัพธ์ไว้ในตัวแปร K
            .i * 98] K | และแทรกสอด K ด้วยองค์ประกอบของ K ที่ห่อไว้
                                 | ลงในรายการและทำซ้ำ 98 ครั้ง
           s | เรียบ.
         hM | การเพิ่มขึ้น
       .: | และสร้างสารตั้งต้นทั้งหมด ...
                           % Q400 | ของความยาว% 400
     sM | สรุปรวมกัน
   * F | และใช้ผลิตภัณฑ์ที่พับแล้ว
iI7 | ตรวจสอบว่า 7 เป็นค่าคงที่หรือไม่เมื่อใช้ GCD กับ
                                 | ผลิตภัณฑ์ (โดยทั่วไปตรวจสอบว่า 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 ไบต์ขอบคุณ Mr. Xcoder