Brian & Chuck , 31 바이트

,{-?>}-):(=?
#}<<.{?_<.<.<.<.<.

바이트 값 의 형태로 입력, 예를 들어 입력 !은 길이가 33 인 뱀을 제공합니다.

온라인으로 사용해보십시오!

오랜만이야…

설명

빠른 Brian & Chuck 입문서 :

• 프로그램의 첫 번째 줄은 Brian이고 두 번째 줄은 Chuck입니다.
• Brian과 Chuck은 Brainfuck과 같은 두 인스턴스입니다. 주요 문제점은 척의 프로그램이 브라이언의 테이프이고 그 반대도 마찬가지입니다. 테이프 헤드 / 명령 포인터는 각 테이프의 첫 번째 셀에서 시작되고 실행은 Brian에서 시작됩니다.
• 명령은 몇 가지 차이점이 있습니다. Brian만이 ,(입력)을 사용할 수 있고 Chuck만이 .(출력)을 사용할 수 있습니다 . 이외에도 <하고 >있다 {그리고 }다음 제로 셀로 테이프 헤드를 이동하는 (또는 경우에 {테이프의 좌단 방식에는 제로 셀이없는 경우). 대신에 현재 셀이 0이 아닌 경우 [...]제어 플로우가 ?다른 인스턴스로 제어를 전환하는 것이 유일한 제어 플로우입니다 . 다른 셀에서 첫 번째로 실행 된 명령어는 조건 이후의 명령어입니다. 그리고 마지막으로 _편의상 널 바이트의 별명입니다.

이제 코드입니다. 브라이언은 이것으로 시작합니다 :

,{-?

이것은 입력을 Chuck의 첫 번째 셀로 읽은 다음 테이프 헤드를 왼쪽으로 이동하고 {(지금은 아무것도하지 않음) -값이 여전히 0이 아닌 경우 Chuck에 대한 제어를 전환하기 전에 입력을 줄 입니다. 메인 루프가 시작됩니다. 그런 다음 척은이 비트를 실행합니다.

}<<.{?

이렇게하면 Brian의 테이프 헤드가 맨 끝으로 이동하고 두 개의 셀이 왼쪽으로 이동 한 =다음 테이프 헤드의 왼쪽 끝까지 인쇄 된 다음 컨트롤이 Brian으로 다시 전환됩니다. 이것이 일반적으로 B & C에서 루프가 작동하는 방식입니다.

입력이 0으로 줄어들면, ?Brian의 테이프는 아무 것도하지 않습니다. 그런 다음 Brian은이 부분을 실행합니다.

>}-):(=?

는 ):(=실제 코드 그냥 그래서, 어떤 작전 없습니다 >}-?. 우리와 제로 세포 떨어져 이동 >까지 이동, _와 }, 그 영이 아닌 척에 스위치를 만들기 위해를 감소 ?. 그런 다음 척의 마지막 비트가 실행됩니다.

<.<.<.<.<.

이렇게하면 Chuck 앞에 5 개의 문자가 인쇄 =(:)-됩니다. =메인 루프는 N-1입력을 위해서만 실행되므로 다른 것을 인쇄해야합니다 N.

답변

Àé=A(:)-

À        "Arg1 times:
 é=      "Insert an '='
   A(:)- "Append the head

.+
$*=(:)-

lambda n:"="*n+"(:)-"

f n=('='<$[1..n])++"(:)-"