Brainfuckコードを書くとき、デバッグを促進するために必要以上に長くする必要があると感じることがあります。><そこにa を入れるだけでそれを行うことができますが、それは何が楽しいですか？コードを読んでいる人を混乱させるために、NOPeyをもっと長くする必要があります。

Brainfuckの簡単な紹介

Brainfuckは、1993年にUrbanMüllerによって作成された難解なプログラミング言語であり、極端なミニマリズムが特徴です。（ウィキペディア）

Brainfuckは、8つのコマンドに基づく言語です+-><,.[]。コードはチューリングマシンのようなもので実行されます。値を変更できる無限のテープです。この課題では、最初の4つに焦点を当てます。

+    increment the value at the pointer
-    decrement the value at the pointer
>    move the pointer right
<    move the pointer left

Brainfuck NOP

Brainfuck NOPは、任意の状態から実行されたときに状態に変化をもたらさない一連のBrainfuckキャラクターです。これらは上記の4文字で構成されています。

チャレンジ

課題は、実行されたときに、指定された長さのランダムなBrainfuck NOPを生成するプログラムまたは関数を作成することです。

入力

入力として非負の偶数整数を受け取りますn。（NOPは奇数には不可能ですn。）

出力

あなたは長さのランダムなBrainfuck NOPを出力しますn。

ルール

• NOPの定義：プログラムの出力がBrainfuckプログラムの任意のポイントに挿入された場合、そのプログラムの動作は決して変化してはなりません。つまり、インタープリターの状態を変更してはなりません。
  • たとえば+>-<、2つのセルの値を元に戻すことなく変更するため、これは正しくないことに注意してください。投稿する前にこれらのソリューションをテストしてください。
  • また、これ+>-<->+<はNOPであり、を削除するだけでは何にも削減できないことに注意してください>< <> +- -+。したがって、これらを相互に挿入するだけのアルゴリズムは使用できません。
• 長さのすべての有効なNOPにはn、出力に表示されるゼロ以外のチャンスが必要です。ただし、分布は均一である必要はありません。
• 問題のブレインファックインタープリターには、任意精度セルの二重無限テープがあります。つまり、両方向に無限に移動し、各セルを無制限にインクリメント/デクリメントできます。
• プログラムは、私のマシンで= 100の場合、1分以内にn終了する必要があるため、可能なすべてのNOPを生成して選択することはありません。
• 無効な入力（非整数、負、奇数など）が与えられた場合、クラッシュを含め、好きなことを行うことができます。

得点

これはcode-golfであるため、バイト単位の最短回答が優先されます。

例

以下は、n= 4の有効な出力です。

++--    +-+-    +--+    --++    -+-+    -++-
>><<    ><><    ><<>    <<>>    <><>    <>><
><+-    ><-+    <>+-    <>-+
>+-<    >-+<    <+->    <-+>
+><-    -><+    +<>-    -<>+
+-><    -+><    +-<>    -+<>

以下に、n= 20のいくつかの可能な出力を示します。

+>>->+<->-<<<->>++<<
>+>-<+<->+-<>->+<-<+
+--+-++--++-+--+-++-
>>>>>>>>>+-<<<<<<<<<

CJam、62 59バイト

3バイトを節約してくれたnhahtdhに感謝します。

各no-opが有限確率で現れる限り、特定の分布に対する要件はないため、それぞれ、-+とのバランスの取れた数を含む文字列を生成し<>、それがNOPであるかどうかをテストし、そうではありません。

もちろん、より長い入力の場合、これはほとんど常にソートされた出力になります8が、原則として特定の長さのNOPを生成できるかどうかを確認するために、入力を使用してコードをテストできます。

ri_0a*\2/{;"-+<>":L2/mR}%smr:SL["Xa.Xm"3/2e*L]z:sers~0-S$S?

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

CJam、118 116バイト

これは少し手に負えなくなりました...特に後半は非常にゴルフに適しているようです。

ri2/_)mr:R-"<>"R*mr_'=fm0\{1$+}%+__&e`]:\{mr1aa..+}*\@](\z:~\{~\("+-"*mr1$3$e=[{_,)mr_2$<@@>}*+]@@f{`1$`={(}@?\}W<}/

ここでテストしてください。

これはN = 100ほとんど瞬時に処理します。現在、コードの完全な内訳を書く時間がないので、アルゴリズムは次のとおりです。

• ランダムなバランスの取れた文字列を生成<し、>ランダム（さえ）の間の長さと0してN包括的に。
• テープヘッドの位置をこの配列に合わせます。例えばに"<>><"なり[0 '< -1 '> 0 '> 1 '< 0]ます。
• プロセスで到達したすべてのポジションのリストを取得します。
• そのような位置ごとに空の文字列を初期化します。また、長さの文字列に達するために残っている文字のペアの数を決定しますN。
• 残りのペアごと+-に、ランダムな位置の文字列に追加します。
• これらのすべての文字列をシャッフルします。
• 各位置に対して、その位置が波打った配列で発生する頻度を決定し、対応する文字列をその多くの（ランダムな長さの）チャンクに分割します。
• 波打った配列で、位置の出現をランダムなチャンクで置き換えます。

できた これは、次の観察に基づいています。

• 任意のNOPは、同量のを持っている必要があります<し、>元の位置にテープヘッドを返すように。
• 各テープセルがデクリメントされるたびにインクリメントされる限り、コードはNOPになります。

ランダムでバランスの取れた量の+sと-sを、テープヘッドが特定のセル上にあるすべての場所に分散することにより、すべての可能なNOPを確実に見つけることができます。

Mathematica、350バイト

Quiet@(For[a="+",If[{##4}=={},#3!=0||Union@#!={0},Switch[#4,"+",#0[ReplacePart[#,#2->#[[#2]]+1],#2,#3,##5],"-",#0[ReplacePart[#,#2->#[[#2]]-1],#2,#3,##5],">",#0[#~Append~0,#2+1,#3+1,##5],"<",If[#2<2,#0[#~Prepend~0,1,#3-1,##5],#0[#,#2-1,#3-1,##5]]]]&@@{{0},1,0}~Join~Characters@a,a=""<>RandomSample@Flatten@RandomChoice[{{"+","-"},{">","<"}},#/2]];a)&

長すぎる？はい。私も気にしますか？他の誰かが有効な回答を投稿するまでは。

Python 3、177バイト

from random import*
n=int(input())
r=[0]*n*3
p=0
a=[43,45]
s=choices(a+[60,62],k=n)
for c in s:p+=~c%2*(c-61);r[p]+=c%2*(44-c)
if any(r+[p]):s=a*(n//2)
print(*map(chr,s),sep='')

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

BFシミュレーションには、Bubblerの回答のコードを使用しました。

Python 3、163バイト

from random import*
n=int(input())
p=0;d=[0]*n;a=choices(b'+-<>',k=n)
for c in a:d[p]+=c%2*(44-c);p+=~c%2*(c-61)
if p|any(d):a=n//2*b'+-'
print(*map(chr,a),sep='')

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

結果をSTDOUTに出力する完全なプログラム。BFコードを実行する行は、ゴルフ可能です。

Tyiloのアプローチを採用。生成されたBFコードがNOPでない場合、それを完全に破棄し、'+-'繰り返しにフォールバックします。

JavaScript（Node.js）、160バイト

n=>[...s=c(i=n,t=c(n/2,r=[],f=_=>'+-'),f=_=>'+-<>'[Math.random()*4|0])].map(_=>_<'<'?(r[i]=_+1-~r[i]-1):(i+=_<'>'||-1))|r.some(eval)|i-n?t:s;c=n=>n?c(n-1)+f():r

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

Wolfram言語（Mathematica）、224バイト

(s=RandomSample[##&@@@Table["<"">",(r=RandomInteger)[#/2]]];While[(g=Length@s)<#,s=Insert[s=Insert[s,"+",i=r@g+1],"-",RandomChoice@@Select[GatherBy[0~Range~++g,Count[#,"<"]-Count[#,">"]&@Take[s,#]&],!FreeQ[#,i]&]+1]];""<>s)&

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

以下は、ゴルフをしていない（または、ゴルフをしていない）バージョンです。

Function[{n},
 k = RandomInteger[n/2];
 s = RandomSample[## & @@@ Table["<" ">", k]];
 While[Length[s] < n,
   s = Insert[s, "+", i = RandomInteger[Length[s]] + 1];
   p = GatherBy[Range[0, Length[s]], 
     Count[#, "<"] - Count[#, ">"]& @ Take[s, #]&];
   j = RandomChoice @@ Select[p, ! FreeQ[#, i] &]];
   s = Insert[s, "-", j + 1];
   ];
 ""<>s]

まず、使用する<の数とをランダムに選択し、>それぞれの数が等しいランダムリストを生成します。

残りの文字を埋めるために、を追加する位置を選択してから+、ポインターが同じ場所を指す位置を見つけて、-そこにaを追加します。

リストが長さを持つまで繰り返します n、結果を文字列化します。