Đầu vào của bạn sẽ là một số nguyên trong khoảng từ 1970 đến 2090 (bao gồm), đại diện cho một năm. Chương trình của bạn sẽ xuất ra vào năm tiếp theo mà Ngày Năm Mới rơi vào cùng ngày trong tuần với năm đầu vào.

Các trường hợp thử nghiệm:

Dưới đây là các mẫu đầu vào và đầu ra

2001 => 2007
2047 => 2058
2014 => 2020
1970 => 1976
1971 => 1982
1977 => 1983
2006 => 2012

Tiền thưởng 20%: Xuất ra ngày trong tuần của Năm mới

2001 => 2007 (Mon)
2047 => 2058 (Tue)
2014 => 2020 (Wed)
1970 => 1976 (Thu)
1971 => 1982 (Fri)
1977 => 1983 (Sat)
2006 => 2012 (Sun)

Tiền thưởng 30%: Đầu raAdvance Happy New Year, <year>

2010 => Advance Happy New Year, 2016

Tiền thưởng 50%: Làm cả hai phần thưởng trên

2010 => Advance Happy New Year, 2016 (Fri)

Viết chương trình đọc đầu vào từ STDIN hoặc chấp nhận đối số dòng lệnh hoặc hàm lấy đối số.

Lưu ý: Vui lòng thêm một liên kết để kiểm tra mã của bạn nếu có thể.

Bảng xếp hạng:

    var QUESTION_ID=66656,OVERRIDE_USER=16196;function answersUrl(e){return"https://api.stackexchange.com/2.2/questions/66656/answers?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+ANSWER_FILTER}function commentUrl(e,s){return"https://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}#answer-list{padding-right: 100px}

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

Thạch, 9 byte

%4*3%7+5+

Đây là một chuỗi đơn âm lấy một đối số dòng lệnh nguyên làm đầu vào. Nó sử dụng (x+5+(x%4)**3%7)thuật toán của tôi .

Hãy thử nó ở đây . Mặc dù đó là phiên bản hiện tại của Jelly, nhưng nó cũng hoạt động trong phiên bản này , trước thách thức. (Cảm ơn @Dennis!)

Toán học, 45 37 27 24 byte

#+5[6,6,11][[#~Mod~4]]&

Những cải tiến nhờ vào @ MartinBüttner (10 byte) và @ChipHurst (thêm 3 byte).

CJam, 21 12 11 byte

{_9587Cb=+}

@martin tìm thấy một phương pháp rất đơn giản!

Hãy thử nó ở đây .

EDIT: Cảm ơn, Dennis!

gs2, 12 byte

V@¶4☻s%☺♀i50

Bản dịch câu trả lời của tôi. Được mã hóa trong CP437 như bình thường. Hãy thử trực tuyến !

JavaScript (ES6), 50 49 20 byte (không có tiền thưởng)

a=>a+[5,6,6,11][a%4]

Thuật toán của @martin chứng tỏ là nhỏ hơn nhiều, vì vậy tôi đã sử dụng nó.

Tôi đã chọn một cách tiếp cận toán học vì JavaScript có xu hướng dài dòng. Mã này đủ ngắn để tiền thưởng chỉ làm cho nó dài hơn.

Đây là câu trả lời trước của tôi (49 byte) và câu trả lời ban đầu của tôi (50 byte):

F=(a,b=a)=>((a+--a/4|0)-(b++/4+b|0))%7?F(++a,b):b

F=(a,b=a)=>(f=c=>(c--+c/4|0)%7)(a)-f(++b)?F(a,b):b

Họ làm việc bằng cách lấy năm và tính một số (0-6) để thể hiện "ngày bắt đầu của năm". Bởi vì phạm vi ngày cho thử thách này nằm trong phạm vi năm tuân theo quy tắc năm nhuận đơn giản (không bỏ qua năm 2000), nên việc tính toán khá đơn giản. Sau đó, chỉ là vấn đề so sánh về phía trước để tìm ra những năm bắt đầu với cùng một giá trị. Đệ quy đã được chứng minh là cách ngắn gọn nhất để làm điều này.

Pyth, 14 12 11 byte

+QC@"♣♠♠♂"Q

Bốn byte trong chuỗi nên là 05 06 06 0B.

EDIT: Cảm ơn, FryAmTheEggman!

EDIT: Cảm ơn, Dennis!

JavaScript (ES6), 104 byte - Phần thưởng 50% = 52

y=>eval('for(a=0;a!=(b=(new Date(""+y++)+"").slice(0,3));a=a||b)`Advance Happy New Year, ${y} (`')+b+")"

Giải trình

y=>
  eval(`                  // eval enables for loop without {} or return
    for(
      a=0;                // a = first day of input year
      a!=                 // check if the day of the current year is equal to the first
        (b=(new Date(     // b = day of current year
          ""+y++)+"")     // cast everything as strings!
            .slice(0,3)); // the first 3 letters of the date string are the day name
      a=a||b              // set a to the day on the first iteration
    )

      // return the string
      \`Advance Happy New Year, \${y} (\`
  `)+b+")"

Kiểm tra

var solution = y=>eval('for(a=0;a!=(b=(new Date(""+y++)+"").slice(0,3));a=a||b)`Advance Happy New Year, ${y} (`')+b+")"

<input type="text" id="input" value="2001" />
<button onclick="result.textContent=solution(+input.value)">Go</button>
<pre id="result"></pre>

Mã máy Z80, 12 byte

Một thủ tục Z80 sẽ được lưu trữ tại 0000h, được gọi với đầu vào HLvà tất cả các thanh ghi khác đều bị xóa:

.org 0000h
              ; Bytes   ; Explanation
  ;---------------------------------------------------------------
  DEC B       ; 05      ; 
  LD B, 6     ; 06 06   ;   
  DEC BC      ; 0B      ;
  LD A, 3     ; 3E 03   ;   A = 3
  AND L       ; A5      ;   A = input & 3
  LD E, A     ; 5F      ;   A = input & 3     DE = input & 3
  LD A, (DE)  ; 1A      ;   A = [input & 3]   DE = input & 3
  LD E, A     ; 5F      ;   A = [input & 3]   DE = [input & 3]
  ADD HL, DE  ; 19      ;   HL = input + offset
  RET         ; C9      ;

Ba hướng dẫn đầu tiên là "NOP", nhưng được lập chỉ mục là dữ liệu sau này trong mã. Khi trở về, đầu ra là trong HL.

Python 3, 140 100 102 84,5 154 * 0,5 = 77 byte

Tôi có thể có thể viết một giải pháp tốt hơn với thuật toán của Sakamoto, nhưng điều này sẽ làm ngay bây giờ

Tôi đã đúng. Đây là một triển khai sử dụng thuật toán của Sakamoto.

def s(y):
 d=lambda j:(j+j//4)%7
 for i in range(y,y+15):
  if d(i)==d(y-1):return"Advance Happy New Year, %d (%s)"%(-~i,"SMTWTFSuouehranneduit"[d(i)::7])

Giải trình:

def day_of_the_week(year):
    return (year + year//4 - 1 + 0 + 1) % 7
    # The month code for January is 0, and you add 1 from January *1*.
    # The -1 is to correct for starting on Saturday 
    # and so that it cancels out the 1 from January 1.

def new_years(this_year):
# But in Sakamoto's algorithm, if the month is January or February, we must subtract 1.
    weekdays = "SunMonTueWedThuFriSat"
    for item in range(this_year, this_year + 15):
        if day_of_the_week(this_year - 1) == day_of_the_week(item):
            day = weekdays[day_of_the_week(item)*3 : day_of_the_week(item)*3+3]
            return "Advance Happy New Year, %d (%s)"%(item + 1, day)
        # So we subtract from every year we check, including this_year
        # And add 1 back in at the end
        # And print the greeting, the year, and the corresponding day of the week

Nghiêm túc, 35 17 byte

[5,6,6,11] Thủ thuật tiết kiệm trong ngày.

4,;)%[5,6,6,11]E+

Dùng thử trực tuyến

Giải trình:

4,;)%[5,6,6,11]E+
4,;)%              push input, input % 4
     [5,6,6,11]E   push (input % 4)th element of [5,6,6,11]
                +  add to the input

Phiên bản cũ:

,;;D`45/*≈7@%`;╝ƒ╗35*r+`╛ƒ╜=`M1@íu+

Dùng thử trực tuyến

Giải trình:

,;;D`45/*≈7@%`;╝ƒ╗35*r+`╛ƒ╜=`M1@íu+
,;;                                  push 3 copies of the input (n)
   D                                 decrement the top copy of n
    `45/*≈7@%`;╝                     push Sakamoto's algorithm as a function and save a copy in register 1
                ƒ╗                   call Sakamoto's algorithm function and save result in register 0
                  35*r+              push [n, n+1, ..., n+14]
                       `    `M       map the function:
                        ╛ƒ╜=           push Sakamoto's algorithm, call, push 1 if equal to value in register 0 else 0
                              1@í    get the index of the first 1
                                 u+  increment and add n

Thuật toán của Sakamoto:

45/*≈7@%
45/*      multiply by 5/4
    ≈     floor
     7@%  mod 7

C, 31 byte

Sau khi chỉnh sửa câu hỏi giới hạn phạm vi đầu vào đến 1970-2090, điều này trở nên khá tầm thường:

f(x){return"\5\6\6\13"[x%4]+x;}

Nếu không có những năm thế kỷ không nhảy vọt, sẽ có một chuỗi 5,6,6,11 đơn giản cho lần lặp lại đầu tiên trong cùng ngày.

Giải pháp hoàn chỉnh cho vấn đề ban đầu (không bị ràng buộc đến năm 2090), 90 byte:

f(x){return(x-1)%100>89&&(x+9)/100%4?"\6\14\5\6\6\6\6\7\14\6"[x%10]+x:"\5\6\6\13"[x%4]+x;}

Chương trình kiểm tra:

#include <stdio.h>
#include <stdlib.h>

int main(int argc, char **argv)
{
    while (*++argv)
        printf("Advance Happy New Year, %d\n", f(atoi(*argv)));
    return !argc;
}

Chạy thử nghiệm:

$ ./66656 2001 2047 2014 1970 1971 1977 2006
Advance Happy New Year, 2007
Advance Happy New Year, 2058
Advance Happy New Year, 2020
Advance Happy New Year, 1976
Advance Happy New Year, 1982
Advance Happy New Year, 1983
Advance Happy New Year, 2012

R, 143 136 * 0,5 = 68 byte

G=function(y)strftime(paste(y,1,1,sep='-'),'%a')
d=seq(y<-scan(),y+14);sprintf("Advance Happy New Year, %i (%s)",d[G(d)==(w=G(y))][2],w)

Sử dụng %Acho tên cả ngày thay vì `% a, tùy thuộc vào trạng thái mong muốn.

R, 120 * 0,7 = 84 byte

G=function(y)as.POSIXlt(paste(y,1),,"%Y %j")$wday
d=seq(y<-scan(),y+14);cat("Advance Happy New Year,",d[G(d)==G(y)][2])

R, 90 byte

G=function(y)as.POSIXlt(paste(y,1),,"%Y %j")$wday
d=seq(y<-scan(),y+14);d[G(d)==G(y)][2]

Tất cả các câu trả lời ở trên là công việc phái sinh dựa trên câu trả lời @plannapus. Sử dụng ;dấu phân cách để tránh cần sourcetệp hoặc chạy dưới dạng tập lệnh trên dòng lệnh.

R, 145 byte -50% -> 72,5

y=scan();F=function(y)format(as.POSIXct(paste(y,1),,"%Y %j"),"%a");x=y+1;while(F(x)!=F(y))x=x+1;sprintf("Advance Happy New Year, %i (%s)",x,F(x))

Ví dụ:

> y=scan();F=function(y)format(as.POSIXct(paste(y,1),,"%Y %j"),"%a");x=y+1;while(F(x)!=F(y))x=x+1;sprintf("Advance Happy New Year, %i (%s)",x,F(x))
1: 2006
2: 
Read 1 item
[1] "Advance Happy New Year, 2012 (Sun)"
> y=scan();F=function(y)format(as.POSIXct(paste(y,1),,"%Y %j"),"%a");x=y+1;while(F(x)!=F(y))x=x+1;sprintf("Advance Happy New Year, %i (%s)",x,F(x))
1: 1977
2: 
Read 1 item
[1] "Advance Happy New Year, 1983 (Sat)"
> y=scan();F=function(y)format(as.POSIXct(paste(y,1),,"%Y %j"),"%a");x=y+1;while(F(x)!=F(y))x=x+1;sprintf("Advance Happy New Year, %i (%s)",x,F(x))
1: 2014
2: 
Read 1 item
[1] "Advance Happy New Year, 2020 (Wed)"

R, 97 byte (không có tiền thưởng)

y=scan();F=function(y)format(as.POSIXct(paste(y,1),,"%Y %j"),"%w");x=y+1;while(F(x)!=F(y))x=x+1;x

Được thụt lề, với các dòng mới:

y = scan() #Takes input from stdin
F = function(y)format(as.POSIXct(paste(y,1),,"%Y %j"),"%w") #Year to Weekday
x = y+1
while(F(x) != F(y)) x = x+1
x

Các trường hợp thử nghiệm:

> y=scan();F=function(y)format(as.POSIXct(paste(y,1),,"%Y %j"),"%w");x=y+1;while(F(x)!=F(y))x=x+1;x
1: 1977
2: 
Read 1 item
[1] 1983
> y=scan();F=function(y)format(as.POSIXct(paste(y,1),,"%Y %j"),"%w");x=y+1;while(F(x)!=F(y))x=x+1;x
1: 2006
2: 
Read 1 item
[1] 2012
> y=scan();F=function(y)format(as.POSIXct(paste(y,1),,"%Y %j"),"%w");x=y+1;while(F(x)!=F(y))x=x+1;x
1: 2016
2: 
Read 1 item
[1] 2021

VBA, 130 * 0,50 = 65 byte

Sub k(y)
i=1
Do While Weekday(y+i)<>Weekday(y)
i=i+1
Loop
MsgBox "Advance Happy New Year," &y+i &WeekdayName(Weekday(y+i))
End Sub

VBA làm cho việc tìm kiếm các ngày trong tuần trở nên thật dễ dàng .... Giá như nó không quá Verbose về nó.

PHP, 120 139 byte - 50% = 60 byte

Một cách tiếp cận chức năng:

$s=strtotime;for($d=date(D,$s(($y=$argv[1]).$_="-1-1"));$d!=date(D,$s(++$y.$_)););echo"Advance Happy New Year, $y ($d)";

Lấy một đầu vào từ dòng lệnh, như:

$ php ahny.php 2001

Cách OOP dường như dài hơn, như mọi khi (143 byte):

$s=strtotime;for($d=date(D,$s($x=($y=$argv[1])."-1-1"));$d!=date(D,$s(++$y."-1-1")););echo"Advance Happy New Year, $y ($d)";

Chỉnh sửa

• Đã lưu 18 byte . Thay vì thêm một năm bằng cách sử dụng công cụ sửa đổi PHP +1year, giờ đây tôi chỉ cần tăng năm đã cho.
• Đã lưu 1 byte bằng cách lưu trữ -1-1trong một biến.

C, điểm 53 52 (104 byte)

f(x){x+="0116"[x%4];printf("Advance Happy New Year, %d (%.3s)",x-43,"MonTueWedThuFriSatSun"+x*5/4%7*3);}

Ý tưởng mượn từ Toby Speight ; thêm hiển thị phần thưởng của ngày trong tuần.

Rút ngắn chuỗi bằng cách chuyển mã ký tự sang phạm vi thoải mái hơn. Phải chọn số lượng dịch chuyển phù hợp (ví dụ 43) để làm cho mã tính toán ngày trong tuần ngắn x*5/4%7hoạt động.

Toán học, 145 * 50% = 74 73,5 72,5 byte

d=DateValue;StringForm["Advance Happy New Year, `` (``)",NestWhile[#+1&,(a=#)+1,#!=#2&@@DateObject@{{a},{#}}~d~"DayName"&],{a}~d~"DayNameShort"]&

Sử dụng các chức năng ngày tiêu chuẩn.

Bình thường, 23 byte

L%+/b4b7.VQIqyby-Q1+1bB

Không đủ điều kiện cho bất kỳ tiền thưởng.

Hãy thử nó ở đây .

Tương tự như câu trả lời trăn thuần túy.

                        - Q = eval(input()) (autoassigned)
L                       - y = lambda b:
   /b4                  - b floordiv 4
  +   b                 - + b
 %     7                - mod 7


        .VQ             - for b in range(Q, infinate):
           Iqyby-Q1     - if y(b) == y(Q-1):
                   +1b  - print b+1
                      B - break

Java, (1-.2) * 323 (1-.5) * 350 348 339 = 258.4 175 174 169,5 byte

import java.text.*;class D{public static void main(String[]a){long y=new Long(a[0]);int i=0;for(;!s(y).equals(s(y+(++i))););System.out.printf("Advance Happy New Year, %d (%s)",y+i,s(y+i));}static String s(long y){try{return new SimpleDateFormat("E").format(new SimpleDateFormat("d/M/yyyy").parse("1/1/"+y));}catch(Exception e){}return"";}}

Ừ

Ung dung:

import java.text.*;
class D{
    public static void main(String[]a){
        long y=new Long(a[0]);
        int i=0;
        for(;!s(y).equals(s(y+(++i))););
        System.out.printf("Advance Happy New Year, %i (%s)",y+i,s(y+i));
    }
    static String s(long y){
        try{
            return new SimpleDateFormat("E").format(new SimpleDateFormat("d/M/yyyy").parse("1/1/"+y));
        }catch(Exception e){}
        return"";
    }
}

Hãy thử trực tuyến!

Cảm ơn @Kenney đã chỉ ra rằng tôi có thể rút ngắn new Longvà printf! : D

GNU coreutils, 52 51 49 byte

(Chương trình 98 byte - Phần thưởng 50%)

seq -f$1-1-1\ %gyear 28|date -f- +'Advance Happy New Year, %Y (%a)'|sed /`date -d$1-1-1 +%a`/!d\;q

Đầu vào là từ đối số dòng lệnh và đầu ra là thiết bị xuất chuẩn.

Giải trình

# generate 28 input years from $1 + 1 onwards (28 is always enough)
seq -f '$1-1-1 %g year' 28
|
# convert all of these as potential outputs
date -f- +'Advance Happy New Year, %Y (%a)'
|
 # Select the first one where the dayname matches that of input year
sed "/`date -d$1-1-1 +%a`/!d;q"

Chạy thử nghiệm:

Tất cả các cài đặt ngôn ngữ có thể Choặc POSIX.

$ for i in 2001 2047 2014 1970 1971 1977 2006; do ./66656.sh $i; done
Advance Happy New Year, 2007 (Mon)
Advance Happy New Year, 2058 (Tue)
Advance Happy New Year, 2020 (Wed)
Advance Happy New Year, 1976 (Thu)
Advance Happy New Year, 1982 (Fri)
Advance Happy New Year, 1983 (Sat)
Advance Happy New Year, 2012 (Sun)

Giới hạn: điều này chỉ hoạt động cho đến năm 2147485519 (mặc dù câu hỏi hiện đã được thay đổi để cho phép giới hạn thấp hơn).

MATL , 28 byte

i0:14+t1tI$YO8H$XO!st1)=f2))

Thí dụ

>> matl i0:14+t1tI$YO8H$XO!st1)=f2))
> 1970
1976

Mã giải thích

i           % input year
0:14+       % vector with that year and the next 14
t1tI$YO     % first day of each year
8H$XO       % transform into three letters specifying weekday
!s          % sum those three letters to reduce to unique numbers
t1)         % get first of those numbers (corresponding to input year)
=f2)        % find index of second matching
)           % index with that to obtain output year

Perl 6 ,  70   23 byte

{($^a+1...{[==] ($a,$_).map: {Date.new(:year($_)).day-of-week}})[*-1]} # 70 bytes

{($_ X+5,6,6,11)[$_%4]} # 23 bytes

sử dụng:

for «2001 2047 2014 1970 1971 1977 2006 2010» {
  printf "%d => %d\n", $_, {($_ X+5,6,6,11)[$_%4]}( $_ )
}

2001 => 2007
2047 => 2058
2014 => 2020
1970 => 1976
1971 => 1982
1977 => 1983
2006 => 2012
2010 => 2016

J, 14 byte

+5 6 6 11{~4&|

Japt, 12 byte

U+"♣♠♠♂"cU%4

Như với câu trả lời Pyth, bốn byte trong chuỗi phải là 05 06 06 0B. Hãy thử trực tuyến!

U+"♣♠♠♂"cU%4  // Implicit: U = input integer
  "♣♠♠♂"      // Take this string.
        cU%4  // Take the char code at U%4.
U+            // Add U.
              // Implicit: output last expression

Thạch , 14 byte

%4=0,3×-,5S++6

Hãy thử trực tuyến!

Cho đến hôm nay, Jelly không có chỉ mục mảng, vì vậy những điều trên sẽ phải làm. Kể từ lần cam kết mới nhất, việc lập chỉ mục mảng đã được triển khai như là ị, đưa ra giải pháp sau ( 10 byte ).

ị6,6,11,5+

Hãy thử trực tuyến!

Bình thường, 35 byte

Iq%Q4 3=+Q11).?Iq%Q4 0=+Q5).?=+Q6;Q

Hãy thử trực tuyến.

C # (6.0) .Net Framework 4.6 173 byte - 30% = 121.1 byte

void n(int y)=>Console.Write($"Advance Happy New Year, {Enumerable.Range(1,15).Select(i=>new DateTime(y+i,1,1)).First(x=>x.DayOfWeek==new DateTime(y,1,1).DayOfWeek).Year}");

Javascript ES7, 17 byte

a=>a+5+(a%4)**3%7

Đây là lần đầu tiên tôi sử dụng JS. Tôi đã tìm thấy điều này bằng cách sử dụng tập lệnh Python và tôi tin rằng nó là tối ưu. Nó hoạt động vì 0**3là 0 mod 7, 1**3và 2**3cả 1 và 3**36.

Python, 23 byte

lambda a:a+5+(a%4)**3%7

Một cổng câu trả lời JavaScript của tôi.

Bình thường , 12 byte

++5%^%Q4 3 7

Hãy thử trực tuyến! hoặc Kiểm tra bộ thử nghiệm.

Bình thường , 18 byte

Cách tiếp cận thứ hai này chủ yếu là một câu trả lời Pyth của @ wizzwizz4 .

J%Q4+?q3J11?qJZ5 6

Hãy thử trực tuyến! hoặc Kiểm tra bộ thử nghiệm.

Giải trình

++ 5% ^% Q4 3 7Q - Q có nghĩa là đầu vào được đánh giá và ẩn ở cuối.

     % Q4 - Đầu vào mod 4.
    ^ 3 - Hình khối.
   % 7 - Mod 7.
 +5 - Cộng 5
+ Q - Cộng với đầu vào.