入力は1970年から2090年までの整数で、1年を表します。プログラムは、入力された年と同じ曜日に新年が当たる翌年を出力する必要があります。

テストケース：

以下はサンプルの入力と出力です

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

20％ボーナス：元旦の曜日を出力します

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

30％ボーナス：出力Advance Happy New Year, <year>

2010 => Advance Happy New Year, 2016

50％ボーナス：上記の両方のボーナスを行います

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

STDINから入力を読み取るか、コマンドライン引数を受け入れるプログラム、または引数を取る関数を作成します。

注：可能であれば、コードをテストするためのリンクを追加してください。

リーダーボード：

    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>

ゼリー、9バイト

%4*3%7+5+

これは、整数のコマンドライン引数を入力として受け取る単項チェーンです。私の(x+5+(x%4)**3%7)アルゴリズムを使用します。

ここで試してみてください。これはJellyの現在のバージョンですが、このバージョンでも機能します。（ありがとう@Dennis！）

Mathematica、45 37 27 24バイト

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

@MartinBüttner（10バイト）と@ChipHurst（さらに3バイト）による改善。

CJam、21 12 11バイト

{_9587Cb=+}

@martinは非常に簡単な方法を見つけました！

ここで試してみてください。

編集：ありがとう、デニス！

gs2、12バイト

V@¶4☻s%☺♀i50

CJam回答の翻訳。通常どおりCP437でエンコードされます。オンラインでお試しください！

JavaScript（ES6）、50 49 20バイト（ボーナスなし）

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

@martinによるアルゴリズムははるかに小さいことが判明したため、私はそれを使用しました。

JavaScriptは冗長になる傾向があるため、数学的アプローチを選択しました。コードは十分に短いため、ボーナスはそれを長くするだけです。

以前の回答（49バイト）と元の回答（50バイト）は次のとおりです。

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

彼らは、年を取得し、「年の開始日」を表す数値（0〜6）を計算することによって機能します。このチャレンジの日付範囲は、単純なうるう年の規則に従う年の範囲内であるため（2000でスキップしない）、計算するのはかなり簡単です。その後、同じ値で始まる年を見つけるために前方に比較するだけの問題です。これを行うには、再帰が最も簡潔な方法であることが判明しました。

Pyth、14 12 11バイト

+QC@"♣♠♠♂"Q

文字列の4バイトはである必要があります05 06 06 0B。

編集：ありがとう、FryAmTheEggman！

編集：ありがとう、デニス！

JavaScript（ES6）、104バイト-50％のボーナス= 52

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

説明

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

テスト

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>

Z80マシンコード、12バイト

に格納されるZ80プロシージャ0000hは、入力in HLで呼び出され、他のすべてのレジスタはクリアされます。

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

最初の3つの命令は「NOP」ですが、コードの後半でデータとしてインデックス付けされます。戻ると、出力はになりHLます。

Pythonの3、140 100 102 84.5 154 * 0.5 = 77のバイト

おそらく、坂本のアルゴリズムでより良い解決策を書くことができますが、今のところはこれで十分です

私は正しかったです。坂本のアルゴリズムを使用した実装を次に示します。

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

説明：

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

真剣に、35 17バイト

[5,6,6,11] トリックは日を節約します。

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

オンラインで試す

説明：

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

古いバージョン：

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

オンラインで試す

説明：

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

坂本のアルゴリズム：

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

C、31バイト

入力範囲を1970-2090に制限する質問の編集後、これは非常に簡単になります。

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

century世紀以外の年がなければ、同じ日の最初の繰り返しには、単純な5,6,6,11の間隔のシーケンスがあります。

元の問題の完全なソリューション（2090に制限されない）、90バイト：

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

テストプログラム：

#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;
}

試運転：

$ ./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、143136 * 0.5 = 68バイト

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)

つかいます %A希望する状態に応じて、 `％aの代わりに完全な曜日名にします。

R、120 * 0.7 = 84バイト

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バイト

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

上記のすべての回答は、@ plannapusの回答に基づいた派生物です。;セパレータを使用してsource、ファイルの必要性を回避したり、コマンドラインでスクリプトとして実行したりします。

R、145バイト-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))

例：

> 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バイト（ボーナスなし）

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

インデントされ、新しい行で：

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

テストケース：

> 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バイト

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を使用すると、平日を見つけるのがとても簡単になります。

PHP、120 139バイト-50％= 60バイト

機能的なアプローチ：

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

次のように、コマンドラインから1つの入力を受け取ります。

$ php ahny.php 2001

OOPの方法は、いつものように長いようです（143バイト）：

$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)";

編集

• 18バイトを保存しました。PHP修飾子を使用して1年を追加する代わりに+1year、指定した年を単純にインクリメントします。
• 変数に保存して1バイトを保存し-1-1ました。

C、スコア53 52（104バイト）

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

Toby Speightからのアイデア; 平日のボーナス表示を追加しました。

文字コードをより快適な範囲にシフトすることにより、文字列を短くしました。短い平日の計算コードをx*5/4%7機能させるには、正しいシフト量（43など）を選択する必要がありました。

Mathematica、145 * 50％= 74 73.5 72.5バイト

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

標準の日付関数を使用します。

Pyth、23バイト

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

ボーナスの対象にはなりません。

ここで試してみてください。

純粋なPythonの答えに似ています。

                        - 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バイト

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

あー

ゴルフをしていない：

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

オンラインでお試しください！

new Longとで短縮できることを指摘してくれた@Kenneyに感謝しprintfます！：D

GNU coreutils、52 51 49バイト

（98バイトのプログラム-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

入力はコマンドライン引数からであり、出力は標準出力です。

説明

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

試運転：

すべてのロケール設定は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)

制限：これは2147485519年までしか機能しません（ただし、質問は下限を許可するように変更されています）。

MATL、28バイト

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

例

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

コードの説明

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バイト

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

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

使用法：

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バイト

+5 6 6 11{~4&|

Japt、12バイト

U+"♣♠♠♂"cU%4

Pythの回答と同様に、文字列の4バイトはになります05 06 06 0B。オンラインでお試しください！

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

ゼリー、14バイト

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

オンラインでお試しください！

今日まで、Jellyには配列のインデックス付けがなかったため、上記のことを行う必要があります。最新のコミット以降、配列のインデックス付けはとして実装されておりị、次のソリューション（10バイト）が提供されています。

ị6,6,11,5+

オンラインでお試しください！

Pyth、35バイト

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

オンラインでお試しください。

C＃（6.0）.Net Framework 4.6 173バイト-30％= 121.1バイト

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バイト

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

JSを使用するのは初めてです。Pythonスクリプトを使用してこれを見つけましたが、最適であると信じています。ので、それは動作し0**30 MOD 7であり、1**3そして2**3両方とも1であり、及び3**36です。

Python、23バイト

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

JavaScriptの回答の移植版。

Pyth、12バイト

++5%^%Q4 3 7

オンラインでお試しください！または、テストスイートをチェックアウトします。

パイス、18バイト

この2番目のアプローチは、主に@ wizzwizz4のPyth answerのゴルフです。

J%Q4+?q3J11?qJZ5 6

オンラインでお試しください！または、テストスイートをチェックアウトします。

説明

++ 5％^％Q4 3 7Q-Qは評価された入力を意味し、最後は暗黙的です。

     ％Q4-入力mod 4。
    ^ 3-キューブ。
   ％7-Mod 7。
 +5-プラス5
+ Q-プラス入力。