พื้นหลัง

วันหยุดบางวันมีวันที่ที่แน่นอนและง่ายต่อการจดจำเช่น 31 ต.ค. 25 ธ.ค. เป็นต้น แต่บางวันต้องการแก้ไขปัญหา พวกเขาถูกระบุว่าเป็น "วันจันทร์แรกในเดือนกันยายน" หรือ "วันพฤหัสบดีที่สี่ในเดือนพฤศจิกายน" ฉันควรจะรู้ได้อย่างไรว่าเมื่อไหร่?

ทั้งหมดที่ฉันรู้ก็คือวันขอบคุณพระเจ้ากำลังใกล้เข้ามาอย่างรวดเร็วดังนั้นฉันจึงต้องการโปรแกรมที่จะช่วยฉันค้นหาว่ามันเป็นอย่างไร บางคนถึงกับบอกว่าเป็นวันพรุ่งนี้ดังนั้นโปรแกรมของคุณต้องสั้นที่สุดเท่าที่จะเป็นไปได้เพื่อให้แน่ใจว่าฉันสามารถพิมพ์ใหม่ได้ทันเวลา

ความท้าทาย

สร้างโปรแกรมหรือฟังก์ชั่นที่ให้ปีถึงหลักสี่หลัก (เช่น 2015 หรือ 1984) เอาท์พุทหรือส่งคืนวันที่วันขอบคุณพระเจ้าของสหรัฐอเมริกาในปีนั้น ขอบคุณพระเจ้าที่ถูกกำหนดให้เป็นวันพฤหัสบดีที่สี่ของเดือนพฤศจิกายนตามหน้าวิกิพีเดีย (เคล็ดลับ: หน้านั้นยังมีข้อมูลที่น่าสนใจเกี่ยวกับรูปแบบวันที่)

อินพุต : ตัวเลขทศนิยมที่มีตัวเลขสูงสุดสี่หลักที่แสดงถึงปีใน Common Era (CE) ตัวอย่าง: 987, 1984, 2101

เอาท์พุท : วันที่รวมถึงเดือนและวันที่วันขอบคุณพระเจ้าตกหรือจะตกถ้ามันมีอยู่ในปีนั้น นี่อาจเป็นรูปแบบที่สมเหตุสมผล ใช้วิจารณญาณที่ดีที่สุดของคุณ ใช้ปฏิทิน Gregorian ในทุกกรณีแม้ว่าจะไม่ได้ใช้งานในเวลานั้น

(หมายเหตุ: ตรวจสอบให้แน่ใจว่าจัดการกับการก้าวกระโดดอย่างถูกต้อง!)

กรณีทดสอบ อินพุต 1:

2015

เอาท์พุท 1:

Nov 26

อินพุต 2:

1917

เอาท์พุท 2:

Nov 22

เกณฑ์การให้คะแนน

ส่งจะได้รับคะแนนในไบต์ ฉันแนะนำเว็บไซต์นี้เพื่อติดตามจำนวนไบต์ของคุณแม้ว่าคุณสามารถใช้ตัวนับใด ๆ ที่คุณต้องการ

โบนัส

-25%จากคะแนนของคุณหากคุณจัดการกับวันที่ BCE เป็นตัวเลขติดลบ (เช่น -480 จะเป็นปีของการต่อสู้ของ Thermopylae)

อินพุตกรณีทดสอบเชิงลบ:

-480

ผลลัพธ์ที่สอดคล้องกัน:

Nov 25

นี่คือโค้ดกอล์ฟดังนั้นคะแนนต่ำสุดชนะ!

แก้ไข: ฉันกำลังทำเครื่องหมายการส่ง TI-BASIC ของ Thomas Kwa ว่ายอมรับ อย่าปล่อยให้เรื่องนี้ทำให้คุณท้อใจในการส่งผลงานใหม่!

ลีดเดอร์

นี่คือตัวอย่างข้อมูลเพื่อสร้างทั้งกระดานผู้นำปกติและภาพรวมของผู้ชนะตามภาษา

เพื่อให้แน่ใจว่าคำตอบของคุณปรากฏขึ้นโปรดเริ่มคำตอบด้วยหัวข้อโดยใช้เทมเพลต Markdown ต่อไปนี้:

# Language Name, N bytes

ที่Nมีขนาดของส่งของคุณ หากคุณปรับปรุงคะแนนของคุณคุณสามารถเก็บคะแนนเก่าไว้ในพาดหัวโดยการตีพวกเขาผ่าน ตัวอย่างเช่น

# Ruby, <s>104</s> <s>101</s> 96 bytes

หากคุณต้องการรวมหลายตัวเลขไว้ในส่วนหัวของคุณ (เช่นเนื่องจากคะแนนของคุณคือผลรวมของไฟล์สองไฟล์หรือคุณต้องการแสดงรายการบทลงโทษการตั้งค่าสถานะของล่ามแยกต่างหาก) ตรวจสอบให้แน่ใจว่าคะแนนจริงเป็นตัวเลขสุดท้ายในส่วนหัว:

# Perl, 43 + 2 (-p flag) = 45 bytes

นอกจากนี้คุณยังสามารถตั้งชื่อภาษาให้เป็นลิงค์ซึ่งจะปรากฏในตัวอย่างกระดานแต้มนำ:

# [><>](http://esolangs.org/wiki/Fish), 121 bytes

var QUESTION_ID=64785,OVERRIDE_USER=45162;function answersUrl(e){return"http://api.stackexchange.com/2.2/questions/"+QUESTION_ID+"/answers?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+ANSWER_FILTER}function commentUrl(e,s){return"http://api.stackexchange.com/2.2/answers/"+s.join(";")+"/comments?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+COMMENT_FILTER}function getAnswers(){jQuery.ajax({url:answersUrl(answer_page++),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){answers.push.apply(answers,e.items),answers_hash=[],answer_ids=[],e.items.forEach(function(e){e.comments=[];var s=+e.share_link.match(/\d+/);answer_ids.push(s),answers_hash[s]=e}),e.has_more||(more_answers=!1),comment_page=1,getComments()}})}function getComments(){jQuery.ajax({url:commentUrl(comment_page++,answer_ids),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){e.items.forEach(function(e){e.owner.user_id===OVERRIDE_USER&&answers_hash[e.post_id].comments.push(e)}),e.has_more?getComments():more_answers?getAnswers():process()}})}function getAuthorName(e){return e.owner.display_name}function process(){var e=[];answers.forEach(function(s){var r=s.body;s.comments.forEach(function(e){OVERRIDE_REG.test(e.body)&&(r="<h1>"+e.body.replace(OVERRIDE_REG,"")+"</h1>")});var a=r.match(SCORE_REG);a&&e.push({user:getAuthorName(s),size:+a[2],language:a[1],link:s.share_link})}),e.sort(function(e,s){var r=e.size,a=s.size;return r-a});var s={},r=1,a=null,n=1;e.forEach(function(e){e.size!=a&&(n=r),a=e.size,++r;var t=jQuery("#answer-template").html();t=t.replace("{{PLACE}}",n+".").replace("{{NAME}}",e.user).replace("{{LANGUAGE}}",e.language).replace("{{SIZE}}",e.size).replace("{{LINK}}",e.link),t=jQuery(t),jQuery("#answers").append(t);var o=e.language;/<a/.test(o)&&(o=jQuery(o).text()),s[o]=s[o]||{lang:e.language,user:e.user,size:e.size,link:e.link}});var t=[];for(var o in s)s.hasOwnProperty(o)&&t.push(s[o]);t.sort(function(e,s){return e.lang>s.lang?1:e.lang<s.lang?-1:0});for(var c=0;c<t.length;++c){var i=jQuery("#language-template").html(),o=t[c];i=i.replace("{{LANGUAGE}}",o.lang).replace("{{NAME}}",o.user).replace("{{SIZE}}",o.size).replace("{{LINK}}",o.link),i=jQuery(i),jQuery("#languages").append(i)}}var ANSWER_FILTER="!t)IWYnsLAZle2tQ3KqrVveCRJfxcRLe",COMMENT_FILTER="!)Q2B_A2kjfAiU78X(md6BoYk",answers=[],answers_hash,answer_ids,answer_page=1,more_answers=!0,comment_page;getAnswers();var SCORE_REG=/<h\d>\s*([^\n,]*[^\s,]),.*?([\d.]+)(?=[^\n\d<>]*(?:<(?:s>[^\n<>]*<\/s>|[^\n<>]+>)[^\n\d<>]*)*<\/h\d>)/,OVERRIDE_REG=/^Override\s*header:\s*/i;

body{text-align:left!important}#answer-list,#language-list{padding:10px;width:290px;float:left}table thead{font-weight:700}table td{padding:5px}

<script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script> <link rel="stylesheet" type="text/css" href="//cdn.sstatic.net/codegolf/all.css?v=83c949450c8b"> <div id="answer-list"> <h2>Leaderboard</h2> <table class="answer-list"> <thead> <tr><td></td><td>Author</td><td>Language</td><td>Size</td></tr></thead> <tbody id="answers"> </tbody> </table> </div><div id="language-list"> <h2>Winners by Language</h2> <table class="language-list"> <thead> <tr><td>Language</td><td>User</td><td>Score</td></tr></thead> <tbody id="languages"> </tbody> </table> </div><table style="display: none"> <tbody id="answer-template"> <tr><td>{{PLACE}}</td><td>{{NAME}}</td><td>{{LANGUAGE}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table> <table style="display: none"> <tbody id="language-template"> <tr><td>{{LANGUAGE}}</td><td>{{NAME}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table>

TI-BASIC, 15 ไบต์ * 0.75 = 11.25

ทดสอบกับเครื่องคิดเลข TI-84 + ของฉัน

1129-dayOfWk(Ans+ᴇ4,9,1

วันขอบคุณพระเจ้าคือวันที่ 29 พฤศจิกายนลบวันในสัปดาห์ของวันที่ 1 กันยายนโดยที่ 1 คือวันอาทิตย์และ 7 คือวันเสาร์ MMDDเอาท์พุทในรูปแบบนี้

กรณีทดสอบ: 2015-> 1126, 1917-> 1122, -480-> 1125ได้รับการยืนยันแล้ว TI-BASIC ดูเหมือนว่าจะใช้ปฏิทิน Gregorian สำหรับทุกวัน

TI-BASIC ไม่สนับสนุนปีเชิงลบ แต่สิ่งนี้จะได้รับโบนัสเพราะเราเพิ่ม 10,000 ให้กับอินพุท เนื่องจากปฏิทินคริสต์ศักราชมีระยะเวลา 400 ปีจึงไม่เปลี่ยนวันของสัปดาห์

PHP, 65 48 42 41 36 (+2 สำหรับ-F) = 38 ไบต์

<?date(Md,strtotime("4thuXI$argn"));

รับอินพุตเป็นอาร์กิวเมนต์บรรทัดคำสั่งแรก ทำงานด้วยคำเตือนซึ่งเป็นที่ยอมรับโดยกฎของเรา พิมพ์NovDDที่DDเป็นวันขอบคุณพระเจ้า

ไม่มีลิงก์ออนไลน์เพราะ ideone ไม่รองรับ args ของบรรทัดคำสั่งและฉันไม่ทราบว่าล่ามออนไลน์ทำเช่นไร

ขอบคุณ Alexander O'Mara ที่สอนเคล็ดลับใหม่ให้ฉันและลดราคาอย่างมีนัยสำคัญ

Mathematica, 59 38 ไบต์

DayRange[{#,11},{#,12},Thursday][[4]]&

JavaScript (ES6), 42 40 31 ไบต์ - 25% = 23.25

a=>28.11-new Date(a,8).getDay()

ตั้งแต่วันที่ "อาจจะอยู่ในรูปแบบที่เหมาะสมใด ๆ" DD.MMนี้ฟังก์ชั่นการใช้งาน ฉันเขียนคำตอบ TeaScriptด้วยเทคนิคที่แตกต่างกัน แต่สูตรนี้สั้นกว่านี้

คำอธิบาย

เนื่องจากเดือนมีค่าเป็นศูนย์ให้new Date(a,10)ส่งคืนDateวัตถุที่แสดงถึงวันที่ 1 พฤศจิกายนของปีที่ระบุ

เนื่องจากgetDay()ส่งคืนตัวเลขที่แสดงถึงวันในสัปดาห์จากที่0..6เราต้องการทำแผนที่

Su Mo Tu We Th Fr Sa 
0  1  2  3  4  5  6  
to to to to to to to
4  3  2  1  0  6  5  

จากนั้นเพิ่ม 22. ปรากฎว่า(11 - new Date(a,10).getDay()) % 7ทำเคล็ดลับ ตามที่@Thomas Kwaชี้ให้เห็นว่านี่เป็นเช่นเดียวกับ28-new Date(a,8).getDay()ที่ 28 ลบด้วยวันในสัปดาห์ที่ 1 กันยายน

Japt , 43 37 36 35 29 ไบต์ - 25% = 21.75

Japtเป็นรุ่นสั้นJa vaScri พอยต์

`{28.11-?w D?e(U,8).getDay()}

ฮ่าฮ่าฮ่าฉันพบจริงๆเคล็ดลับ cheaty : ล่ามจะไม่สนใจวงเล็บใด ๆ ภายในสตริง (ใช้เพื่อแทรกรหัส) ในขณะที่คลายพวกมันดังนั้นเราสามารถบีบอัดซอร์สโค้ดทั้งหมดเพื่อบันทึก byte>: D

ทั้งสอง?ควรเป็น Unicode unprintables U + 0098 และ U + 0085 ตามลำดับ ลองออนไลน์!

หลังจากคลายการบีบอัดรหัสจะประเมินสิ่งนี้:

"{28.11-new Date(U,8).getDay()}"

ซึ่งประเมินว่า:

""+(28.11-new Date(U,8).getDay())+""

ซึ่งให้ผลผลิตที่เหมาะสม

ใช้intrepidcoder เทคนิคของ , dd.mmการแสดงผลในรูปแบบ รองรับปีที่ติดลบอย่างถูกต้อง ยินดีต้อนรับข้อเสนอแนะ!

แก้ไข:ตั้งแต่วันที่ 2 ธันวาคมคุณสามารถใช้รหัส11-byte นี้ (ให้คะแนน8.25 คะแนน ):

28.11-ÐU8 e

(ฉันหวังว่าฉันจะใช้งานได้เร็วกว่านี้!)

Vitsy , 44 ไบต์

ฉันคำนวณด้วยคณิตศาสตร์บริสุทธิ์ !

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

Ve2 * V2-V41m + Vaa * Dv1m-Vv4 * 1m + 7M-Baa * / + N
/ D1M-

Ungolfed (ย้ายการเรียกเมธอดไปที่บรรทัดแรกเพื่อให้สามารถอ่านได้):

Ve2 * V2-V4 / D1M- + Vaa * Dv / D1M - Vv4 * / D1M- + 7M-Baa * / + N

V บันทึกอินพุตเป็นตัวแปรสุดท้าย
 e2 * กด 28 ลงในสแต็ก
    V ดันอินพุตไปยังสแต็ก
     2- ลบสอง
       V4 / D1M- รับพื้น (อินพุต / 4)
              + เพิ่มลงในยอดรวม
               Vaa * Dv / D1M- รับพื้น (อินพุต / 100) และบันทึก 100 เป็นอุณหภูมิ
                                    ตัวแปรในกระบวนการ
                          - ลบออกจากผลรวม
                           Vv4 * / D1M- รับพื้น (อินพุต / 400)
                                    + เพิ่มลงในยอดรวม
                                     7M โมดูโล่โดยเจ็ด
                                       - ลบผลลัพธ์จาก 28
                                        baa * / + เพิ่ม. 11
                                              เอาท์พุทเป็นจำนวน

อาจมีขั้นตอนวิธีการที่ดีกว่าสำหรับนี้ (และนี่คือแนวโน้มที่แข็งแรงเล่นกอล์ฟอย่างน่าสยดสยอง) แต่สำหรับผู้ที่สงสัยว่าอัลกอริทึมของฉันมาจากที่นี่

ลองออนไลน์!

_{ฉันจะได้รับคะแนนโบนัสสำหรับการคำนวณและมี 42 ไบต์หรือไม่ ความฝันเจ๊ง}

ขอบคุณ @ Hosch250 ที่ชี้ให้เห็นว่าฉันทำผิดไป : D คงที่

Python, 38 * 0.75 = 28.5 ไบต์

lambda x:28.11-(x-2+x/4-x/100+x/400)%7

สิ่งนี้ใช้ได้กับปีที่เป็นค่าลบในลักษณะที่ระบุในคำถามแม้ว่าจะพบว่าไม่มีปี 0 ในปฏิทินเกรกอเรียนดังนั้นพฤติกรรมนี้จึงเป็นที่น่าสงสัยเล็กน้อย

JavaScript (ES6), 43.5

^{จำนวนไบต์ที่แท้จริงคือ 58 โบนัส -25% จะใช้ => 58 * 0.75 = 43.5}

s=>new Date(s,10,(a=new Date(s,10).getDay())<5?26-a:a+21)

ค่อนข้างตรงไปตรงมาและไร้สาระอย่างที่ควรเป็นโดยไม่มีวิธีแก้ไขหรือการคำนวณใด ๆ ที่ยุ่งยาก

De-golf (ES5) + การสาธิต:

function t(s) {
    a = new Date(s, 10).getDay();
    alert(new Date(s,10,a<=4?26-a:a+21))
}

t(prompt())

โปรดทราบว่าการเข้าสู่ปีที่ 0-100 จะสร้างปี 1900-2,000 ปี แม้ว่าดูเหมือนว่า 0-100 ปีที่ผ่านมาจะเป็นวันเดียวกับที่ 1900-2000 ตัดสินจากคำตอบอื่น ๆ

การแทนที่a+18ด้วย22เนื่องจากถูกเรียกใน "else" เท่านั้นและ "else" จะเกิดขึ้นเฉพาะในกรณีที่ a ไม่มากกว่าหรือน้อยกว่า 4 นั่นคือ 4

แทนที่a<4?26-a:a>4?a+21:22ด้วยa<=4?26-a:a+21

TeaScript, 35 33 24 ไบต์ - 25% = 18

28.11-new D(x,8).getDay¡

นี่เป็นวิธีการเดียวกับคำตอบ JavaScript ของฉันซึ่งใช้สูตรอันชาญฉลาดของ Thomas Kwa

รุ่นอื่นที่มีคำอธิบาย

r(22,28)F(#/h/t(new D(x,10,l)))+'-11'

r(22,28)    // Range from 22 to 28
        F(    // filter, keeps elements for which the function returns true. 
          #    // Expands to function(l,i,a,b)
           /h/    // RegExp literal, Thursday is the only day with an 'h'.
              t(    // test, true if date string contains an 'h'.
                new D(x,10,l) // Create date object
                             ))+'-11' // Append '-11' for the month.

Jython, 141 155 ไบต์

ใช้คลาส Java Calendar และ Scanner พร้อมกับไวยากรณ์ Python

import java.util.Scanner as s;import java.util.Calendar as c
d=c.getInstance();k=s(System.in);d.set(c.YEAR,k.nextInt());d.set(c.DAY_OF_WEEK,c.THURSDAY)

แก้ไข:ปัญหาไวยากรณ์เล็กน้อย, เพิ่ม 14 ไบต์

ดูเวอร์ชั่นBrainfuckของฉันด้วย

Python, 83 81 78 ไบต์

from datetime import*
lambda a:'Nov '+`((10-datetime(a,11,1).weekday())%7)+22`

• -2 ไบต์:เพิ่มชื่อที่จะนำเข้า (ขอบคุณ @ ΚριτικσιΛίθος)
• -1 ไบต์:เปลี่ยนเป็น * import ** (ขอบคุณ @FryAmTheEggman)
• -2 ไบต์:เปลี่ยนเป็น repr เพื่อแปลงวัน (ขอบคุณ @willem)

Excel, 367 154 53 - 25% = 39.75 ไบต์

ถือว่าปีนั้นจัดขึ้นในเซลล์ A1 ในรูปแบบวันที่ ส่งคืนตัวเลขจำนวนเต็มของวันในเดือนพฤศจิกายนซึ่งจัดขึ้นในวันขอบคุณพระเจ้า

นี่เป็นเพียงปีอธิกสุรทินปกติเท่านั้น มันไม่ได้คำนึงถึงความจริงที่ว่าปีที่ผ่านมา 2100, 2200, 2300 ไม่ได้กระโดดปี

สิ่งนี้ได้รับการออกแบบมาเพื่อทำงานในปี 1621 เป็นต้นไป - เช่นตั้งแต่วันขอบคุณพระเจ้าเริ่มจัดขึ้น (แม้ว่ามันจะทำงานได้อย่างแน่นอนจนถึง 0 AD)

=IF(MOD(YEAR(A1),4)=0,IF(WEEKDAY(305+DATEVALUE(("01/01/"&TEXT(A1,"yyyy"))))<6,1127-WEEKDAY(305+DATEVALUE(("01/01/"&TEXT(A1,"yyyy")))),1134-WEEKDAY(305+DATEVALUE(("01/01/"&TEXT(A1,"yyyy"))))),IF(WEEKDAY(304+DATEVALUE(("01/01/"&TEXT(A1,"yyyy"))))<6,1127-WEEKDAY(304+DATEVALUE(("01/01/"&TEXT(A1,"yyyy")))),1134-WEEKDAY(304+DATEVALUE(("01/01/"&TEXT(A1,"yyyy"))))))

พริตตี้ที่พิมพ์:

=IF(MOD(YEAR(A1),4)=0,
    IF(WEEKDAY(305+DATEVALUE(("01/01/"&TEXT(A1,"yyyy"))))<6,
       1127-WEEKDAY(305+DATEVALUE(("01/01/"&TEXT(A1,"yyyy")))),
       1134-WEEKDAY(305+DATEVALUE(("01/01/"&TEXT(A1,"yyyy"))))),
    IF(WEEKDAY(304+DATEVALUE(("01/01/"&TEXT(A1,"yyyy"))))<6,
       1127-WEEKDAY(304+DATEVALUE(("01/01/"&TEXT(A1,"yyyy")))),
       1134-WEEKDAY(304+DATEVALUE(("01/01/"&TEXT(A1,"yyyy"))))))

Gah! แทนที่จะคำนวณจากวันที่ 1 มกราคมจากนั้นทำการคำนวณแบบก้าวกระโดดมากมายเพื่อจัดการกับวันที่ 29 กุมภาพันธ์ฉันควรจะทำการคำนวณในวันที่ 1 พฤศจิกายนนั้นตอนนี้จัดการได้อย่างถูกต้องกับปี 2100, 2200 และ 2300 แต่ทำให้การใช้งานขึ้นอยู่กับรูปแบบวันที่เริ่มต้นการติดตั้ง Excel ของคุณ รุ่นนี้ถูกออกแบบมาสำหรับ dd / mm / yyyy:

 =IF(WEEKDAY(DATEVALUE(("01/11/"&TEXT(C1,"yyyy"))))<6,  
     1127-WEEKDAY(DATEVALUE(("01/11/"&TEXT(C1,"yyyy")))),
     1134-WEEKDAY(DATEVALUE(("01/11/"&TEXT(C1,"yyyy")))))

และตอนนี้ฉันได้ทำ pfaffing เพื่อรับการคำนวณ terse ใน Smalltalk แล้วนำกลับไปที่ผลลัพธ์ Excel ใน:

=DATE(A1,11,MOD(12-WEEKDAY(DATE(9600+A1,11,1)),7)+22)

(ด้วยปียังคงอยู่ใน A1 แต่เป็นจำนวนเต็ม) สิ่งนี้ใช้ได้แม้กระทั่งปี 2100, 2200 และ 2300 สำหรับทุกวันที่ตั้งแต่ 7700BC / E เป็นต้นไปโดยใช้เคล็ดลับการทำซ้ำวันที่ของ Thomas Kwa

PowerShell, 67 64 84 72 58 45 ไบต์

param($a)'Nov';28-(date "00$a/9/1").DayOfWeek

เราใช้จำนวนเต็มเข้าของเรา$aและออกทันทีNovและขึ้นบรรทัดใหม่ จากนั้นเราก็นำ$aและเติมด้วยศูนย์และวันที่ 1 กันยายน00$a/9/1ก่อนสร้างใหม่dateและพิจารณาDayOfWeekว่ามันคืออะไร หากวันที่ 1 กันยายนเป็นวันอาทิตย์ ( .DayOfWeekเท่ากับ0) วันขอบคุณพระเจ้าจะอยู่ในวันที่ 28 หากวันที่ 1 กันยายนเป็นวันจันทร์ ( .DayOfWeekเท่ากับ1) วันขอบคุณพระเจ้าจะอยู่ในวันที่ 27 และอื่น ๆ ดังนั้นเราจึงลบวันนั้นของสัปดาห์จาก28เพื่อส่งคำตอบของเรา

การเตรียมด้วยบัญชีเลขศูนย์คู่สำหรับปีเดียวและสองหลักโดยไม่รบกวนการแยกวิเคราะห์สำหรับสามหรือสี่หลักปี ไม่ทำงานสำหรับตัวเลขที่ติดลบเป็น .NET ไม่สนับสนุนน้อยกว่าปีที่ผ่านมาdatetime0

ขอบคุณTessellatingHecklerและToby Speightสำหรับความช่วยเหลือในเรื่องนี้

Golfscript, 25 * 0.75 = 18.75 ไบต์

~.4/.25/.4/2---+7%28\--11

สิ่งนี้ใช้สูตรของ Sakamoto สำหรับวันในสัปดาห์ dd-mmเนื่องจากมีคนทำเช่นนี้ออกเป็นในรูปแบบของ การส่งก่อนหน้าของฉันสามารถพบได้ที่ด้านล่าง:

~.4/.25/.4/2---+7%"Nov "28@-

TSQL, 478 296 ไบต์

เพียงเพื่อ funsies โดยปกติแล้วคุณจะมีตารางส่วนข้อมูลวันที่เพื่อทำให้สิ่งนี้เป็นเรื่องง่ายselect * from dimDate where [Year] = @Year and [Holiday] = 'Thanksgiving'แต่ในกรณีที่ไม่มี ...

create function a(@y varchar(4))returns date as begin declare @d date,@i int=0 set @d=convert(date,@y+'-11-01')declare @t table(d date,c int identity)while @i<28 begin if datepart(weekday,@d)=5 insert @t(d) select @d select @d=dateadd(d,1,@d),@i+=1 end select @d=d from @t where c=4 return @d end

Ungolfed:

if exists(select * from sys.objects where name='a' and [type]='FN') drop function a
go

create function a(@y varchar(4))returns date
-- select dbo.a('2015')
as
begin
    declare @d date,@i int=0;

    set @d=convert(date,@y+'-11-01'); -- cannot golf out dashes for dates <year 1000

    declare @t table(d date,c int identity)

    while @i<28 
    begin -- populate "November" array
        if datepart(weekday,@d)=5 insert @t(d) select @d -- assumes @@datefirst = 7
        select @d=dateadd(d,1,@d),@i+=1
    end;

    select @d=d from @t where c=4 

    return @d

end

Pyth, 30 28 * 75% = 21 ไบต์

ฉันมั่นใจ 100% ว่านี่จะสั้นลง แต่เดี๋ยวก่อนมันเป็นโปรแกรม Pyth แรกของฉัน! \ O /

-28.11%+-+-Q2/Q4/Q100/Q400 7

ชุดทดสอบ

แสดงวันที่ในdd.mmรูปแบบ

กรุณาแนะนำวิธีการตีกอล์ฟนี้ถ้าคุณทำได้! ฉันต้องการเรียนรู้เพิ่มเติมเกี่ยวกับ Pyth

Excel, 64 48

ปีใน A1

= วันที่ (A1,11 เลือก (วันธรรมดา (วันที่ (A1,11,1)), 26,25,24,23,22,28,27))

=DATE(A1,11,MOD(12-WEEKDAY(DATE(A1,11,1)),7)+22)

Befunge, 41 ไบต์

47*&:::4"d"*/\"d"/-\4/++5+7%-" voN",,,,.@

ทำงานกับล่ามนี้

คำอธิบาย: ปีที่พบบ่อยคือ365 = 1 mod 7วันดังนั้นในปีบวกทุก 4 ^วันปีลบทุก ๆ 100 ^TH ( dใน ASCII) ปีบวกทุก 400 ^THปีบัญชีสำหรับวันก้าวกระโดดใด ๆ (รวมทั้งปีปัจจุบัน) ผลจาก:::4"d"*/\"d"/-\4/++นั้นจะสามารถคิดเป็น 5 มีนาคม^{ปีบริบูรณ์}ในวันแรกหลังจากเดือนกุมภาพันธ์ถึงตกอยู่ในวันเดียวกันเป็นวันแรกของปีในปีที่พบบ่อย หลังจากนั้นเราปรับเทียบกับรูปแบบที่มี5+7%-การลบจำนวนวันของสัปดาห์จาก 28 ^TH (คน47*ที่เก็บไว้ก่อนหน้านี้) ของเดือนพฤศจิกายน จากนั้นพิมพ์

การแก้ไขเวอร์ชันสำหรับ BC ปีปัจจุบันนานกว่าโบนัสที่กำหนดไว้ที่ 59 -25% = 44.25 ไบต์:

47*&v
!`0:<+*"(F"_v#
" voN",,,,.@>:::4"d"*/\"d"/-\4/++5+7%-

Matlab, 78 ไบต์

x=find(all(bsxfun(@eq,datestr(datenum(input(''),11,1:30),'ddd'),'Thu')'));x(4)

ทับทิม, 60 58 57 * 0.75 = 42.75 ไบต์

->y{puts"Nov #{[5,4,3,2,1,7,6][Time.new(y,11).wday]+21}"}

58 ไบต์

->y{puts "Nov #{[5,4,3,2,1,7,6][Time.new(y,11).wday]+21}"}

60 ไบต์

->y{puts "Nov #{[5,4,3,2,1,7,6][Time.new(y,11,1).wday]+21}"}

Ungolfed:

-> y {
  puts "Nov #{[5,4,3,2,1,7,6][Time.new(y,11).wday]+21}"
}

การใช้งาน:

->y{puts"Nov #{[5,4,3,2,1,7,6][Time.new(y,11).wday]+21}"}

=> Nov 26

VBA, 124 ไบต์ * 75% = 93 ไบต์

Function e(y)
For i = 1 To 7
x = DateSerial(y, 11, 21) + i
If Weekday(x) = 5 Then e = Format(x, "mmm dd")
Next
End Function

ฉันไม่แน่ใจว่ามีการนับช่องว่างหรือไม่ช่องว่างนั้นมีอยู่ระหว่าง 102 ถึง 124 ให้แก้ไขได้
หากจำนวนเต็มเป็นผลลัพธ์ที่ถูกต้องฉันยินดีที่จะลบFormatส่วนนี้ออก

PHP 5.3+, 59 ไบต์

ใช้ฟังก์ชัน PHP builtin strtotimeในการแยกวิเคราะห์วันที่

<?=gmdate('M d',strtotime("Next Thursday $_GET[Y]-11-19"));

สิ่งนี้คาดว่าค่าจะถูกส่งผ่านพารามิเตอร์ GET Y หรือมากกว่าphp-cli Y=<year>มากกว่า

พยายามค้นหาวันพฤหัสบดีถัดไปหลังจากวันที่ 19 พฤศจิกายน
จนถึงตอนนี้ด้วยการทดสอบที่ฉันทำมันใช้งานได้ดี

โปรดทราบว่าปี 2 หลักอาจตีความแตกต่างกัน

ฉันใช้gmdateเพื่อหลีกเลี่ยงปัญหาเขตเวลา แต่ใช้งานได้ดีพอ ๆ กันdate(อย่างน้อยก็ที่ ๆ ฉันอยู่)

T-SQL 215 ไบต์ 248 * 0.75 = 186 ไบต์

create function t(@y int)returns table return select x=convert(char(6),x,107)from(select x=cast(dateadd(dd,d,dateadd(yy,@y-2015+7600,'20151101'))as date)from(select d=21+n from(values(0),(1),(2),(3),(4),(5),(6))b(n))c)t where datepart(weekday,x)=5

Ungolfed

set nocount on;
if object_id('dbo.t') is not null drop function dbo.t
go

create function t(@y int)returns table return
    select x=convert(char(6),x,107)
    from (
        select
        x=cast(dateadd(dd,d,dateadd(yy,@y-2015+7600,'20151101'))as date)
        from (
            select d=21+n 
            from (values (0),(1),(2),(3),(4),(5),(6))b(n)
        )c
    )t
    where datepart(weekday,x)=5
go

ซึ่งนั่งร้านทดสอบนี้

select 
  [ 2015 = Nov. 26]=(select x from dbo.t( 2015))
 ,[ 1917 = Nov. 22]=(select x from dbo.t( 1917))
 ,[ 1752 = Nov. 23]=(select x from dbo.t( 1752))
 ,[ 1582 = Nov. 25]=(select x from dbo.t( 1582))
 ,[ 1400 = Nov. 27]=(select x from dbo.t( 1400))
 ,[ -480 = Nov. 25]=(select x from dbo.t( -480))
 ,[-5480 = Nov. 28]=(select x from dbo.t(-5480))
;
go

ให้ผลผลิตตามที่ต้องการ

2015 = Nov. 26  1917 = Nov. 22  1752 = Nov. 23  1582 = Nov. 25  1400 = Nov. 27  -480 = Nov. 25 -5480 = Nov. 28
--------------- --------------- --------------- --------------- --------------- --------------- ---------------
Nov 26          Nov 22          Nov 23          Nov 25          Nov 27          Nov 25          Nov 28

Pike , 87 91 107 77 76 ไบต์ - 25% = 57

string t(int y){return"Nov "+((11-Calendar.Day(y,11,1)->week_day())%7+22);}

ปล่อยให้เก่ามาเปรียบเทียบเพราะฉันคิดว่ามันฉลาดกว่าในแง่ของการใช้ประโยชน์จากโมดูลปฏิทิน แต่ข้างบนนั้นสั้นกว่า

string t(int y){object n=Calendar.Month(y,11);return"Nov "+(n->weeks()->day(4)&n->days())[3]->month_day();}

Smalltalk - Squeak and Pharo , 69 57 54 49 35 34 33 32 32 - 25% = 24 ไบต์

"พ.ย. nn": 69B 49B (-25% = 36.75B)
11nn (anInt): 57 54 32B (-25% = 24B)

"Year supplied as an integer value, y  
 Result provided as an integer value, 11nn
 Methods Date>>y:m:d: and >>w created as duplicates 
 of year:month:day and weekdayIndex"
(12-(Date y:y m:11d:1)w)\\7+1122

รุ่นก่อนหน้า

เอาท์พุท 11nn

"Year supplied as an integer value, y  
 Result provided as an integer value, 11nn"
(12-(Date year:y month:11 day:1) weekdayIndex)\\7+1122

"Year supplied as an integer value, y  
 Result provided as an integer value, d, prefixed by 11"
d:=(12-(Date year:y month:11 day:1) weekdayIndex)\\7+1122

เอาต์พุตพฤศจิกายน nn

"Year supplied as an integer value, y  Result provided as a string, 'Nov nn'"
'Nov ', (12-(Date year:y month:11 day:1) weekdayIndex\\7+22) asString

เอาต์พุต nn

"Year supplied as an integer value, y  Result provided as an integer value, d"
d:=(12-(Date year:y month:11 day:1) weekdayIndex)\\7+22

nb นี้มีให้เป็นโปรแกรม - โดยเฉพาะการแสดงออกพื้นที่ทำงาน - มากกว่าเป็นวิธีการ

มันถือว่าการป้อนข้อมูลที่ได้รับ (ตามถ้อยคำ "ให้ปีขึ้นไปสี่หลัก"
รวมถึงการประกาศและการให้ของการป้อนข้อมูลจะเพิ่มอีก 11 ตัวอักษร:

|y|y:=2015.(12-(Date y:y m:11 d:1)w)\\7+1122

ขอบคุณ eMBee ที่แสดงวิธีการลบอักขระอีกหนึ่งตัว - ช่องว่างทันทีก่อนหน้า 'w'

ที่จริงแล้วนั่นเป็นแรงบันดาลใจให้ฉันลองลบช่องว่างออกก่อน 'd:': อัน
|y|y:=2015.(12-(Date y:y m:11d:1)w)\\7+1122
ไหนใช้ได้!

coreutils ของ GNU ขนาด 35 ไบต์

seq -f$1-11-2%g 2 8|date -f-|grep h

เพียงค้นหาสัปดาห์ 22-28 พฤศจิกายนสำหรับวันพฤหัสบดี เรียกใช้ในตำแหน่งที่ตั้ง C หรือ POSIX เนื่องจากฉันขึ้นอยู่กับวันพฤหัสบดีว่าเป็นตัวย่อของวันเดียวที่มี 'h'

นี่คือคำตอบที่ฉลาดกว่าแม้ว่าจะยาวกว่า:

echo Nov $((28-`date -d$1-5-5 +%w`))

เราดึงข้อมูลจำนวนวันในสัปดาห์ในสัปดาห์ที่กำหนดโดยพลการระหว่างเดือนมีนาคมถึงเดือนกันยายน (ดังนั้นวันและเดือนเป็นตัวเลขหนึ่งหลักและเราไม่ได้รับผลกระทบจากวันกระโดดที่เป็นไปได้) เราเลือกวันเพื่อให้เป็นวันอาทิตย์ ( %w==0) เมื่อวันขอบคุณพระเจ้าคือวันที่ 28 จากนั้นเราสามารถลบค่าดังกล่าวจาก 28 เพื่อให้ได้วันพฤหัสบดีที่เหมาะสม

TSQL, 53 52 ไบต์

DECLARE @ CHAR(4)=2000

PRINT DATEADD(d,59,DATEDIFF(d,1,DATEADD(m,9,@))/7*7)

ซอ

คำนวณวันจันทร์ก่อนหรือวันที่ 2 กันยายนและเพิ่ม 59 วัน

(ดีกว่าการคำนวณวันจันทร์ก่อนหรือวันที่ 4 ตุลาคมและเพิ่ม 31 วันเพราะตุลาคมเป็นเดือนที่ 10 ทำให้ประหยัด 1 ไบต์)

Perl, 92 ไบต์

use Time::Local;(localtime(timelocal 0,0,0,$_,10,$ARGV[0]))[6]==4?print "Nov $_":0for 22..28

แก้ไข: แก้ไขรูปแบบผลลัพธ์ข้อผิดพลาดคงที่เช่นผลปี 2555 ใช้รูปแบบ "สำหรับ" ที่สั้น ขอบคุณ msh210