Contexte

Certains jours fériés ont des dates fixes et faciles à retenir, comme le 31 octobre, le 25 décembre, etc. Certains veulent cependant être gênants. Ils sont spécifiés comme des choses comme "le premier lundi de septembre" ou "le quatrième jeudi de novembre". Comment suis-je supposé savoir quand c'est?

Tout ce que je sais, c'est que Thanksgiving approche à grands pas et j'ai donc besoin d'un programme pour m'aider à comprendre quand. Certaines personnes disent même que c'est demain , alors votre programme doit être aussi bref que possible pour que je puisse le retaper à temps.

Le défi

Créez un programme ou une fonction qui, pour une année comportant jusqu'à quatre chiffres (par exemple, 2015 ou 1984), affiche ou renvoie la date de Thanksgiving des États-Unis pour cette année. Thanksgiving est défini comme le quatrième jeudi de novembre selon la page Wikipedia . (Indice: cette page contient également des informations intéressantes sur le modèle de date.)

Entrée : un nombre décimal avec un maximum de quatre chiffres représentant une année à l'ère commune (CE). Exemples: 987, 1984, 2101

Sortie : la date, y compris le mois et le jour, à laquelle Thanksgiving tombe ou tomberait s'il existait cette année-là. Cela peut être dans n'importe quel format raisonnable; utilisez votre meilleur jugement. Utilisez le calendrier grégorien dans tous les cas, même s'il n'était pas utilisé à ce moment-là.

(Remarque: assurez-vous de bien gérer les années bissextiles!)

Cas de test Entrée 1:

2015

Sortie 1:

Nov 26

Entrée 2:

1917

Sortie 2:

Nov 22

Notation

Les soumissions seront notées en octets . Je recommande ce site Web pour garder une trace de votre nombre d'octets, bien que vous puissiez utiliser n'importe quel compteur.

Bonus

-25% de votre score si vous traitez les dates de BCE comme des nombres négatifs (par exemple, -480 serait l'année de la bataille de Thermopyles).

Entrée de test élémentaire négative:

-480

Sortie correspondante:

Nov 25

C'est du code-golf , donc le score le plus bas gagne!

Edit: Je marque la soumission TI-BASIC de Thomas Kwa comme acceptée. Ne laissez pas cela vous décourager de soumettre de nouvelles entrées!

Classements

Voici un extrait de pile permettant de générer un classement régulier et un aperçu des gagnants par langue.

Pour vous assurer que votre réponse apparaît, commencez votre réponse par un titre, en utilisant le modèle Markdown suivant:

# Language Name, N bytes

où Nest la taille de votre soumission. Si vous améliorez votre score, vous pouvez conserver les anciens scores en les effaçant. Par exemple:

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

Si vous souhaitez inclure plusieurs numéros dans votre en-tête (par exemple, parce que votre score est la somme de deux fichiers ou si vous souhaitez répertorier séparément les pénalités d'indicateur d'interprétation), assurez-vous que le score réel est le dernier numéro de l'en-tête:

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

Vous pouvez également faire du nom de la langue un lien qui apparaîtra ensuite dans l'extrait de classement:

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

Testé sur ma calculatrice TI-84 +

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

Les remerciements ont lieu le 29 novembre, moins le jour de la semaine du 1er septembre, où 1 est le dimanche et 7 le samedi. Cette sortie dans le format MMDD.

Les cas de test: 2015-> 1126, 1917-> 1122, -480-> 1125ont été vérifiés. TI-BASIC semble utiliser le calendrier grégorien pour toutes les dates.

TI-BASIC ne prend pas en charge les années négatives, mais cela donne un bonus car nous ajoutons 10000 à l’entrée. Comme le calendrier grégorien a une période de 400 ans, cela ne change pas le jour de la semaine.

PHP, 65 48 42 41 36 (+2 pour -F) = 38 octets

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

Prend l'entrée comme premier argument de ligne de commande. Fonctionne avec des avertissements, qui sont acceptables selon nos règles. Estampes NovDD, où DDest le jour de Thanksgiving.

Aucun lien en ligne, car ideone ne prend pas en charge les arguments de ligne de commande et je ne connais pas d'interprète en ligne capable de le faire.

Merci à Alexander O'Mara pour m'avoir appris un nouveau tour et surtout pour une réduction significative

Mathematica, 59 38 octets

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

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

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

Depuis la date "peut être dans n'importe quel format raisonnable", cette fonction utilise DD.MM. J'ai écrit une réponse TeaScript avec une technique différente, mais cette formule était plus courte.

Explication

Comme les mois sont à base zéro, new Date(a,10) retourne un Dateobjet représentant le 1er novembre de l'année spécifiée.

Depuis getDay()renvoie un nombre représentant le jour de la semaine à partir duquel 0..6nous voulons mapper

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  

puis ajoutez 22. Il se trouve que (11 - new Date(a,10).getDay()) % 7cela fera l'affaire. Comme @Thomas Kwa l’a fait remarquer, c’est la même chose que 28-new Date(a,8).getDay()28 moins le jour de la semaine du 1er septembre.

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

Japt est une version abrégée de Ja vaScri pt .

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

Hahaha, j'ai trouvé vraiment truc astucieux: l'interpréteur ignore les crochets dans les chaînes (utilisés pour insérer du code) tout en les décompressant afin de pouvoir compresser tout le code source pour sauvegarder un octet>: D

Les deux ?s devraient être les Unicode Unprintables U + 0098 et U + 0085, respectivement.Essayez-le en ligne!

Après décompression, le code se présente comme suit:

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

Ce qui évalue à:

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

Ce qui donne le bon résultat.

Utilise la technique d’intrépidcoder , sortie au format dd.mm. Prend correctement en charge les années négatives. Suggestions bienvenues!

Edit: À partir du 2 décembre, vous pouvez maintenant utiliser ce code de 11 octets (marquant 8,25 points ):

28.11-ÐU8 e

(J'aimerais tellement avoir implémenté cela plus tôt!)

Vitsy , 44 octets

Je calcule avec des mathématiques pures !

Golfé:

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

Ungolfed (a déplacé l'appel de méthode sur la première ligne pour le rendre lisible):

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

V Enregistrez l'entrée en tant que variable finale.
 e2 * Poussez 28 sur la pile.
    V Poussez l'entrée dans la pile.
     2- Soustraire deux.
       V4 / D1M - Obtenir le sol (entrée / 4).
              + Ajoutez-le au total.
               Vaa * Dv / D1M - Récupère le sol (entrée / 100) et économise 100 en tant que temp
                                    variable dans le processus.
                          - Soustrayez-le du total.
                           Vv4 * / D1M- Obtenir le sol (entrée / 400).
                                    + Ajoutez-le au total.
                                     7M Modulo par sept.
                                       - Soustrayez le résultat de 28.
                                        baa * / + Ajouter .11
                                              N Sortie sous forme de nombre.

Il y a probablement un meilleur algorithme pour cela (et c'est probablement horriblement joué au golf), mais pour ceux qui le demandent, mon algorithme vient d' ici .

Essayez-le en ligne!

_{Est-ce que je reçois des points bonus pour le calculer et avoir exactement 42 octets? Rêves ruinés.}

Merci à @ Hosch250 de m'avoir signalé que je me trompais. : D Fixé.

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

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

Cela fonctionne avec les années négatives de la manière spécifiée dans la question, bien que l’on ait attiré mon attention sur le fait qu’il n’ya pas d’année 0 dans le calendrier grégorien, ce comportement est donc un peu suspect.

JavaScript (ES6), 43,5

^{Le nombre réel d'octets est de 58. Le bonus de -25% s'applique => 58 * 0.75 = 43.5}

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

Assez droit et idiot comme cela pourrait être, sans solutions de contournement ou calculs compliqués.

De-golf (ES5) + démo:

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

t(prompt())

Notez que la nouvelle année 0-100 produit 1900-2000 ans. Cependant, il semble que 0-100 ans donnent la même date que 1900-2000, à en juger par les autres réponses.

Remplacer a+18par 22, car il est appelé uniquement dans "else", et "else" ne se produit que si a n'est ni supérieur ni inférieur à 4, c'est-à-dire exactement 4.

Remplacer a<4?26-a:a>4?a+21:22para<=4?26-a:a+21

TeaScript, 35 33 24 octets - 25% = 18

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

C'est la même méthode que ma réponse JavaScript , qui utilise la formule intelligente de Thomas Kwa .

Version alternative avec explication

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 octets

Utilise les classes Java Calendar et Scanner avec la syntaxe 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)

Edit: Problèmes de syntaxe mineurs, 14 octets ajoutés.

Voir aussi ma version de Brainfuck .

Python, 83 81 78 octets

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

• -2 octets: ajout d'un nom à importer (merci @ Κριτικσι Λίθος)
• -1 octets: remplacé par * import ** (merci @FryAmTheEggman)
• -2 octets: changé en repr pour convertir le jour (merci @willem)

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

Suppose que l'année est conservée dans la cellule A1, au format Date. Renvoie le nombre entier du jour de novembre où Thanksgiving est tenu.

Cela ne représente que les années bissextiles normales. Cela ne tient pas compte du fait que les années 2100, 2200 et 2300 ne sont pas des années bissextiles.

Ceci est uniquement conçu pour fonctionner à partir de 1621 - c'est-à-dire depuis le début de Thanksgiving. (Bien que cela fonctionne certainement jusqu’à 0 après JC).

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

Joliment imprimé:

=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! Au lieu de faire un calcul basé sur le 1er janvier, puis de faire beaucoup de calculs d'année bissextile pour tenir compte du 29 février, j'aurais dû me baser sur les calculs du 1er novembre , mais rend l’implémentation dépendante du format de date par défaut de votre installation Excel. Cette version est conçue pour jj / 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")))))

Et maintenant que j'ai fait le nécessaire pour obtenir un calcul concis en Smalltalk, il a été reporté dans Excel:

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

(avec l'année toujours en A1, mais sous forme d'entier). Cela fonctionne même pour les années 2100, 2200 et 2300, pour toutes les dates à partir de 7700BC / E, en utilisant le tour de répétition de date de Thomas Kwa.

PowerShell, 67 64 84 72 58 45 octets

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

Nous prenons notre entier d’entrée sous forme de $a, et produisons immédiatement Novune nouvelle ligne. Ensuite, nous prenons $aet nous y ajoutons des zéros et le 1er septembre avec 00$a/9/1avant de générer un nouveau dateet de déterminer ce DayOfWeekque c'est. Si le 1er septembre est un dimanche ( .DayOfWeekégal à 0), Thanksgiving est le 28. Si le 1er septembre est un lundi ( .DayOfWeekégal à 1), Thanksgiving est le 27. Etc. Ainsi, nous soustrayons ce jour de la semaine de 28pour sortir notre réponse.

La préparation à l'avance avec des zéros doubles correspond aux années à un ou deux chiffres sans interrompre l'analyse pour les années à trois ou quatre chiffres. Ne fonctionne pas pour les nombres négatifs, car .NET datetimene prend pas en charge les années inférieures à0 .

Merci à TessellatingHeckler et Toby Speight pour leur aide.

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

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

Ceci utilise la formule de Sakamoto pour le jour de la semaine. Comme il y a des gens qui font ça, le résultat est sous la forme dd-mm. Ma soumission précédente peut être trouvée ci-dessous:

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

TSQL, 478 296 octets

Juste pour les funsies. En règle générale, vous auriez un tableau dimensionnel de date pour simplifier, select * from dimDate where [Year] = @Year and [Holiday] = 'Thanksgiving'mais en l’absence de cela ...

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 octets

Je suis sûr à 100% que cela pourrait être raccourci, mais bon, c'est mon premier programme Pyth! \ o /

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

Suite de tests

Affiche la date au dd.mmformat.

S'il vous plaît, suggérez des façons de jouer au golf si vous le pouvez! J'aimerais en savoir plus sur Pyth.

Exceller, 64 48

Année en A1

= DATE (A1,11, CHOISIR (JOUR DE LA SEMAINE (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 octets

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

Courez sur cet interprète .

Explication: Une année courante est 365 = 1 mod 7 jours, donc l'année plus tous les 4 ^e année, moins tous les 100 ^e ( den ascii) année, plus tous les 400 ^e années représente les jours bissextiles (y compris l'année actuelle). Le résultat de :::4"d"*/\"d"/-\4/++peut alors être pensé que 5 Mars ^e , le premier jour après Février tombe le même jour que le premier jour de l'année dans les années communes. Après que nous calibrons au modèle avec la 5+7%-soustraction d' un nombre de jours de la semaine du 28 ^e (le 47*stocké précédemment) Novembre. Puis imprimez.

Une version corrigée pour les années BC est actuellement plus longue que le bonus prévu, à 59 -25% = 44.25 octets:

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

Matlab, 78 octets

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

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

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

58 octets

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

60 octets

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

Usage:

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

=> Nov 26

VBA, 124 octets * 75% = 93 octets

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

Je ne sais pas si les espaces comptent, c'est entre 102 et 124, n'hésitez pas à le modifier.
Si les entiers sont une sortie valide, je suis ravi de supprimer la Formatpartie.

PHP 5.3+, 59 octets

Cela utilise la fonction PHP intégrée strtotimepour analyser la date.

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

Cela suppose que la valeur soit transmise au paramètre GET Y OU à php-cli Y=<year>.

Il essaie de trouver le prochain jeudi après le 19 novembre.
Jusqu'ici, avec les tests que j'ai faits, cela fonctionne bien.

Sachez que les années à deux chiffres peuvent être interprétées différemment.

J'utilise gmdatepour éviter les problèmes de fuseau horaire, mais cela fonctionne aussi bien en utilisant date(du moins, là où je vis).

T-SQL 215 octets 248 * 0.75 = 186 octets

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

qui avec cet échafaudage de test

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

rendements comme souhaité

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

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

laisser l'ancien pour la comparaison parce que je le trouve plus intelligent en termes de tirer parti du module Calendrier, mais ce qui précède est beaucoup plus court.

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

Smalltalk - Squeak et Pharo , 69 57 54 49 35 34 33 32 à 25% = 24 octets

"Nov. N": 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

Versions précédentes

11nn sortie

"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

Sortie novembre

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

"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 Ceci est fourni en tant que programme - en particulier une expression d'espace de travail - plutôt qu'en tant que méthode.

Il suppose que la saisie est une donnée (comme indiqué dans la formulation "étant donné une année comportant jusqu'à quatre chiffres". L'
inclusion de la déclaration et la saisie de la saisie ajouteraient 11 autres caractères:

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

Merci à eMBee pour avoir montré comment supprimer encore un caractère: les espaces immédiatement avant le "w".

En fait, cela m'a inspiré pour essayer de supprimer les espaces avant "d:":
|y|y:=2015.(12-(Date y:y m:11d:1)w)\\7+1122
qui a fonctionné!

GNU coreutils, 35 bytes

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

Il suffit de chercher un jeudi dans la semaine du 22 au 28 novembre. Exécutez-le dans les paramètres régionaux C ou POSIX, étant donné que jeudi est la seule abréviation du jour contenant un «h».

Voici une réponse plus intelligente, mais un octet plus long:

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

Nous récupérons le numéro du jour de la semaine d'une date dans une semaine assez arbitraire entre mars et septembre (le jour et le mois ont donc un chiffre chacun et nous ne sommes pas affectés par un jour bissextile possible). Nous choisissons le jour pour qu’il soit un dimanche ( %w==0) lorsque Thanksgiving aura lieu le 28. Nous pouvons ensuite soustraire cette valeur de 28 pour obtenir le jeudi approprié.

TSQL, 53 52 octets

DECLARE @ CHAR(4)=2000

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

Violon

Calculant le lundi avant ou le 2 septembre et ajoutant 59 jours

(mieux que de calculer le lundi avant ou le 4 octobre et d’ajouter 31 jours car octobre est le 10ème mois et économiser 1 octet)

Perl, 92 octets

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

EDIT: format de sortie fixe, bug corrigé, par exemple résultat 2012, utilisé "pour" format plus court. Merci à msh210.