これは警官と強盗です。これは警官スレッドです。強盗スレッドについては、こちらをご覧ください。

私がサイトに参加して以来、OEIS（整数シーケンスのオンライン百科事典）の課題に気づきました。誰がオンライン整数シーケンスのマスターであるかを決定する警官と強盗の挑戦があることは、公正に思われます。

編集：ささいな答えを防ぐために、警官はクラックされる提出ごとに1/2ポイントを失います。さらに、この課題のために、一定のシーケンスは許可されていません。これは、この編集後に投稿されたソリューションにのみ適用されます。

警官

入力がない場合、OEISからのシーケンスを確定的に出力するプログラムまたは関数を記述します。文字の一部のサブセットを削除することにより、プログラムを同じ言語で実行したときに、異なるOEISシーケンスを印刷できるようにする必要があります。新しいシーケンスは、異なる名前または異なるオフセットを持つ最初のシーケンスだけでなく、完全に新しいものである必要があります。どちらのシーケンスも、繰り返される定数値ではありません。

正しいことを確認できるように、最初の関数とOEISシーケンスの名前を指定する必要があります。言語のMAX_INT値または256のどちらか大きい方で動作が疑わしくなっても問題ありません。

強盗

新しいプログラムがOEISから他のシーケンスを出力するように、Copの提出物から文字を削除します。新しいOEISシーケンスの名前とともに新しい関数を提供します。ここにあなたの提出物が有効であることを確認するためのユーティリティがあります（つまり、おかしなビジネスなしに文字を削除します。シーケンス自体はチェックしません）。

警官の提出物からできるだけ多くのキャラクターを削除することがあなたの最善の利益です。別の強盗（元のプログラムを作成した警官を除く誰も）がやって来て、別の異なるシーケンスを見つけるより短い解決策を見つけた場合、その強盗はあなたのポイントを盗みます。（単にゴルフをして同じシーケンスを印刷するだけではポイントを盗むのに十分ではないことに注意してください。）

ルールとスコア

1週間が経過してもソリューションを解読できなかった場合は、2番目のプログラムとそれが生成するシーケンスの名前を提供することで、ソリューションに安全のマークを付けることができます。

安全な投稿ごとに1ポイント、クラックした投稿ごとに1ポイントを獲得できます。警官はクラックされた提出ごとに1/2ポイントを失います。別の強盗が、異なるシーケンスを生成する短いプログラムを提供することにより、いつでもクラックされた提出からあなたのポイントを盗むことができることに注意してください。

警官は、1人の言語につき1つのチャレンジのみを投稿できます。

7月7日のUTC 12:00に最も多くのポイントを獲得したプレイヤーが勝利します。

MarioLANG、23バイトクラック

   >+
 :<":
>+^!<
===#=

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

奇数を生成しますA005408

C、A000217、239バイトクラック

これはコードゴルフではないので、気にしませんでした。

#include <stdio.h>
#include <limits.h>
int main()
{
    int i, n, temp = 0;
    for(i = 0; i < INT_MAX; i++)
    {
        n = 0;
        temp = i;
        while(temp)
            n+=temp--;
        printf("%d, ", n);
    }
    return 0;
}

シーケンス：https : //oeis.org/A000217

Python 2、273バイト、クラック

初期シーケンス：A004442

import zlib, base64;exec(zlib.decompress(base64.b64decode('eJzLtDUAAAHoANc=')))
while True:print eval(zlib.decompress(base64.b64decode('eJwzAgAAMwAz')))^eval(zlib.decompress(base64.b64decode('eJwzjssEAAHBAPs='))),;exec(zlib.decompress(base64.b64decode('eJzL1LY1BAAC1AED')))

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

MOO、86バイト、安全

a=0;b=1;while(a>-1)a=$math_utils:sum(a,a);a=max(1,a);notify(player,tostr(a));endwhile

2の累乗を出力します（A000079）。

解決：

a = 1; while（a> -1）a = $ math_utils：sum（a、a、a）; notify（player、tostr（a））; endwhile（代わりに3の累乗（A000244）を出力します）

PHP、20バイトクラック

for(;;)echo+!$i,",";

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

印刷シーケンスhttps://oeis.org/A000012

cQuents（古いコミット）、10バイト、クラック

=0,1,1:z+y

これはまだWIPの言語ですが、インタープリターにパッチを適用して機能しました。Githubリンクの言語名をクリックします。

これはフィボナッチ列を出力します：A000045

説明：

（私はドキュメントを持っていないので、あなたが私のインタープリターコードを読むことを期待していません）

=0,1,1      Set start to [0,1,1]
      :     Mode: sequence
       z+y  Each term is the previous two terms added together
            Because there is no input, output the whole sequence

一定のシーケンスがまだ許可されている場合、これは非常に簡単に奪うでしょう。