Задний план

Некоторые праздники имеют фиксированные, легко запоминающиеся даты, такие как 31 октября, 25 декабря и т. Д. Некоторые, однако, хотят быть хлопотными. Они указаны как «первый понедельник сентября» или «четвертый четверг ноября». Как я должен знать, когда это будет?

Все, что я знаю, это то, что День Благодарения быстро приближается, поэтому мне нужна программа, которая поможет мне понять, когда это произойдет. Некоторые люди даже говорят, что это завтра , поэтому ваша программа должна быть максимально короткой, чтобы быть уверенной, что я смогу ее повторно напечатать вовремя.

Соревнование

Создайте программу или функцию, которая, учитывая год до четырех цифр (например, 2015 или 1984), выводит или возвращает дату Дня Благодарения Соединенных Штатов в этом году. День благодарения определяется как четвертый четверг ноября в соответствии со страницей Википедии . (Подсказка: эта страница также содержит некоторую интересную информацию о шаблоне даты.)

Ввод : десятичное число с максимум четырьмя цифрами, представляющее год в эпоху правления (CE). Примеры: 987, 1984, 2101

Вывод : дата, включая месяц и день, в который падает или будет падать День благодарения, если он существовал в этом году. Это может быть в любом разумном формате; Используйте свое лучшее суждение. Используйте Григорианский календарь во всех случаях, даже если он не использовался в то время.

(Примечание: убедитесь, что вы правильно обрабатываете високосные годы!)

Контрольные примеры Вход 1:

2015

Выход 1:

Nov 26

Вход 2:

1917

Выход 2:

Nov 22

счет

Материалы будут оцениваться в байтах . Я рекомендую этот сайт, чтобы отслеживать количество байтов, хотя вы можете использовать любой счетчик, который вам нравится.

Бонусы

-25% к вашему счету, если вы обрабатываете даты BCE как отрицательные числа (например, -480 будет годом битвы при Фермопилах).

Отрицательный ввод контрольного примера:

-480

Соответствующий вывод:

Nov 25

Это код-гольф , поэтому выигрывает самый низкий балл!

Редактировать: я отмечаю представление TI-BASIC Томаса Ква как принятое. Не позволяйте этому отговорить вас от подачи новых записей!

Leaderboards

Вот фрагмент стека, который генерирует как регулярную таблицу лидеров, так и обзор победителей по языкам.

Чтобы убедиться, что ваш ответ обнаружен, начните его с заголовка, используя следующий шаблон уценки:

# Language Name, N bytes

где Nразмер вашего представления. Если вы улучшите свой счет, вы можете сохранить старые результаты в заголовке, вычеркнув их. Например:

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

Если вы хотите включить в заголовок несколько чисел (например, потому что ваш результат равен сумме двух файлов или вы хотите перечислить штрафы за флаг интерпретатора отдельно), убедитесь, что фактический результат является последним числом в заголовке:

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

Вы также можете сделать название языка ссылкой, которая затем будет отображаться во фрагменте списка лидеров:

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

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

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

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

TI-BASIC, 15 байтов * 0,75 = 11,25

Проверено на моем калькуляторе TI-84 +

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

День благодарения - 29 ноября, минус день недели 1 сентября, где 1 - воскресенье, а 7 - суббота. Это выводит в формате MMDD.

Контрольные примеры: 2015-> 1126, 1917-> 1122, -480-> 1125были проверены. TI-BASIC, кажется, использует григорианский календарь для всех дат.

TI-BASIC не поддерживает отрицательные годы, но получает бонус, потому что мы добавляем 10000 к входу. Поскольку григорианский календарь имеет период 400 лет, это не меняет день недели.

PHP, 65 48 42 41 36 (+2 для -F) = 38 байт

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

Принимает ввод в качестве первого аргумента командной строки. Работает с предупреждениями, которые приемлемы по нашим правилам. Отпечатки NovDD, где DDдень благодарения.

Нет онлайн-ссылки, потому что ideone не поддерживает аргументы командной строки, и я не знаю онлайн-переводчика, который это делает.

Спасибо Александру О'Мара за то, что он научил меня новому трюку, и primo за значительное сокращение

Mathematica, 59 38 байт

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

JavaScript (ES6), 42 40 31 байт - 25% = 23,25

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

Поскольку дата «может быть в любом разумном формате», эта функция использует DD.MM. Я написал ответ TeaScript с другой техникой, но эта формула была короче.

объяснение

Поскольку месяцы начинаются с нуля, new Date(a,10)возвращает Dateобъект, представляющий 1 ноября указанного года.

Так как getDay()возвращает число, представляющее день недели, из которого 0..6мы хотим отобразить

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

затем добавьте 22. Получается, что (11 - new Date(a,10).getDay()) % 7добьется цели. Как отметил @Thomas Kwa , это то же самое, 28-new Date(a,8).getDay()что и 28 минус день недели 1 сентября.

Japt , 43 37 36 35 29 байт - 25% = 21,75

Japt - это сокращенная версия Ja vaScri pt .

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

Хахаха, я нашел действительно обманчивый трюк: интерпретатор игнорирует любые скобки внутри строк (используемые для вставки кода) при их распаковке, поэтому мы можем сжать весь исходный код для сохранения байта>: D

Две ?s должны быть непечатными Unicode U + 0098 и U + 0085, соответственно. Попробуйте онлайн!

После распаковки код оценивается следующим образом:

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

Который оценивает:

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

Что дает правильный вывод.

Использует технику intrepidcoder, вывод в формате dd.mm. Правильно поддерживает отрицательные годы. Предложения приветствуются!

Изменить: Начиная с 2 декабря, теперь вы можете использовать этот 11-байтовый код (набрав 8,25 балла ):

28.11-ÐU8 e

(Жаль, что я реализовал это раньше!)

Витси , 44 байта

Я рассчитываю с чистой математикой !

Golfed:

Ve2 * V2-V41m + Vaa * Dv1m-VV4 * 1m + 7M-бе * / + N,
/ D1M-

Ungolfed (переместил вызов метода на первую строку, чтобы сделать его читабельным):

Ve2 * V2-V4 / D1M- + Vaa * Dv / D1M - VV4 * / D1M- + 7M-бе * / + N,

V Сохранить ввод как окончательную переменную.
 e2 * Нажмите 28 в стек.
    V Вставьте вход в стек.
     2- Вычтите два.
       V4 / D1M - Получить этаж (вход / 4).
              + Добавьте это к общему итогу.
               Vaa * Dv / D1M - получить слово (input / 100) и сохранить 100 как темп
                                    переменная в процессе.
                          - вычтите это из общего.
                           Vv4 * / D1M - Get floor (input / 400).
                                    + Добавьте это к общему итогу.
                                     7М по модулю семь.
                                       - Вычтите результат из 28.
                                        baa * / + Добавить .11
                                              N Выведите как число.

Вероятно, есть лучший алгоритм для этого (и это, вероятно, ужасно), но для тех, кто интересуется, мой алгоритм отсюда .

Попробуйте онлайн!

_{Получу ли я бонусные баллы за его вычисление и имея ровно 42 байта? Мечты разрушены.}

Спасибо @ Hosch250 за указание на то, что я делаю это неправильно. : D Исправлено.

Python, 38 * 0,75 = 28,5 байт

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

Это работает с отрицательными годами в порядке, указанном в вопросе, хотя до меня дошло, что в григорианском календаре нет года 0, поэтому такое поведение немного подозрительно.

JavaScript (ES6), 43,5

^{Фактическое число байт составляет 58. Бонус -25% применяется => 58 * 0,75 = 43,5}

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

Довольно прямолинейно и глупо , без каких-либо хитрых обходных путей или расчетов.

Де-гольф (ES5) + демо:

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

t(prompt())

Обратите внимание, что входной год 0-100 производит 1900-2000 год. Хотя, похоже, 0-100 лет дают ту же дату, что и 1900-2000, судя по другим ответам.

Замена a+18на 22, потому что он вызывается только в «else», а «else» происходит, только если a не больше или меньше 4, то есть ровно 4.

Замена a<4?26-a:a>4?a+21:22наa<=4?26-a:a+21

TeaScript, 35 33 24 байта - 25% = 18

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

Это тот же метод, что и в моем ответе JavaScript , в котором используется умная формула Томаса Ква .

Альтернативная версия с объяснением

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

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

Jython, 141 155 байт

Использует классы Java Calendar и Scanner с синтаксисом Python.

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

Изменить: Незначительные проблемы синтаксиса, добавлено 14 байтов.

Также см. Мою версию Brainfuck .

Python, 83 81 78 байт

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

• -2 байта: добавлено имя для импорта (спасибо @ Κριτικσι Λίθος)
• -1 байт: изменено на * import ** (спасибо @FryAmTheEggman)
• -2 байта: изменено на repr для преобразования дня (спасибо @willem)

Excel, 367 154 53 - 25% = 39,75 байт

Предполагается, что год проводится в ячейке A1 в формате Date. Возвращает целое число дня ноября, в который проводится День Благодарения.

Это касается только високосных лет. Не учитывается тот факт, что 2100, 2200, 2300 лет не являются високосными.

Это рассчитано только на 1621 год, то есть с тех пор, как начался День Благодарения. (Хотя это, безусловно, будет работать до 0 г. н.э.).

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

Довольно отпечатанный:

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

Г! Вместо того, чтобы рассчитывать на основе 1 января, а затем делать много расчетов високосного года, чтобы справиться с 29 февраля, я должен был основывать расчеты на 1 ноября. Nb. Теперь это правильно работает с 2100, 2200 и 2300 годами. , но делает реализацию зависимой от формата даты вашей установки Excel по умолчанию. Эта версия предназначена для дд / мм / гггг:

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

И теперь, когда я сделал pfaffing, чтобы получить краткие вычисления в Smalltalk, перенесение их в Excel приводит к следующим результатам:

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

(с годом все еще в A1, но как целое число). Это работает даже для 2100, 2200 и 2300 годов, для всех дат начиная с 7700 до н. Э., С использованием трюка с повторением дат Томаса Ква.

PowerShell, 67 64 84 72 58 45 байт

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

Мы берем наше входное целое число как $a, и немедленно выводим Novи новую строку. Затем мы берем $aи дополняем его нулями, а 1 сентября - 00$a/9/1перед генерацией нового dateи определяем, что DayOfWeekэто такое. Если 1 сентября - в воскресенье ( .DayOfWeekравно 0), День благодарения - 28-го. Если 1 сентября в понедельник ( .DayOfWeekравно 1), День благодарения - 27-го. И так далее. Таким образом, мы вычитаем этот день недели 28для вывода нашего ответа.

Предварительное добавление с двумя нулями учитывает годы, состоящие из одной или двух цифр, без прерывания анализа в течение трех или четырех цифр. Не работает для отрицательных чисел, так как .NET datetimeне поддерживает лет меньше, чем 0.

Спасибо TessellatingHeckler и Toby Speight за помощь в этом.

Golfscript, 25 * 0,75 = 18,75 байт

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

Здесь используется формула Сакамото для дня недели. Так как есть люди, делающие это, результат в форме dd-mm. Мое предыдущее представление можно найти ниже:

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

TSQL, 478 296 байт

Просто для приколов. Как правило, у вас есть таблица измерений даты, чтобы сделать это простым, select * from dimDate where [Year] = @Year and [Holiday] = 'Thanksgiving'но в отсутствие этого ...

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

Ungolfed:

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

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

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

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

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

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

    return @d

end

Pyth, 30 28 * 75% = 21 байт

Я на 100% уверен, что это можно сделать короче, но эй, это моя первая программа Pyth! \ О /

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

Тестирование

Выводит дату в dd.mmформате.

Пожалуйста, предложите способы игры в гольф, если вы можете! Я хотел бы узнать больше о Pyth.

Excel, 64 48

Год в А1

= ДАТА (A1,11, ВЫБРАТЬ (ДЕНЬНЕД (ДАТА (A1,11,1)), 26,25,24,23,22,28,27))

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

Befunge, 41 байт

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

Запустите на этом переводчике .

Пояснение: Обычный год равен 365 = 1 мод 7 дней, поэтому год плюс каждый 4- ^й год, минус каждый 100- ^й ( dв ascii) году плюс каждые 400- ^й год учитывает любые високосные дни (включая текущий год). Результат :::4"d"*/\"d"/-\4/++затем можно рассматривать как 5 марта - ^го , в первый день после февраля впасть в тот же день , как в первый день года в общие годах. После этого мы калибруем по шаблону, 5+7%-вычитая количество дней недели с 28- ^го ( 47*сохраненное ранее) ноября. Затем распечатайте.

Версия, исправляющая годы BC, в настоящее время длиннее, чем предусматривает бонус, на 59 -25% = 44,25 байт:

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

Matlab, 78 байт

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

Рубин, 60 58 57 * 0,75 = 42,75 байт

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

58 байт

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

60 байт

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

Ungolfed:

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

Использование:

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

=> Nov 26

VBA, 124 байта * 75% = 93 байта

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

Я не уверен, если количество пробелов, это где-то между 102 и 124, не стесняйтесь редактировать.
Если целые числа являются допустимым выводом, я более чем счастлив удалить Formatчасть.

PHP 5.3+, 59 байт

Это использует встроенную функцию PHP strtotimeдля анализа даты.

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

Ожидается, что значение будет передано через параметр GET Y OR over php-cli Y=<year>.

Он пытается найти следующий четверг после 19 ноября.
Пока что с проведенными мною тестами все работает нормально.

Имейте в виду, что двузначные годы могут интерпретироваться по-разному.

Я использую, gmdateчтобы избежать проблем с часовым поясом, но он работает одинаково хорошо, используя date(по крайней мере, там, где я живу).

T-SQL 215 байтов 248 * 0,75 = 186 байтов

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

Ungolfed

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

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

который с этим испытательным лесом

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

дает по желанию

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

Пайк , 87 91 107 77 76 байт - 25% = 57

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

оставив старый для сравнения, потому что я нахожу его более умным с точки зрения использования модуля календаря, но вышесказанное намного короче.

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

Smalltalk - Squeak and Pharo , 69 57 54 49 35 34 33 32 - 25% = 24 байта

«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

Предыдущие версии

Выход 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

Ноябрь нн выход

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

выход nn

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

nb Это предоставляется как программа, а именно как выражение рабочей области, а не как метод.

Предполагается, что ввод является заданным (согласно фразе «задан год до четырех цифр»).
Включение объявления и выдачи ввода добавит еще 11 символов:

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

Спасибо eMBee, за то, что показали, как убрать еще один символ - пробел непосредственно перед 'w'.

На самом деле, это вдохновило меня попробовать удалить пробел до того, как 'd:':
|y|y:=2015.(12-(Date y:y m:11d:1)w)\\7+1122
Что сработало!

GNU coreutils, 35 байт

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

Просто ищет неделю 22-28 ноября для четверга. Запустите его в локали C или POSIX, так как я полагаю, что четверг - единственное сокращение дня, содержащее 'h'.

Вот более умный ответ, хотя и дольше:

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

Мы извлекаем номер дня недели в довольно произвольную неделю между мартом и сентябрем (таким образом, день и месяц - одна цифра каждая, и на нас не влияет возможный високосный день). Мы выбираем день так, чтобы это было воскресенье ( %w==0), когда День Благодарения наступает 28-го числа. Затем мы можем вычесть это значение из 28, чтобы получить соответствующий четверг.

TSQL, 53 52 байта

DECLARE @ CHAR(4)=2000

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

скрипка

Расчет понедельника до или 2 сентября и добавление 59 дней

(лучше, чем вычисление понедельника до или 4 октября и добавление 31 дня, потому что октябрь является 10-м месяцем, тем самым экономя 1 байт)

Perl, 92 байта

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

РЕДАКТИРОВАТЬ: Исправлен формат вывода, исправлена ​​ошибка, например, результат 2012 года, используется более короткий формат «для». Благодаря msh210.