Latar Belakang

Beberapa hari libur memiliki tanggal yang tetap dan mudah diingat, seperti 31 Oktober, 25 Desember, dll. Beberapa, bagaimanapun, ingin menyusahkan. Mereka ditentukan sebagai hal-hal seperti "Senin pertama pada bulan September" atau "Kamis keempat pada bulan November". Bagaimana saya bisa tahu kapan itu terjadi?

Yang saya tahu adalah bahwa Thanksgiving mendekat dengan cepat, jadi saya perlu program untuk membantu saya mencari tahu kapan itu. Beberapa orang bahkan mengatakan bahwa ini besok , jadi program Anda harus sesingkat mungkin untuk memastikan saya dapat mengetik ulang tepat waktu.

Tantangan

Buat program atau fungsi yang, diberi tahun hingga empat digit (misalnya 2015 atau 1984), menampilkan atau mengembalikan tanggal Thanksgiving Amerika Serikat pada tahun itu. Hari Thanksgiving didefinisikan sebagai hari Kamis keempat bulan November menurut halaman Wikipedia . (Petunjuk: halaman itu juga menyertakan beberapa informasi menarik tentang pola tanggal.)

Input : angka desimal dengan maksimum empat digit mewakili satu tahun di Common Era (CE). Contoh: 987, 1984, 2101

Keluaran : tanggal, termasuk bulan dan hari, di mana Thanksgiving jatuh, atau akan jatuh jika ada, di tahun itu. Ini mungkin dalam format yang wajar; gunakan penilaian terbaikmu. Gunakan Kalender Gregorian dalam semua kasus, meskipun itu tidak digunakan pada saat itu.

(Catatan: Pastikan untuk menangani tahun kabisat dengan benar!)

Masukan kasus input 1:

2015

Output 1:

Nov 26

Input 2:

1917

Output 2:

Nov 22

Mencetak gol

Pengajuan akan dicetak dalam byte . Saya merekomendasikan situs web ini untuk melacak jumlah byte Anda, meskipun Anda dapat menggunakan penghitung yang Anda suka.

Bonus

-25% dari skor Anda jika Anda menangani tanggal BCE sebagai angka negatif (misalnya -480 akan menjadi tahun pertempuran Thermopylae).

Masukan kasus tes negatif:

-480

Output yang sesuai:

Nov 25

Ini kode-golf , jadi skor terendah menang!

Sunting: Saya menandai pengajuan TI-BASIC Thomas Kwa sebagai diterima. Jangan biarkan ini menghalangi Anda untuk mengirimkan entri baru!

Papan peringkat

Berikut ini adalah Stack Snippet untuk menghasilkan leaderboard biasa dan gambaran umum pemenang berdasarkan bahasa.

Untuk memastikan bahwa jawaban Anda muncul, silakan mulai jawaban Anda dengan tajuk utama, menggunakan templat Penurunan harga berikut:

# Language Name, N bytes

di mana Nukuran kiriman Anda. Jika Anda meningkatkan skor Anda, Anda dapat menyimpan skor lama di headline, dengan mencoretnya. Contohnya:

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

Jika Anda ingin memasukkan beberapa angka dalam tajuk Anda (mis. Karena skor Anda adalah jumlah dari dua file atau Anda ingin membuat daftar hukuman penterjemah secara terpisah), pastikan bahwa skor sebenarnya adalah angka terakhir di tajuk:

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

Anda juga dapat membuat tautan nama bahasa yang kemudian akan muncul di cuplikan papan peringkat:

# [><>](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 byte * 0,75 = 11,25

Diuji pada kalkulator TI-84 + saya

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

Ucapan terima kasih adalah tanggal 29 November, dikurangi hari pada tanggal 1 September, di mana 1 adalah hari Minggu dan 7 adalah hari Sabtu. Ini menghasilkan dalam format MMDD.

Kasus uji: 2015-> 1126, 1917-> 1122, -480-> 1125telah diverifikasi. TI-BASIC tampaknya menggunakan kalender Gregorian untuk semua tanggal.

TI-BASIC tidak mendukung tahun negatif, tetapi ini mendapat bonus karena kami menambahkan 10.000 ke input. Karena kalender Gregorian memiliki periode 400 tahun, ini tidak mengubah hari dalam seminggu.

PHP, 65 48 42 41 36 (+2 untuk -F) = 38 byte

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

Mengambil input sebagai argumen baris perintah pertama. Dijalankan dengan peringatan, yang dapat diterima oleh aturan kami. Cetakan NovDD, di mana DDhari Thanksgiving.

Tidak ada tautan online karena ideone tidak mendukung argumen baris perintah dan saya tidak tahu ada penerjemah online yang mendukung.

Terima kasih kepada Alexander O'Mara karena mengajari saya trik baru, dan terutama untuk pengurangan yang signifikan

Mathematica, 59 38 byte

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

JavaScript (ES6), 42 40 31 byte - 25% = 23,25

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

Karena tanggal "mungkin dalam format yang masuk akal", fungsi ini digunakan DD.MM. Saya menulis jawaban TeaScript dengan teknik yang berbeda, tetapi rumus ini lebih pendek.

Penjelasan

Karena bulan berbasis nol, new Date(a,10)mengembalikan Dateobjek yang mewakili 1 November tahun yang ditentukan.

Karena getDay()mengembalikan angka yang mewakili hari dalam seminggu dari yang 0..6ingin kami petakan

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  

lalu tambahkan 22. Ternyata (11 - new Date(a,10).getDay()) % 7akan melakukan trik. Seperti @Thomas Kwa tunjukkan, ini sama dengan 28-new Date(a,8).getDay()yang 28 dikurangi hari minggu 1 September.

Japt , 43 37 36 35 29 byte - 25% = 21,75

Japt adalah versi singkat dari Ja vaScri pt .

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

Hahaha, saya menemukan trik yang benar - benar curang: penafsir mengabaikan tanda kurung di dalam string (digunakan untuk memasukkan kode) saat mendekompresinya, sehingga kita dapat mengompres seluruh kode sumber untuk menyimpan byte>: D

Keduanya ?haruslah Unicode unintables U + 0098 dan U + 0085, masing-masing. Cobalah online!

Setelah dekompresi, kode dievaluasi untuk ini:

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

Yang mengevaluasi ke:

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

Yang memberikan output yang tepat.

Menggunakan teknik intrepidcoder , menghasilkan dalam format dd.mm. Mendukung tahun-tahun negatif dengan benar. Saran diterima!

Sunting: Pada 2 Desember, Anda sekarang dapat menggunakan kode 11-byte ini (mencetak 8,25 poin ):

28.11-ÐU8 e

(Saya sangat berharap saya telah menerapkan ini lebih cepat!)

Vitsy , 44 byte

Saya menghitung dengan matematika murni !

Golf:

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

Tidak Digubah (memindahkan pemanggilan metode ke baris pertama agar dapat dibaca):

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

V Simpan input sebagai variabel akhir.
 e2 * Tekan 28 ke tumpukan.
    V Dorong input ke tumpukan.
     2- Kurangi dua.
       V4 / D1M- Dapatkan lantai (input / 4).
              + Tambahkan ke total.
               Vaa * Dv / D1M- Dapatkan lantai (input / 100), dan simpan 100 sebagai temp
                                    variabel dalam proses.
                          - Kurangi dari total.
                           Vv4 * / D1M- Dapatkan lantai (input / 400).
                                    + Tambahkan ke total.
                                     7M Modulo oleh tujuh.
                                       - Kurangi hasil dari 28.
                                        baa * / + Tambahkan .11
                                              N Output sebagai angka.

Mungkin ada algoritma yang lebih baik untuk ini (dan ini kemungkinannya adalah golf yang mengerikan), tetapi bagi mereka yang bertanya-tanya, algoritma saya berasal dari sini .

Cobalah online!

_{Apakah saya mendapatkan poin bonus untuk menghitungnya dan memiliki tepat 42 byte? Mimpi hancur.}

Terima kasih kepada @ Hosch250 untuk menunjukkan bahwa saya melakukan kesalahan. : D Diperbaiki.

Python, 38 * 0,75 = 28,5 byte

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

Ini bekerja dengan tahun-tahun negatif dengan cara yang ditentukan dalam pertanyaan, meskipun menarik perhatian saya bahwa tidak ada tahun 0 dalam kalender Gregorian sehingga perilaku ini agak mencurigakan.

JavaScript (ES6), 43.5

^{Hitungan byte aktual adalah 58. Bonus -25% berlaku => 58 * 0,75 = 43,5}

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

Cara yang cukup lurus dan konyol , tanpa penyelesaian atau perhitungan yang rumit.

De-golf (ES5) + demo:

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

t(prompt())

Perhatikan, bahwa memasuki tahun 0-100 menghasilkan 1900-2000 tahun. Padahal, sepertinya 0-100 tahun memberikan tanggal yang sama dengan 1900-2000, dilihat dari jawaban lainnya.

Mengganti a+18dengan 22, karena itu disebut hanya dalam "lain", dan "lain" hanya terjadi jika a tidak lebih besar atau kurang dari 4, yaitu tepat 4.

Mengganti a<4?26-a:a>4?a+21:22dengana<=4?26-a:a+21

TeaScript, 35 33 24 byte - 25% = 18

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

Ini adalah metode yang sama dengan jawaban JavaScript saya , yang menggunakan rumus pintar Thomas Kwa .

Versi Alternatif dengan Penjelasan

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 Bytes

Menggunakan kelas Kalender Java dan Pemindai dengan sintaksis 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)

Sunting: Masalah sintaksis minor, ditambahkan 14 byte.

Lihat juga versi Brainfuck .

Python, 83 81 78 byte

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

• -2 byte: menambahkan nama untuk diimpor (terima kasih @ Κριτικσι Λίθος)
• -1 byte: diubah menjadi * import ** (terima kasih @FryAmTheEggman)
• -2 byte: diubah menjadi repr untuk mengonversi hari (terima kasih @willem)

Excel, 367 154 53 - 25% = 39,75 byte

Asumsikan tahun diadakan di sel A1, dalam format Tanggal. Mengembalikan bilangan bulat hari pada bulan November di mana Thanksgiving diadakan.

Ini hanya menyumbang tahun kabisat normal. Itu tidak menjelaskan fakta bahwa tahun-tahun, 2100, 2200, 2300 bukan tahun kabisat.

Ini hanya dirancang untuk bekerja pada tahun 1621 dan seterusnya - yaitu sejak Thanksgiving mulai diadakan. (Meskipun pasti akan bekerja sepanjang jalan kembali ke 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"))))))

Cukup dicetak:

=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! Alih-alih menghitung berdasarkan tanggal 1 Januari, kemudian melakukan banyak perhitungan tahun kabisat untuk mengatasi tanggal 29 Februari, saya seharusnya mendasarkan perhitungan pada tanggal 1 November. Nb Ini sekarang berhubungan dengan tahun 2100, 2200 dan 2300 dengan benar. , tetapi membuat implementasinya tergantung pada format tanggal default instalasi Excel Anda. Versi ini dirancang untuk 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")))))

Dan sekarang setelah melakukan pfaffing untuk mendapatkan perhitungan singkat di Smalltalk, membuat backport ke Excel menghasilkan:

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

(dengan tahun masih di A1, tetapi sebagai bilangan bulat). Ini bekerja bahkan untuk tahun 2100, 2200 dan 2300, untuk semua tanggal dari 7700BC / E dan seterusnya, menggunakan trik pengulangan tanggal Thomas Kwa.

PowerShell, 67 64 84 72 58 45 Bytes

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

Kami mengambil integer input kami sebagai $a, dan segera mengeluarkan Novdan baris baru. Lalu kami mengambil $adan menambahkannya dengan nol dan 1 September dengan 00$a/9/1sebelum menghasilkan yang baru datedan menentukan apa DayOfWeekitu. Jika 1 September adalah pada hari Minggu ( .DayOfWeeksama dengan 0), Thanksgiving pada tanggal 28. Jika 1 September adalah pada hari Senin ( .DayOfWeeksama dengan 1), Thanksgiving pada tanggal 27. Dan seterusnya. Jadi, kita kurangi hari itu dalam seminggu 28untuk mengeluarkan jawaban kita.

Mempertahankan dengan nol ganda menyumbang tahun tunggal dan dua digit tanpa mengganggu penguraian selama tiga atau empat digit tahun. Tidak berfungsi untuk angka negatif, karena .NET datetimetidak mendukung tahun kurang dari 0.

Terima kasih kepada TessellatingHeckler dan Toby Speight untuk bantuannya.

Golfscript, 25 * 0,75 = 18,75 byte

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

Ini menggunakan rumus Sakamoto untuk hari dalam seminggu. Karena ada orang yang melakukan ini, hasilnya adalah dalam bentuk dd-mm. Kiriman saya sebelumnya dapat ditemukan di bawah:

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

TSQL, 478 296 byte

Hanya untuk bersenang-senang. Biasanya, Anda akan memiliki tabel dimensi tanggal untuk membuatnya menjadi sederhana select * from dimDate where [Year] = @Year and [Holiday] = 'Thanksgiving'namun tanpa adanya ...

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

Tidak Disatukan:

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 byte

Saya 100% positif bahwa ini bisa dibuat lebih pendek, tapi hei, ini program Pyth pertama saya! \Hai/

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

Suite uji

Keluaran tanggal dalam dd.mmformat.

Tolong sarankan cara untuk bermain golf ini jika Anda bisa! Saya ingin belajar lebih banyak tentang Pyth.

Unggul, 64 48

Tahun dalam A1

= DATE (A1,11, PILIH (WEEKDAY (DATE (A1,11,1)), 26,25,24,23,22,28,27))

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

Befunge, 41 Bytes

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

Jalankan penerjemah ini .

Penjelasan: Tahun biasa adalah 365 = 1 mod 7 hari, jadi tahun ditambah setiap tahun ^ke- 4 , minus setiap tahun ^ke- 100 ( ddalam ascii), ditambah setiap tahun ^ke- 400 menyumbang setiap hari kabisat (termasuk tahun ini). Hasil :::4"d"*/\"d"/-\4/++kemudian dapat dianggap sebagai 5 Mar ^th , hari pertama setelah Februari jatuh pada hari yang sama dengan hari pertama tahun di tahun yang sama. Setelah itu kita mengkalibrasi untuk pola dengan 5+7%-mengurangkan jumlah hari dalam seminggu dari 28 ^th (yang 47*disimpan sebelumnya) November. Lalu cetak.

Versi yang mengoreksi untuk BC tahun saat ini lebih lama dari yang diberikan bonus, pada 59 -25% = 44,25 byte:

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

Matlab, 78 byte

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

Ruby, 60 58 57 * 0,75 = 42,75 byte

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

58 byte

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

60 byte

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

Tidak Disatukan:

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

Pemakaian:

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

=> Nov 26

VBA, 124 byte * 75% = 93 byte

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

Saya tidak yakin jika spasi dihitung, ada di antara 102 dan 124, jangan ragu untuk mengedit.
Jika bilangan bulat adalah output yang valid, saya lebih dari senang untuk menghapus Formatbagian.

PHP 5.3+, 59 byte

Ini menggunakan fungsi PHP bawaan strtotimeuntuk mengurai tanggal.

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

Ini mengharapkan nilai yang akan melewati parameter GET Y ATAU lebih php-cli Y=<year>.

Mencoba untuk menemukan Kamis berikutnya setelah 19 November.
Sejauh ini, dengan tes yang saya buat, itu berfungsi dengan baik.

Sadarilah bahwa tahun 2 digit dapat ditafsirkan berbeda.

Saya menggunakan gmdateuntuk menghindari masalah zona waktu, tetapi berfungsi sama baiknya menggunakan date(setidaknya, tempat saya tinggal).

T-SQL 215 byte 248 * 0,75 = 186 byte

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

Tidak disatukan

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

yang dengan perancah tes ini

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

hasil yang diinginkan

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 byte - 25% = 57

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

meninggalkan yang lama untuk perbandingan karena saya merasa lebih pintar dalam hal memanfaatkan modul Kalender, tetapi cara di atas jauh lebih pendek.

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 - 25% = 24 byte

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

Versi sebelumnya

Output 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

Nov nn output

"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

dalam keluaran

"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 Ini disediakan sebagai program - khususnya ekspresi Workspace - bukan sebagai metode.

Diasumsikan input diberikan (sesuai dengan frasa "diberikan tahun hingga empat digit".
Termasuk menyatakan dan memberi input akan menambah 11 karakter lainnya:

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

Terima kasih kepada eMBee, karena menunjukkan cara menghapus satu karakter lagi - spasi putih sebelum tanda 'w'.

Sebenarnya, itu mengilhami saya untuk mencoba menghapus spasi putih sebelum 'd:':
|y|y:=2015.(12-(Date y:y m:11d:1)w)\\7+1122
Yang berhasil!

GNU coreutils, 35 byte

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

Cukup cari pada minggu 22-28 November untuk hari Kamis. Jalankan di C atau POSIX lokal, karena saya bergantung pada Kamis menjadi satu-satunya singkatan hari yang mengandung 'h'.

Inilah jawaban yang lebih pintar, meskipun satu byte lebih lama:

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

Kami mengambil nomor hari-minggu dari tanggal dalam minggu yang cukup sewenang-wenang antara Maret dan September (jadi hari dan bulan masing-masing satu digit, dan kami tidak terpengaruh oleh kemungkinan hari kabisat). Kami memilih hari sehingga hari Minggu ( %w==0) saat Thanksgiving tanggal 28. Kami kemudian dapat mengurangi nilai itu dari 28 untuk mendapatkan Kamis yang sesuai.

TSQL, 53 52 byte

DECLARE @ CHAR(4)=2000

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

Biola

Menghitung senin sebelum atau pada 2 september dan menambahkan 59 hari

(lebih baik daripada menghitung Senin sebelum atau pada 4 Oktober dan menambahkan 31 hari karena Oktober adalah bulan ke 10 sehingga menghemat 1 byte)

Perl, 92 byte

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

EDIT: Memperbaiki format output, memperbaiki bug misalnya hasil 2012, menggunakan format "untuk" yang lebih pendek. Berkat msh210.