fundo

Alguns feriados têm datas fixas e fáceis de lembrar, como 31 de outubro, 25 de dezembro, etc. Alguns, no entanto, querem ser problemáticos. Eles são especificados como "primeira segunda-feira de setembro" ou "quarta quinta-feira de novembro". Como vou saber quando é isso?

Tudo o que sei é que o Dia de Ação de Graças está se aproximando rapidamente, por isso preciso de um programa para me ajudar a descobrir quando é que está. Algumas pessoas até dizem que é amanhã , então seu programa precisa ser o mais curto possível para garantir que eu possa digitá-lo novamente a tempo.

O desafio

Crie um programa ou função que, com um ano de até quatro dígitos (por exemplo, 2015 ou 1984), produza ou retorne a data do Dia de Ação de Graças dos Estados Unidos naquele ano. O Dia de Ação de Graças é definido como a quarta quinta-feira de novembro, de acordo com a página da Wikipedia . (Dica: essa página também inclui algumas informações interessantes sobre o padrão de data.)

Entrada : um número decimal com no máximo quatro dígitos representando um ano na Era Comum (CE). Exemplos: 987, 1984, 2101

Saída : a data, incluindo mês e dia, em que o Dia de Ação de Graças cai, ou cairia se existisse naquele ano. Isso pode estar em qualquer formato razoável; use seu melhor julgamento. Use o calendário gregoriano em todos os casos, mesmo que não estivesse em uso no momento.

(Nota: lide com os anos bissextos corretamente!)

Casos de teste Entrada 1:

2015

Saída 1:

Nov 26

Entrada 2:

1917

Saída 2:

Nov 22

Pontuação

As submissões serão pontuadas em bytes . Eu recomendo este site para acompanhar sua contagem de bytes, embora você possa usar qualquer contador que desejar.

Bônus

-25% a sua pontuação, se você lidar com datas de AEC como números negativos (por exemplo, -480 seria o ano da batalha das Termópilas).

Entrada negativa do caso de teste:

-480

Saída correspondente:

Nov 25

Isso é código-golfe , então a pontuação mais baixa ganha!

Edit: Estou marcando o envio do TI-BASIC de Thomas Kwa como aceito. Não deixe isso desencorajar você a enviar novas entradas!

Classificação

Aqui está um snippet de pilha para gerar uma classificação regular e uma visão geral dos vencedores por idioma.

Para garantir que sua resposta seja exibida, inicie-a com um título, usando o seguinte modelo de remarcação:

# Language Name, N bytes

onde Nestá o tamanho do seu envio. Se você melhorar sua pontuação, poderá manter as pontuações antigas no título, identificando-as. Por exemplo:

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

Se você quiser incluir vários números em seu cabeçalho (por exemplo, porque sua pontuação é a soma de dois arquivos ou deseja listar as penalidades de sinalizador de intérprete separadamente), verifique se a pontuação real é o último número no cabeçalho:

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

Você também pode transformar o nome do idioma em um link que será exibido no snippet da tabela de classificação:

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

Testado na minha calculadora TI-84 +

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

O Dia de Ação de Graças é 29 de novembro, menos o dia da semana de 1º de setembro, onde 1 é domingo e 7 é sábado. Isso gera no formato MMDD.

Casos de teste: 2015-> 1126, 1917-> 1122, -480-> 1125foram verificados. O TI-BASIC parece usar o calendário gregoriano para todas as datas.

O TI-BASIC não suporta anos negativos, mas isso recebe o bônus porque adicionamos 10000 à entrada. Como o calendário gregoriano tem um período de 400 anos, isso não muda o dia da semana.

PHP, 65 48 42 41 36 (+2 para -F) = 38 bytes

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

Recebe entrada como o primeiro argumento da linha de comando. É executado com avisos que são aceitáveis ​​pelas nossas regras. Impressões NovDD, onde DDé o dia de Ação de Graças.

Nenhum link on-line porque o ideone não suporta argumentos de linha de comando e eu não conheço um intérprete on-line que suporte.

Agradeço a Alexander O'Mara por me ensinar um novo truque e por uma redução significativa

Mathematica, 59 38 bytes

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

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

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

Como a data "pode ​​estar em qualquer formato razoável", esta função é utilizada DD.MM. Eu escrevi uma resposta TeaScript com uma técnica diferente, mas essa fórmula foi mais curta.

Explicação

Como os meses são baseados em zero, new Date(a,10)retorna um Dateobjeto que representa 1 de novembro do ano especificado.

Como getDay()retorna um número que representa o dia da semana 0..6, queremos mapear a partir de

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  

depois adicione 22. Acontece que (11 - new Date(a,10).getDay()) % 7isso funcionará. Como apontou @Thomas Kwa , é o mesmo 28-new Date(a,8).getDay()que ocorre 28 menos o dia da semana de 1º de setembro.

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

Japt é uma versão abreviada do Ja vaScri pt .

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

Hahaha, encontrei um truque muito barato: o intérprete ignora quaisquer colchetes dentro de strings (usados ​​para inserir código) enquanto os descompacta, para que possamos compactar todo o código-fonte para salvar um byte>: D

Os dois ?s devem ser os unprintables Unicode U + 0098 e U + 0085, respectivamente. Experimente online!

Após a descompressão, o código avalia isso:

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

Qual avalia para:

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

O que fornece a saída adequada.

Utiliza a técnica do intrepidcoder , produzindo em formato dd.mm. Apoia adequadamente anos negativos. Sugestões são bem-vindas!

Edit: A partir de 2 de dezembro, agora você pode usar este código de 11 bytes (com pontuação de 8,25 pontos ):

28.11-ÐU8 e

(Eu gostaria de ter implementado isso mais cedo!)

Vitsy , 44 bytes

Eu estou calculando com pura matemática !

Golfe:

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

Ungolfed (moveu a chamada de método para a primeira linha para torná-la legível):

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

V Salve a entrada como uma variável final.
 e2 * Pressione 28 para a pilha.
    V Empurre a entrada para a pilha.
     2- Subtraia dois.
       V4 / D1M - Obter piso (entrada / 4).
              + Adicione ao total.
               Vaa * Dv / D1M - obtenha piso (entrada / 100) e economize 100 como uma temperatura
                                    variável no processo.
                          - Subtraia do total.
                           Vv4 * / D1M - Obter piso (entrada / 400).
                                    + Adicione ao total.
                                     Módulo 7M por sete.
                                       - Subtraia o resultado de 28.
                                        baa * / + Adicionar .11
                                              N Saída como número.

Provavelmente existe um algoritmo melhor para isso (e isso provavelmente é terrivelmente complicado), mas para aqueles que se perguntam, meu algoritmo vem daqui .

Experimente online!

_{Recebo pontos de bônus por calculá-lo e ter exatamente 42 bytes? Sonhos arruinados.}

Obrigado a @ Hosch250 por apontar que estava fazendo errado. : D Fixo.

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

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

Isso funciona com anos negativos da maneira especificada na pergunta, embora tenha chegado ao meu conhecimento que não há ano 0 no calendário gregoriano, portanto esse comportamento é um pouco suspeito.

JavaScript (ES6), 43,5

^{A contagem real de bytes é 58. O bônus de -25% se aplica => 58 * 0,75 = 43,5}

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

De maneira bem direta e boba , sem nenhuma solução ou cálculo complicado.

De-golfe (ES5) + demo:

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

t(prompt())

Observe que esse ano 0-100 produz 1900-2000 ano. No entanto, parece que 0-100 anos dão a mesma data que 1900-2000, a julgar pelas outras respostas.

Substituindo a+18por 22, porque é chamado apenas em "else" e "else" ocorre apenas se a não for maior nem menor que 4, ou seja, exatamente 4.

Substituindo a<4?26-a:a>4?a+21:22pora<=4?26-a:a+21

TeaScript, 35 33 24 bytes - 25% = 18

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

Esse é o mesmo método da minha resposta JavaScript , que usa a fórmula inteligente de Thomas Kwa .

Versão alternativa com explicação

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

Usa as classes Java Calendar e Scanner com sintaxe 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)

Editar: pequenos problemas de sintaxe, adicionados 14 bytes.

Veja também minha versão do Brainfuck .

Python, 83 81 78 bytes

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

• -2 bytes: adicionou um nome para importar (obrigado @ Κριτικσι Λίθος)
• -1 bytes: alterado para * import ** (obrigado @FryAmTheEggman)
• -2 bytes: alterado para repr para converter o dia (obrigado @willem)

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

Supõe que o ano seja mantido na célula A1, no formato Data. Retorna o número inteiro do dia de novembro em que o Dia de Ação de Graças é realizado.

Isso explica apenas os anos bissextos normais. Não explica o fato de que os anos 2100, 2200, 2300 não são bissextos.

Isso foi projetado apenas para trabalhar a partir de 1621 - ou seja, desde que o Dia de Ação de Graças começou a ser realizado. (Embora certamente funcione até 0 dC).

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

Pretty-impresso:

=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! Em vez de calcular com base no dia 1º de janeiro, e depois fazer muitos cálculos do ano bissexto para lidar com o dia 29 de fevereiro, eu deveria ter baseado os cálculos no dia 1º de novembro. Agora, isso agora lida corretamente com os anos 2100, 2200 e 2300 , mas torna a implementação dependente do formato de data padrão da instalação do Excel. Esta versão foi projetada para dd / mm / aaaa:

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

E agora que eu fiz o pfaffing para obter um cálculo conciso no Smalltalk, o backporting para o Excel resulta em:

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

(com o ano ainda em A1, mas como um número inteiro). Isso funciona até para os anos 2100, 2200 e 2300, para todas as datas a partir de 7700BC / E, usando o truque de repetição de datas de Thomas Kwa.

PowerShell, 67 64 84 72 58 45 Bytes

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

Tomamos nosso número inteiro de entrada como $ae imediatamente Novproduzimos uma nova linha. Em seguida, pegamos $ae anexamos com zeros e 1º de setembro com 00$a/9/1antes de gerar um novo datee determinar o DayOfWeekque é isso. Se 1º de setembro for no domingo ( .DayOfWeekigual a 0), o Dia de Ação de Graças será no dia 28. Se 1º de setembro for uma segunda-feira ( .DayOfWeekigual a 1), o Dia de Ação de Graças será no dia 27. E assim por diante. Assim, subtraímos esse dia da semana 28para produzir nossa resposta.

O prefixo com zeros duplos é responsável por anos de um e dois dígitos, sem interromper a análise por anos de três ou quatro dígitos. Não funciona para números negativos, pois o .NET datetimenão suporta anos menos que 0.

Agradecemos a TessellatingHeckler e Toby Speight pela assistência.

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

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

Isso usa a fórmula de Sakamoto para o dia da semana. Como há pessoas fazendo isso, a saída está na forma de dd-mm. Meu envio anterior pode ser encontrado abaixo:

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

TSQL, 478 296 bytes

Apenas por diversão. Normalmente, você teria uma tabela dimensional de data para tornar isso simples, select * from dimDate where [Year] = @Year and [Holiday] = 'Thanksgiving'mas na ausência disso ...

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

Pitão, 30 28 * 75% = 21 bytes

Tenho 100% de certeza de que isso poderia ser reduzido, mas, ei, é o meu primeiro programa Pyth! \ o /

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

Suíte de teste

Mostra a data em dd.mmformato.

Por favor, sugira maneiras de jogar isso se puder! Eu gostaria de aprender mais sobre Pyth.

Excel, 64 48.

Ano na A1

= DATA (A1,11, ESCOLHA (SEMANA (DATA (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",,,,.@

Execute esse intérprete .

Explicação: Um ano comum é 365 = 1 mod 7 dias, de modo que o ano mais todos os 4 ^th ano, menos a cada 100 ^th ( dano em ASCII), além de cada 400 ^th anos é responsável por quaisquer dias salto (incluindo o presente ano). O resultado :::4"d"*/\"d"/-\4/++pode ser pensado como 05 março ^th , o primeiro dia depois de fevereiro a cair no mesmo dia como o primeiro dia do ano em anos comuns. Depois que calibrar o padrão com 5+7%-subtraindo um número de dias da semana a partir do 28 ^º (a 47*armazenados anteriormente) de novembro. Então imprima.

Atualmente, uma versão corrigida para os anos BC é mais longa do que o bônus previsto, com 59 a 25% = 44,25 bytes:

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

Matlab, 78 bytes

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

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

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

58 bytes

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

60 bytes

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

Uso:

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

=> Nov 26

VBA, 124 bytes * 75% = 93 bytes

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

Não sei se os espaços contam, é algo entre 102 e 124, fique à vontade para editar.
Se números inteiros são uma saída válida, fico feliz em remover a Formatpeça.

PHP 5.3 ou superior, 59 bytes

Isso usa a função incorporada do PHP strtotime para analisar a data.

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

Isso espera que o valor seja passado sobre o parâmetro GET Y OU sobre php-cli Y=<year>.

Ele tenta encontrar a próxima quinta-feira após 19 de novembro.
Até agora, com os testes que fiz, funciona bem.

Esteja ciente de que os anos de 2 dígitos podem ser interpretados de maneira diferente.

Eu uso gmdatepara evitar problemas de fuso horário, mas funciona igualmente bem usando date(pelo menos onde eu moro).

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

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

que com este andaime de teste

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

produz conforme desejado

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

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

deixando o antigo para comparação porque acho mais inteligente em termos de tirar proveito do módulo Calendário, mas o acima é bem mais curto.

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 bytes

" Novnn ": 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

Versões prévias

Saída 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

Novnn 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

saída 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

NOTA: Isso é fornecido como um programa - especificamente uma expressão do Espaço de Trabalho - e não como um método.

Ele assume que a entrada é um dado (de acordo com o fraseado "dado um ano de até quatro dígitos".
Incluir a declaração e a doação da entrada adicionaria outros 11 caracteres:

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

Obrigado ao eMBee, por mostrar como remover mais um caractere - o espaço em branco imediatamente antes do 'w'.

Na verdade, isso me inspirou a tentar remover o espaço em branco antes de 'd:':
|y|y:=2015.(12-(Date y:y m:11d:1)w)\\7+1122
que funcionou!

Coreutils GNU, 35 bytes

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

Basta pesquisar na semana 22 e 28 de novembro uma quinta-feira. Execute-o em um código de idioma C ou POSIX, pois dependo que quinta-feira seja a única abreviação de dia para conter um 'h'.

Aqui está uma resposta mais inteligente, embora um byte mais longo:

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

Recuperamos o número do dia da semana de uma data em uma semana razoavelmente arbitrária entre março e setembro (portanto, dia e mês têm um dígito cada e não somos afetados por um possível dia bissexto). Escolhemos o dia para que seja domingo ( %w==0) quando o Dia de Ação de Graças é no dia 28. Podemos então subtrair esse valor de 28 para obter a quinta-feira apropriada.

TSQL, 53 52 bytes

DECLARE @ CHAR(4)=2000

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

Violino

Calculando segunda-feira antes ou 2 de setembro e adicionando 59 dias

(melhor do que calcular segunda-feira antes ou no dia 4 de outubro e adicionar 31 dias porque outubro é o 10º mês, economizando 1 byte)

Perl, 92 bytes

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

EDIT: Formato de saída fixo, bug corrigido, por exemplo, resultado de 2012, usado no formato "for" mais curto. Graças ao msh210.