tło

Niektóre święta mają ustalone, łatwe do zapamiętania daty, takie jak 31 października, 25 grudnia itp. Niektóre jednak chcą być kłopotliwe. Są one określane jako „pierwszy poniedziałek września” lub „czwarty czwartek listopada”. Skąd mam wiedzieć, kiedy to jest?

Wiem tylko, że Święto Dziękczynienia zbliża się bardzo szybko, dlatego potrzebuję programu, który pomoże mi ustalić, kiedy to nastąpi. Niektórzy nawet twierdzą, że jest jutro , więc twój program musi być jak najkrótszy, aby upewnić się, że mogę go ponownie wpisać na czas.

Wyzwanie

Utwórz program lub funkcję, która, biorąc pod uwagę maksymalnie czterocyfrowy rok (np. 2015 lub 1984), wyświetla lub zwraca datę Święta Dziękczynienia Stanów Zjednoczonych w tym roku. Święto Dziękczynienia jest zdefiniowane jako czwarty czwartek listopada według strony Wikipedii . (Wskazówka: ta strona zawiera także kilka interesujących informacji na temat wzorca daty).

Wprowadzanie : liczba dziesiętna z maksymalnie czterema cyframi reprezentującymi rok w erze wspólnej (CE). Przykłady: 987, 1984, 2101

Wyjście : data, w tym miesiąc i dzień, w którym przypada Święto Dziękczynienia, lub spadłoby, gdyby istniało, w tym roku. Może to być dowolny rozsądny format; użyj najlepszej oceny. Korzystaj z kalendarza gregoriańskiego we wszystkich przypadkach, nawet jeśli w tym czasie nie był używany.

(Uwaga: pamiętaj, aby poprawnie obchodzić lata przestępne!)

Przypadki testowe Wejście 1:

2015

Wyjście 1:

Nov 26

Wejście 2:

1917

Wyjście 2:

Nov 22

Punktacja

Zgłoszenia będą oceniane w bajtach . Polecam tę stronę do śledzenia liczby bajtów, chociaż możesz użyć dowolnego licznika, który ci się podoba.

Bonusy

-25% do twojego wyniku, jeśli traktujesz daty BCE jako liczby ujemne (np. -480 byłby rokiem bitwy pod Termopilami).

Wprowadzanie negatywnych przypadków testowych:

-480

Odpowiednia wydajność:

Nov 25

To jest golf golfowy , więc wygrywa najniższy wynik!

Edycja: Oznaczam zgłoszenie TI-BASIC Thomasa Kwa jako zaakceptowane. Nie zniechęcaj Cię do przesyłania nowych wpisów!

Liderów

Oto fragment kodu, który pozwala wygenerować zarówno zwykłą tabelę wyników, jak i przegląd zwycięzców według języka.

Aby upewnić się, że twoja odpowiedź się pojawi, zacznij od nagłówka, korzystając z następującego szablonu Markdown:

# Language Name, N bytes

gdzie Njest rozmiar twojego zgłoszenia. Jeśli poprawić swój wynik, to może zachować stare porachunki w nagłówku, uderzając je przez. Na przykład:

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

Jeśli chcesz umieścić w nagłówku wiele liczb (np. Ponieważ twój wynik jest sumą dwóch plików lub chcesz osobno wymienić kary za flagi tłumacza), upewnij się, że rzeczywisty wynik jest ostatnią liczbą w nagłówku:

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

Możesz także ustawić nazwę języka jako link, który pojawi się we fragmencie tabeli wyników:

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

Testowany na moim kalkulatorze TI-84 +

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

Święto Dziękczynienia przypada na 29 listopada minus dzień tygodnia 1 września, gdzie 1 to niedziela, a 7 to sobota. Dane wyjściowe są w formacie MMDD.

Przypadki testowe: 2015-> 1126, 1917-> 1122, -480-> 1125zostały zweryfikowane. Wydaje się, że TI-BASIC używa kalendarza gregoriańskiego dla wszystkich dat.

TI-BASIC nie obsługuje lat ujemnych, ale dostaje to bonus, ponieważ dodajemy 10000 do nakładów. Ponieważ kalendarz gregoriański ma okres 400 lat, nie zmienia to dnia tygodnia.

PHP, 65 48 42 41 36 (+2 dla -F) = 38 bajtów

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

Pobiera dane wejściowe jako pierwszy argument wiersza poleceń. Działa z ostrzeżeniami, które są akceptowane przez nasze zasady. Odbitki NovDD, gdzie DDjest dzień Dziękczynienia.

Brak linku online, ponieważ ideone nie obsługuje argumentów wiersza poleceń i nie znam takiego interpretera.

Dzięki Alexander O'Mara za nauczenie mnie nowej sztuczki i primo za znaczną redukcję

Mathematica, 59 38 bajtów

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

JavaScript (ES6), 42 40 31 bajtów - 25% = 23,25

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

Ponieważ data „może mieć dowolny rozsądny format”, funkcja ta używa DD.MM. Napisałem odpowiedź na TeaScript inną techniką, ale ta formuła była krótsza.

Wyjaśnienie

Ponieważ miesiące liczone są od zera, new Date(a,10)zwraca Dateobiekt reprezentujący 1 listopada określonego roku.

Ponieważ getDay()zwraca liczbę reprezentującą dzień tygodnia, od 0..6którego chcemy mapować

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  

następnie dodaj 22. Okazuje się, że (11 - new Date(a,10).getDay()) % 7to załatwi sprawę. Jak zauważył Thomas Kwa , jest to to samo, 28-new Date(a,8).getDay()co 28 minus dzień tygodnia 1 września.

Japt , 43 37 36 35 29 bajtów - 25% = 21,75

Japt to skrócona wersja Ja vaScri pt .

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

Hahaha, znalazłem naprawdę podstępną sztuczkę: interpreter ignoruje nawiasy wewnątrz ciągów (używanych do wstawiania kodu) podczas ich dekompresji, dzięki czemu możemy skompresować cały kod źródłowy, aby zapisać bajt>: D

Te dwa ?znaki powinny być, odpowiednio, niedrukowalnymi kodami U + 0098 i U + 0085 w Unicode. Wypróbuj online!

Po dekompresji kod ocenia to:

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

Co ocenia:

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

Co daje odpowiednią wydajność.

Używa techniki intrepidcodera , wyświetlając dane w formacie dd.mm. Właściwie obsługuje lata ujemne. Sugestie mile widziane!

Edycja: Od 2 grudnia możesz teraz używać tego 11-bajtowego kodu (zdobywając 8,25 punktu ):

28.11-ÐU8 e

(Szkoda, że ​​nie wdrożyłem tego wcześniej!)

Vitsy , 44 bajty

Obliczam z czystą matematyką !

Gra w golfa:

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

Ungolfed (przeniesiono wywołanie metody do pierwszego wiersza, aby było czytelne):

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

V Zapisz dane wejściowe jako zmienną końcową.
 e2 * Naciśnij 28 na stos.
    V Wciśnij wejście na stos.
     2- Odejmij dwa.
       V4 / D1M - Uzyskaj podłogę (wejście / 4).
              + Dodaj to do sumy.
               Vaa * Dv / D1M - Uzyskaj podłogę (wejście / 100) i zapisz 100 jako temp
                                    zmienna w procesie.
                          - Odejmij to od sumy.
                           Vv4 * / D1M- Uzyskaj podłogę (wejście / 400).
                                    + Dodaj to do sumy.
                                     7M Modulo o siedem.
                                       - Odejmij wynik od 28.
                                        baa * / + Dodaj .11
                                              N Wyjście jako liczba.

Prawdopodobnie jest na to lepszy algorytm (i to prawdopodobnie strasznie gra w golfa), ale dla tych, którzy zastanawiają się, mój algorytm pochodzi stąd .

Wypróbuj online!

_{Czy dostaję punkty bonusowe za ich obliczenie i posiadanie dokładnie 42 bajtów? Zniszczone marzenia.}

Dzięki @ Hosch250 za wskazanie, że robiłem to źle. : D Naprawiono.

Python, 38 * 0,75 = 28,5 bajtów

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

Działa to z ujemnymi latami w sposób określony w pytaniu, chociaż zwróciłem uwagę, że w kalendarzu gregoriańskim nie ma roku 0, więc takie zachowanie jest nieco podejrzane.

JavaScript (ES6), 43.5

^{Rzeczywista liczba bajtów wynosi 58. Obowiązuje premia w wysokości -25% => 58 * 0,75 = 43,5}

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

Całkiem prosto i głupio, jak to możliwe, bez żadnych skomplikowanych obejść ani obliczeń.

De-golf (ES5) + wersja demo:

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

t(prompt())

Uwaga: wprowadzenie roku 0-100 daje 1900-2000 lat. Chociaż wygląda na to, że 0-100 lat podaje tę samą datę co 1900-2000, sądząc po innych odpowiedziach.

Wymiana a+18z 22, ponieważ jest wywoływana tylko w „inny” i „inny” występuje tylko wtedy, gdy nie jest ani większa, ani mniejsza niż 4, to znaczy dokładnie 4.

Zastępuje a<4?26-a:a>4?a+21:22sięa<=4?26-a:a+21

TeaScript, 35 33 24 bajty - 25% = 18

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

Jest to ta sama metoda, co moja odpowiedź JavaScript , która wykorzystuje sprytną formułę Thomasa Kwa .

Wersja alternatywna z objaśnieniem

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 bajtów

Korzysta z klas kalendarza i skanera Java ze składnią 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)

Edycja: drobne problemy ze składnią, dodano 14 bajtów.

Zobacz także moją wersję Brainfuck .

Python, 83 81 78 bajtów

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

• -2 bajty: dodano nazwę do zaimportowania (dzięki @ Κριτικσι Λίθος)
• -1 bajtów: zmieniono na * import ** (dzięki @FryAmTheEggman)
• -2 bajty: zmieniono na repr, aby przekonwertować dzień (dzięki @willem)

Excel, 367 154 53 - 25% = 39,75 bajtów

Zakłada, że ​​rok jest przechowywany w komórce A1 w formacie daty. Zwraca liczbę całkowitą dnia w listopadzie, w którym odbywa się Święto Dziękczynienia.

To tylko normalne lata przestępne. Nie uwzględnia to faktu, że lata 2100, 2200, 2300 nie są latami przestępnymi.

Jest to przeznaczone tylko do pracy w 1621 roku - tj. Od początku Święta Dziękczynienia. (Chociaż z pewnością będzie działać aż do 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"))))))

Dość wydrukowane:

=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! Zamiast wykonywać obliczenia na podstawie 1 stycznia, a następnie wykonywać wiele obliczeń roku przestępnego, aby poradzić sobie z 29 lutego, powinienem był oprzeć obliczenia na 1 listopada. Nb To dotyczy teraz poprawnie lat 2100, 2200 i 2300 , ale uzależnia implementację od domyślnego formatu daty instalacji programu Excel. Ta wersja jest przeznaczona dla dd / mm / rrrr:

 =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")))))

A teraz, kiedy zrobiłem pfaffing, aby uzyskać zwięzłe obliczenia w Smalltalk, przeniesienie go do Excela powoduje:

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

(z rokiem wciąż w A1, ale jako liczba całkowita). Działa to nawet w latach 2100, 2200 i 2300, dla wszystkich dat od 7700BC / E, przy użyciu sztuczki polegającej na powtarzaniu dat przez Thomasa Kwa.

PowerShell, 67 64 84 72 58 45 bajtów

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

Bierzemy naszą całkowitą liczbę wejściową jako $a, i natychmiast wypisujemy Novi nową linię. Następnie bierzemy $ai poprzedzamy go zerami i 1 września 00$a/9/1przed wygenerowaniem nowego datei ustaleniem, co DayOfWeekto jest. Jeśli 1 września przypada w niedzielę ( .DayOfWeekrówna się 0), Święto Dziękczynienia przypada na 28. Jeśli 1 września przypada w poniedziałek ( .DayOfWeekrówny 1), Święto Dziękczynienia przypada na 27. I tak dalej. Dlatego odejmujemy ten dzień tygodnia od, 28aby uzyskać odpowiedź.

Przygotowywanie kont z podwójnymi zerami dla lat jedno- i dwucyfrowych bez przerywania parsowania przez trzy- lub czterocyfrowe lata. Nie działa dla liczb ujemnych, ponieważ .NET datetimenie obsługuje lat mniej niż 0.

Dzięki TessellatingHeckler i Toby Speight za pomoc w tym zakresie.

Skrypt golfowy, 25 * 0,75 = 18,75 bajtów

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

To używa formuły Sakamoto na dzień tygodnia. Ponieważ są ludzie, którzy to robią, dane wyjściowe mają postać dd-mm. Moje poprzednie zgłoszenie można znaleźć poniżej:

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

TSQL, 478 296 bajtów

Tylko dla miłośników. Zwykle masz tabelę wymiarów daty, aby uczynić to prostym, select * from dimDate where [Year] = @Year and [Holiday] = 'Thanksgiving'ale bez tego ...

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

Nie golfowany:

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 bajtów

Jestem w 100% przekonany, że można to skrócić, ale hej, to mój pierwszy program w języku Pyth! \ o /

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

Zestaw testowy

Wyświetla datę w dd.mmformacie.

Proszę zaproponować sposoby golfowym, jeśli potrafisz! Chciałbym dowiedzieć się więcej o Pyth.

Przewyższać, 64 48

Rok w A1

= DATA (A1,11, WYBIERZ (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 bajtów

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

Uruchom tego tłumacza .

Objaśnienie: Wspólne roku jest 365 = 1 mod 7 dni, więc w roku oraz co 4 ^-tego roku minus każde 100 ^th ( dw ASCII) lat, plus co 400 ^TH roku rachunki za wszystkie dni przestępnych (w tym obecnego roku). Efektem :::4"d"*/\"d"/-\4/++może następnie być traktowane jako March 5 ^th , pierwszego dnia po lutym spadnie na tego samego dnia jako pierwszy dzień roku we wspólnych lat. Po tym możemy skalibrować do wzoru z 5+7%-odejmując liczbę dni w tygodniu od 28 ^th (The 47*zapisanej wcześniej) listopada. Następnie wydrukuj.

Wersja korygująca dla lat pne jest obecnie dłuższa niż przewiduje premia, przy 59 -25% = 44,25 bajtów:

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

Matlab, 78 bajtów

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

Rubinowy, 60 58 57 * 0,75 = 42,75 bajtów

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

58 bajtów

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

60 bajtów

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

Nie golfowany:

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

Stosowanie:

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

=> Nov 26

VBA, 124 bajty * 75% = 93 bajty

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

Nie jestem pewien, czy spacje się liczą, jest to gdzieś pomiędzy 102 a 124, możesz je edytować.
Jeśli liczby całkowite są prawidłowym wyjściem, jestem więcej niż szczęśliwy, że mogę usunąć tę Formatczęść.

PHP 5.3+, 59 bajtów

Używa wbudowanej funkcji PHP strtotimedo analizowania daty.

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

Oczekuje się, że wartość zostanie przekazana przez parametr GET Y LUB powyżej php-cli Y=<year>.

Próbuje znaleźć następny czwartek po 19 listopada.
Do tej pory dzięki testom, które przeprowadziłem, działa dobrze.

Pamiętaj, że dwucyfrowe lata mogą być interpretowane inaczej.

Używam, gmdateaby uniknąć problemów ze strefą czasową, ale działa równie dobrze, używając date(przynajmniej tam, gdzie mieszkam).

T-SQL 215 bajtów 248 * 0,75 = 186 bajtów

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

Bez golfa

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

które z tym rusztowaniem testowym

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

plony zgodnie z życzeniem

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

Szczupak , 87 91 107 77 76 bajtów - 25% = 57

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

pozostawiając stary do porównania, ponieważ uważam, że jest bardziej sprytny, jeśli chodzi o korzystanie z modułu Kalendarza, ale powyższe jest znacznie krótsze.

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 bajty

„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

Poprzednie wersje

Wyjście 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

Wyjście Nov 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

wyjście 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 Jest to dostarczane jako program - w szczególności wyrażenie Workspace - a nie jako metoda.

Zakłada się, że dane wejściowe są dane (zgodnie z frazą „podany maksymalnie czterocyfrowy rok”.
Włączenie deklaracji i podania danych wejściowych dodałoby kolejnych 11 znaków:

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

Dzięki eMBee za pokazanie, jak usunąć jeszcze jeden znak - spację bezpośrednio przed „w”.

W rzeczywistości zainspirowało mnie to do usunięcia spacji przed „d:”:
|y|y:=2015.(12-(Date y:y m:11d:1)w)\\7+1122
Które działało!

Coreutils GNU, 35 bajtów

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

Po prostu przeszukuje tydzień 22-28 listopada w czwartek. Uruchom go w lokalizacji C lub POSIX, ponieważ zależę od tego, że czwartek to jedyny skrót dnia zawierający „h”.

Oto mądrzejsza odpowiedź, choć bajt dłuższy:

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

Pobieramy numer dnia tygodnia w dość arbitralnym tygodniu między marcem a wrześniem (więc dzień i miesiąc są jednocyfrowe, a ewentualny dzień przestępny nie ma na nas wpływu). Wybieramy dzień tak, aby była to niedziela ( %w==0), kiedy Święto Dziękczynienia przypada 28. Następnie możemy odjąć tę wartość od 28, aby uzyskać odpowiedni czwartek.

TSQL, 53 52 bajty

DECLARE @ CHAR(4)=2000

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

Skrzypce

Obliczanie poniedziałku przed lub w dniu 2 września i dodanie 59 dni

(lepsze niż obliczanie poniedziałku przed lub w dniu 4 października i dodawanie 31 dni, ponieważ październik jest 10. miesiącem, oszczędzając w ten sposób 1 bajt)

Perl, 92 bajty

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

EDYCJA: Naprawiono format wyjściowy, naprawiono błąd, np. Wynik 2012, zastosowano krótszy format „do”. Dzięki msh210.