誰にも言わないでください、しかし、私は叔父のタイムトラベルマシンにニックを入れました！私の叔父は素数に取りつかれていますが、それは機械に表示されます。彼はそれをプログラムして、合計が素数になる日付までしか行かないようにしています。

1947-08-151947 + 8 + 15 = 1970であるため、移動できません。これは素数ではありません。1947 + 7 + 25 = 1979であるため、に進むことができ1947-07-25ます。これは素数です。ですから、インドの独立記念日を見に戻りたいのなら、数週間前に行って20日間待つ必要があるようです。

私が行きたい他の日付がいくつかありますが、同様に、目標日付の前の日付（または幸運なら、等しい）に移動する必要があります。しかし、私はイライラしているので、あまり待ちたくありません。そのため、使用できる日付のうち、目的の日付に最も近い日付を見つけたいと思います。

目標日を取得し、タイムマシンに入力する日付を与えるプログラムを作成できますか？部分が素数になる合計日付の前または最も近い日付ですか？

（このチャレンジでは、 予後グレゴリオ暦を使用しています。これは、人々が古いユリウス暦を使用していた期間でも現在のグレゴリオ暦を使用することを意味します。）

入力

• デート
  • 理想的には、現在の時代（AD）の任意の日付。実際には、あなたの言語が自然に処理できるそのサブセット
  • あなたが好きな単一の人間が読める形式で

出力

• 入力日付に最も近い日付。入力日付以下で、日付+月+年の合計が素数になります。
  • あなたが好きな単一の人間が読める形式で

⁺：日、月、年などの「人間が読める」すべてのスペルが、どのような順序でも

テストケース

1947-08-15
=> 1947-07-25
1957-10-04
=> 1957-09-27
1776-07-04
=> 1776-07-04
999-12-12
=> 0999-12-10
2018-06-20
=> 2018-06-15
1999-01-02
=> 1998-12-29
1319-12-29
=> 1319-07-01

（質問の手助けをしてくれた@ Shaggy、@ PeterTaylor、@ Arnauldに感謝します。）

赤、87バイト

func[d][d: d + 1 until[d: d - 1 n: d/2 + d/3 + d/4 i: 1 until[n %(i: i + 1)= 0]i = n]d]

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

より読みやすい：

f: func [ d ] [ 
    d: d + 1
    until [
        d: d - 1
        n: d/day + d/month + d/year
        i: 1
        until [
            i: i + 1
            n % i = 0
        ]
        i = n
    ] 
    d
]

JavaScript（Node.js）、94バイト

カリー化構文では、入力を3つの整数として受け取ります(year)(month)(day)。先行するハイフンでハイフンで区切られた文字列を返します。

y=>m=>g=d=>(P=k=>n%++k?P(k):~k)(n=eval(s='-'+new Date(y,m-1,d).toJSON().split`T`[0]))?g(d-1):s

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

どうやって？

最初に日付をJSON形式yyyy-mm-ddT00:00:00.000Z（ISO 8601）に変換し、その上で分割し'T'、左側のみを保持し、先頭にハイフンを追加します-yyyy-mm-dd。

s = '-' + new Date(y, m - 1, d).toJSON().split`T`[0]

この式sは、年+月+日の合計のeval()反対のnを取得するために使用できます。

n = eval(s)

ヘルパー関数P（）を使用して、-nが素数であるかどうかをテストします（その場合は0を返します）。もしそうなら、sを返します。それ以外の場合は、前日と再試行します。

(P = k => n % ++k ? P(k) : ~k)(n) ? g(d - 1) : s

Pythonの2、130 127バイト

入力は year, month, dayです。

Kevin Cruijssenのおかげで-3バイト。

from datetime import*
def f(a):
  while(lambda n:any(n%m<1for m in range(2,n)))(a.year+a.month+a.day):a-=timedelta(1)
  print a

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

ジャワ8、144の 128バイト

d->{for(;;d=d.minusDays(1)){int n=d.getYear()+d.getMonthValue()+d.getDayOfMonth(),i=2;for(;i<n;n=n%i++<1?0:n);if(n>1)return d;}}

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

java.time.LocalDateクラスは古いと比較して改善されているjava.util.Dateが、なぜ彼らはそれらの名前は長くしなければならなかったんでした（getMonthValueとgetDayOfMonth代わりにgetMonthとgetDay）..>。>

説明：

d->{                      //  Method with LocalDate as both parameter and return-type
  for(;;                  //  Loop indefinitely
      d=d.minusDays(1)){  //    Going one day back after every iteration
    int n=d.getYear()+d.getMonthValue()+d.getDayOfMonth(),
                          //   Set `n` to the sum of year+month+day
    i=2;for(;i<n;n=n%i++<1?0:n);if(n>1)
                          //   If `n` is a prime:
      return d;}}         //    Return the now modified input-LocalDate `d`

ルビー、94バイト

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

単一の日付入力を受け取り、ISO 8601形式（YYYY-MM-DD）の文字列を返します。

require'date'
require'prime'
->d{d.downto(0){|i|break i.to_s if (i.day+i.month+i.year).prime?}}

Rubyのプライムモジュールを使用します。それが許可されていない、または眉をひそめている場合は、さらに2バイト、この憎悪を示します。

ルビー、97バイト

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

このstackoverflowの答えから素数である番号のチェックを使用します。これがどのように機能するかはわかりませんが、魔法のように見えます。上記と同じ入力、同じ出力。

require'date'
->d{d.downto(0){|i|break i.to_s if ?1*(i.day+i.month+i.year)!~ /^1?$|^(11+?)\1+$/}}

ルビー、57 53バイト

->d{d-=9until/^(11+)\1+$/!~?1*(d.day+d.year+d.mon);d}

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

私の考えではない-IMP1による「アボミネーション」から盗まれた

元のアイデア：

ルビー、59バイト

->d{d-=9until((2...w=d.day+d.year+d.mon).all?{|x|w%x>0});d}

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

R、117バイト

function(d){while(!numbers::isPrime(y(d))){d=d-1};d}
`<`=format
y=function(d)sum(as.integer(c(d<"%Y",d<"%m",d<"%d")))

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

F＃、134 133バイト

let rec s(d:System.DateTime)=
 let x=d.Year+d.Month+d.Day
 if(Seq.tryFind(fun i->x%i=0){2..x-1}).IsNone then d else d.AddDays(-1.)|>s

スンダからの-1バイトのおかげ。

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

日、月、年を合計し、それが素数であるかどうかを確認します。そうであれば、その日付を返します。そうでない場合は、日付を1日減らして再試行してください。

PowerShell、105 90バイト

for($a=$args[0];'1'*((Date $a -f yyyy+MM+dd)|iex)-match'^(..+)\1+$';$a=$a.AddDays(-1)){}$a

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

-13バイトのsundarに感謝します。

入力をaとして取得し、DateTime 2018-06-20に保存し$aます。その後、forループになります。各反復では、（$a -fたとえばyyyy+MM+dd、現在の日付を+記号で区切って）に|iex（）を追加し、evalそれを1s で文字列乗算して単項数を形成し、プライムチェック正規表現を使用して、現在の日付がプライムかどうかを判断します。素数でない場合は.AddDays(-1)、1日前に戻り、ループを続けます。素数であれば、ループを抜けて配置します$a暗黙的な出力でパイプラインに配置します。

結果の出力はカルチャに依存します。を使用するTIOではen-us、出力はのような長い日付形式ですSaturday, July 1, 1319 12:00:00 AM。

バッシュ、114108バイト

a=`date +%s -d$1`
while [ "`date +%d+%m+%Y -d@$a|bc|factor|awk NF!=2`" ]
do a=$[a-86400]
done
date +%F -d@$a

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

初めてのバッシュゴルフ。正直なところ、私の最初の本当のbashプログラム... ここから取られた素数テスト。

タイムゾーンの変更がある場合、これは時々失敗するかもしれませんが、TIOはUTCを使用するので、そこで動作するはずです。

C（gcc）、167バイト

r;P(n,i){for(r=0;++i<n;)r|=n%i<1;}f(y,m,d){for(;P(y+m+d,1),r;)!--d?d=" >8><><>><><>"[!--m?y--,m=12:m]/2+(m==2&!(y%4)&y%100|!(y%400)):0;printf("%04d-%02d-%02d",y,m,d);}

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

流れ落ちる

r;P(n,i){for(r=0;++i<n;)r|=n%i<1;}

アンチプライムチェック機能。対処する必要がある最も早い有効な年は0001-01-01であるため、心配する必要のある最小の数値は3であるため、n == 2またはn <2の特殊なケースのチェックは取り除かれます。nがそうでない場合、rは真理値に設定されます素数ます。rはグローバルに保持されます。返す必要がないため、2バイトを節約できます（グローバルを確認するi=n;ために返す,rため）。iは、さらに2バイトを節約するために、関数呼び出し元によって1に設定されます。

f(y,m,d){for(;P(y+m+d,1),r;)

日付を3つの独立した整数として受け取り、メインループを開始します。これは、y + m + dが素数になるまで続きます。次に、関数の要点を説明します。

!--d?                           Decrement day and check if zero, which means we go back to last day of previous month.
d=" >8><><>><><>"               The string contains the number of days of each month times 2, to bring them into printable ASCII range.
                                We begin the string with a space, to avoid having to substract from index later.
[!--m?y--,m=12:m]/2+            Decrement month and check if zero. If so, go back a year and set m to 12. Use m as index in string.
(m==2&!(y%4)&y%100|!(y%400))    If the new month is February, add 1 to day if it's a leap year.
:0;                             Do nothing if day did not become zero.

評価の順序が指定されていない場合、うるう年のチェックと文字列のインデックスの両方でmとyを使用するのは不自然に思えるかもしれません。幸いなことに、m == 2の場合のみうるう年をチェックします。これは、mとyを変更するときに同時に発生することはありません。評価の順序。

最後に、結果がSTDOUTに出力されます。

printf("%04d-%02d-%02d",y,m,d);}

C＃の- 281 239 232シャア

using System;class P{static void Main(){var d=DateTime.Parse(Console.ReadLine());do{int c=d.Year+d.Month+d.Day;if(c%2!=0){int i=3;for(;i<=c;i+=2)if(c%i==0)break;if(i>=c)break;}d=d.AddDays(-1);}while(d>DateTime.MinValue);Console.WriteLine(d);}}

なし：

using System;
class P
{
    static void Main()
    {
        var d = DateTime.Parse(Console.ReadLine());
        do
        {
            int c = d.Year + d.Month + d.Day;
            // minimum datetime in c# is 0001-01-01
            // therefore do not need to check for the first two primes 
            int i = 3;
            for (; i < c; i += 2) if (c % i == 0) break;
            // check to break the date decrement loop if counter passed the input value
            // ie, no factor could be found
            if (i >= c) break;

            d = d.AddDays(-1);
        } while (d > DateTime.MinValue);
        Console.WriteLine(d);
    }
}

コードの効率を下げましたが、小さくしました。プライムループは、平方根ではなく整数になります。また、すべての偶数を処理します。

MATL、14バイト

`tsZp?.}YOqZOT

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

代わりに：

15バイト

`tsZp~tbYOw-ZOw

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