젤리 , 40 39 36 바이트

“ḥ%DtƊVḍI’ḃ9W;“|_/-\/\|‘Ė¤y@\FỌ»⁶s4Y

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

작동 원리

“ḥ%DtƊVḍI’

bijective base-250 리터럴입니다. 각 문자는 젤리 코드 페이지의 코드 포인트에 해당 합니다 . 결과는 정수 13192938935880491074 입니다.

          ḃ9

생성 된 정수를 bijective base 9로 변환하여 정수 배열
[9, 6, 7, 9, 6, 2, 2, 7, 1, 5, 3, 8, 1, 3, 5, 8, 4, 4, 4, 4] . 정수 는 공백을 나타내는 9를 제외하고 스트로크 순서에 해당 합니다.

            W

생성 된 배열을 싱글 톤 배열로 래핑합니다.이 배열은 지금 생성 할 배열 앞에 추가해야합니다.

              “|_/-\/\|‘Ė¤

다음과 같이 작동합니다. ¤왼쪽의 두 링크를 닐라 딕 체인으로 결합합니다. 첫 번째 “|_/-\/\|‘는 지정된 문자의 코드 포인트를 생성하고 [124, 95, 47, 45, 92, 47, 92, 124]를 생성 합니다. 그런 다음 Ė코드 포인트를 열거하여
[[1, 124], [2, 95], [3, 47], [4, 45], [5, 92], [6, 47], [7, 92] , [8, 124]] . [n, c] 쌍 은 n ^번째 스트로크가 코드 포인트 c 인 ASCII 문자가 됨을 의미합니다 .

             ;

생성 된 배열을 연결합니다. 결과는 배열
[[9,6,7,9,6,2,2,7,1,5,3,8,1,3,5,8,4,4,4,4], [1,124)입니다. ], [2,95], [3,47], [4,45], [5,92], [6,47], [7,92], [8,124]] .

                          y@\

y교환 된 인수 ( @) 와 음역 ( )을 사용하여 누적 (즉, 모든 중간 단계 표시) 축소를 수행합니다 . 첫 번째 단계에서, 예를 들어, 원래 배열의 각 1 을 124로 대체합니다 . 이는 문자 | .

                             FỌ

결과를 평평하게하고 모든 코드 포인트를 해당 ASCII 문자로 바꿉니다. 모든 단계에서,이 코드 포인트 일부 인쇄 할 수없는 문자를 생성합니다 (1) 에 9 .

                               »⁶

공백 문자로 문자 별 최대 값을 가져와 인쇄 할 수없는 모든 문자를 공백으로 바꿉니다.

                                 s4Y

생성 된 문자열을 길이가 4 인 청크로 분할하고 구분자로 줄 바꿈과 결합합니다.

답변

for(i=8;i--;)console.log(`834
3554
2610
2160
7777`.replace(/./g,c=>'|/|/\\_\\- '[c<i?8:c]))

@set s=@set "
%s%g=@goto 1
%s%r=
%s%c=
%s%u=|
%s%l=|
%s%f=
@for /l %%i in (1,1,7)do @call:%%i
%s%u=|\/|
%s%l=|/\|
%g%
:7
%s%u=|\/
%s%l=|/\
%g%
:6
%s%f=----
%g%
:5
%s%u=|\
%s%l=| \
%g%
:4
%s%c=/__\
%g%
:3
%s%r= /\
%s%c=/  \
%g%
:2
%s%r= /
%s%c=/
:1
@for %%l in ("%r%" "%c%" "%u%" "%l%" "%f%")do @echo(%%~l

main(){char *p,n;for(n='B';n++<'J';)for(p="ZFEAFDDEAGCHIAGHCIABBBBAA";*p;p++)putchar(" \n-\\_\\/|/|"[(*p<n)**p&15]);}

/!/\/\///*/----
 !@/\\\\!$/ @@!^/
*@\/@@
@\/__@@
/*@
 $
*__
$
 $
*$
 __@
$
 $^$
 $^|@
|$^|@\/
|\/@^|@\/|
|\/@|
*

for($i=8;$i--;)for($p=24;$p--;)echo"|/|/\\_\\-
"[($c="977779061290162945539438"[$p])<$i?8:$c];

function f($v,$w){global$x,$y,$i;imageline($i,$x,$y,$x=$v,$y=$w,1);ob_start();imagepng($i);$s=ob_get_clean();ob_end_clean();echo'<img src="data:image/png;base64,',base64_encode($s),'" > ';}$i=imagecreate($w=9,$h=$w+$z=$w/2);imagecolorallocate($i,255,255,255);f(--$w,$y=--$h);f(0,$z);f($w,$z);f($w/2,0);f(0,$z);f(0,$h);f($w,$z);f($w,$h);

function f($v,$w)
{
    global$x,$y,$i;
    imageline($i,$x,$y,$x=$v,$y=$w,1);      // draw line, set end coords as new start coords
    ob_start();imagepng($i);$s=ob_get_clean();ob_end_clean();           // get image output
    echo'<img src="data:image/png;base64,',base64_encode($s),'" > ';    // print <img> tag
}
// calculate dimensions, create image, allocate background color (foreground implicitly black)
$i=imagecreate($w=9,$h=$w+$z=$w/2);imagecolorallocate($i,255,255,255);
// paint lines: implicit `$x=0`
f(--$w,$y=--$h);f(0,$z);f($w,$z);f($w/2,0);f(0,$z);f(0,$h);f($w,$z);f($w,$h);