때로는 brainfuck 코드를 작성할 때 디버깅 을 장려 하기 위해 필요한 것보다 더 길게 만들어야 할 필요가 있다고 생각합니다 . 당신은 ><거기에 a 를 두들겨서 그것을 할 수 있지만, 그게 무슨 재미입니까? 코드를 읽는 사람을 혼동 시키려면 더 길고 적은 NOPey가 필요합니다.

Brainfuck 빠른 소개

Brainfuck 은 Urban Müller가 1993 년에 만든 난해한 프로그래밍 언어로 극도의 미니멀리즘으로 유명합니다. (위키 백과)

Brainfuck은 8 가지 명령을 기반으로하는 언어입니다 +-><,.[]. 코드는 Turing 머신과 같이 실행됩니다 : 값을 변경할 수있는 무한 테이프. 이 도전에서 우리는 처음 네 가지에 중점을 둘 것입니다.

+    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 프로그램의 어느 시점 에든 삽입 될 때, 상기 프로그램의 동작은 어떠한 방식으로도 변하지 않아야합니다. 즉, 인터프리터의 상태를 변경해서는 안됩니다.
  • 예를 들어 +>-<두 셀의 값을 다시 변경하지 않고 변경하기 때문에 올바르지 않습니다. 게시하기 전에 솔루션에 대한 솔루션을 테스트하십시오.
  • 또한 +>-<->+<NOP 만 제거하면 아무것도 줄일 수 없습니다 >< <> +- -+. 따라서 이들을 서로 삽입하는 알고리즘은 사용할 수 없습니다.
• 길이의 모든 유효한 NOP n는 출력에 0이 아닌 가능성이 있어야합니다. 그러나 분포가 균일 할 필요는 없습니다.
• 문제의 해석기는 임의의 정밀 세포로 된 무한한 두 배의 테이프를 가지고 있습니다. 즉, 양방향으로 무한대로 이동하고 각 셀을 무한대로 증감시킬 수 있습니다.
• 프로그램은 내 컴퓨터에서 = 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.
• 나머지 각 쌍 +-에 대해 임의 위치의 문자열에 추가하십시오 .
• 모든 문자열을 섞습니다.
• 각 위치에 대해 리플 배열에서 해당 위치가 발생하는 빈도를 결정하고 해당 문자열을 많은 (임의 길이) 청크로 나눕니다.
• riffled 배열에서 위치 발생을 임의의 청크로 바꿉니다.

끝난. 이것은 다음과 같은 관찰을 기반으로합니다.

• 상관 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)&

너무 오래? 예. 나도 신경써? 다른 사람이 유효한 답변을 게시 할 때까지는 그렇지 않습니다.

파이썬 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의 답변 코드를 사용했습니다.

파이썬 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 Language (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]

우리는 먼저 사용할 임의의 숫자와 <의 숫자를 골라 >같은 수의 임의의 목록을 생성합니다.

나머지 문자를 채우려면을 추가 +할 위치를 선택한 다음 포인터가 같은 위치를 가리키는 위치를 찾아 -거기에 추가합니다 .

리스트가 length가 될 때까지 반복 n하고 결과를 문자열 화하십시오.