소개

이 StackOverflow 질문 에서 부분적으로 영감을 받아 ASCII Lightning Bolt를 그립니다.

nSTDIN 또는 명령 행을 통해 양의 정수 를 취하고 아래에 ASCII Lightning Bolt를 출력 하는 프로그램을 작성하십시오 .

입력

n그릴 번개 지그재그 계층의 수를 나타내는 양의 정수 .

출력 예

n = 1

__
\ \
 \ \
  \ \
   \/

n = 2

__
\ \
 \ \
__\ \
\  __\
 \ \
  \ \
   \/

n = 3

__
\ \
 \ \
__\ \
\  __\
 \ \
__\ \
\  __\
 \ \
  \ \
   \/

n = 4

__
\ \
 \ \
__\ \
\  __\
 \ \
__\ \
\  __\
 \ \
__\ \
\  __\
 \ \
  \ \
   \/

. . . 기타

추가 사항

• n유일한 인수로 사용하고 문자열을 인쇄하거나 반환 하는 함수를 작성할 수 있습니다 .
• 후행 공백과 줄 바꾸기는 괜찮습니다.
• 지정된 패턴에 적절한 경우를 제외하고 선행 공백이 없습니다.
• 바이트 단위의 최단 코드가 이깁니다.

자바 201 196 189 186 182 바이트

분명히, 그러나 그것은 최고의하지 입니다 자바.

class I{public static void main(String[]a){System.out.print(("__\na a"+new String(new byte[new Byte(a[0])-1]).replace("\0","__a\\  __\\\n a")+"  a   \\/").replace("a","\\ \\\n"));}}

CJam, 41 바이트

":¡ö cQïO[nu÷&,"255b6b"
 _\/X"f='X/~ri(*\

아마도 몇 바이트를 더 짜낼 수는 있지만 압축이 있습니다. 나는 인쇄 할 수없는 기지를 골랐다.

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

번개 볼트로 분할되고 top + middle * (input-1) + bottom, 여기서 top, middle, bottom(기본 변환하여 압축)이다

__
\. 

  \
.\.\
__\.\
\..__ 

    \
.\.\
..\.\
...\/

(공백은 .s 로 표시됨 )

40 바이트

Optimizer 덕분에

"¹Ñ³Û- + ÎDx ^ áÐ"254b6b "
_ \ 0 / "f =) / ~ ri (* \

자바 스크립트 ( ES6 ) 76

템플릿 문자열을 사용하면 세 줄 바꿈이 중요하고 계산됩니다.

스 니펫 실행 테스트 (Firefox 만 해당)

f=n=>`__
1 1${`__1\\  __\\
 1`.repeat(n-1)}  1   \\/`.replace(/1/g,`\\ \\
`)

// TEST

go=_=>O.innerHTML=f(I.value)

go()

N: <input id=I value=3><button onclick='go()'>Test</button>
<pre id=O></pre>

PowerShell, 72 63 바이트

바보 같은 창문과 당신의 \ r \ n ... 이것은 67 59 바이트 일 수 있습니다 !

%{$a="\ \
";"__
$a"+" $a`__$a\  __\
"*($_-1)+" $a  $a   \/"}

PHP- 84 79 78 바이트

<?php
define('N',3); // <- didnt count these bytes as TS said I could take var N as input
?>
<?="__
\ \
 \ \ ".str_repeat("
__\ \
\  __\
 \ \ ",N-1)."
  \ \ 
   \/"

결과 소스를 보거나 랩핑하여 결과 <pre />를 확인하십시오. 코드에는 줄 바꿈이 필요합니다.
-1은로 옮겨 질 수 define있었지만 그 속임수로 간주했습니다.

1 차 개선 : \n실제 줄 바꿈으로 교체
2 차 : var를 정의 할 수 있으므로 CONTANT를 사용하여를 보호합니다 $. str_repeat
3 의 불필요한 공간 +3 : 실수로 -1을 제거했지만 <?=echo 대신에 바이트를 저장했습니다 .

Pyth, 60 54 바이트 (감사합니다 @isaacg)

Pyth에서의 첫 시도는 아마도 매우 나빴을 것입니다.

"__
\ \ "VtQ" \ \ 
__\ \ 
\  __\ ")" \ \ 
  \ \ 
   \/

여기에서 확인하십시오 .

CJam, 50 바이트

"__
\ \
"q~(" \ \
__\ \
\  __\
"*" \ \
"_S\"   \/"

여기 사용해보십시오

Brainfuck, 164 바이트

,<++++++++++++++++[>--->+>++++++>++>++++++>+++<<<<<<-]>->--->---->>->-<..<<<.>.>
.<.<.>>.<.>.<.<.<[>>>>..<<.>.<.<.>.>..>..<<.<.>>.<.>.<.<.<-]>>>..<.>.<.<.>>...<.
>>>.

의견 :

Initialise n and character set with i as counter
Memory = in♪\ _/
,<++++++++++++++++[>--->+>++++++>++>++++++>+++<<<<<<-]>->--->---->>->-

Draw top of lightning bolt
<..<<<.>.>.<.<.>>.<.>.<.<.<

Draw lightning bolt zigzags
[>>>>..<<.>.<.<.>.>..>..<<.<.>>.<.>.<.<.<-]

Draw lightning bolt tip
>>>..<.>.<.<.>>...<.>>>.

자,이 Brainfuck이 Java와 C #을 치는 방법은 무엇입니까?

> <> (물고기), 409 바이트

에 의해 실행 fish.py bolt.fish --value n경우 bolt.fish프로그램 이름이고 n당신의 양의 정수를 입력합니다.

\
\         "__"       a
\         "\ \"      a
\         " \ \"     a
\r1-:?!vr "__\ \"    a
\     !0  "\  __\"   a
\     !6  " \ \"  a04.
>r   9a.  "__\ \"    \
      /   "\  __\"  \ 
       /  " \ \"   \  
        / "  \ \" \   
         /"   \/"\    
                 aaaaa
|o|!~r           /    
         \        /   
        \          /  
       \            / 
      \              /

짧지는 않지만 시원해 보입니다. 나의 시도는 번개처럼 보이게하려고했다. 또한 완료시 항상 오류가 발생합니다.

펄, 69 + 1

-nstdin에서 입력을 페치 하기 위해 명령 행 스위치에 69자를 더한 1 .

$s="\\ \\$/";print"__$/$s $s".("__$s\\  __\\$/ $s"x--$_)."  $s   \\/"

사용 예 :

perl -ne '$s="\\ \\$/";print"__$/$s $s".("__$s\\  __\\$/ $s"x--$_)."  $s   \\/"' <<<"2"
__
\ \
 \ \
__\ \
\  __\
 \ \
  \ \
   \/

자바 스크립트 (ES6), 86

이길 수는 없지만 단선 솔루션을 좋아하고 슬래시가 싫어요.

f=n=>atob("X18KXCBc"+"CiBcIFwKX19cIFwKXCAgX19c".repeat(n-1)+"CiBcIFwKICBcIFwKICAgXC8")

C, 101 바이트

C에서 그렇게 독창적이지 않은 구현

f(n){puts("__\n\\ \\");for(;--n;puts(" \\ \\\n__\\ \\\n\\  __\\"));puts(" \\ \\\n  \\ \\\n   \\/");}

C #, 221 바이트

class C{static void Main(string[]n){int e=System.Int32.Parse(n[0]);var o=@"__{0}\ \{0} \ \{0}";while(e>1){o+=@"__\ \{0}\  __\{0} \ \{0}";e--;}System.Console.WriteLine(o + @"  \ \{0}   \/{0}",System.Environment.NewLine);}}

이것은 최고 또는 가장 작은 대답은 아니지만 시도해 볼 것이라고 생각했습니다. Fsacer의 답변 은 훨씬 짧으며 확인해야한다고 생각합니다. 방금 다른 방법으로 이것을하기로 결정했습니다.

C #, 166 바이트

class I{static void Main(string[]a){System.Console.Write(("__\na a"+"".PadLeft(int.Parse(a[0])-1).Replace(" ",@"__a\  __\
 a")+@"  a   \/").Replace("a",@"\ \
"));}}

편집 1 : 결과를 186B에서 173B로 개선
EDIT 2 : EDIT 3PadLeft 대신 에 사용하여 1B 저장 PadRight
: 3PadLeft 번째 매개 변수 를 삭제 하고 그대로 문자열 리터럴을 사용하여 8B 저장

Awk, 101 + 8 바이트

-v n=$1쉘에서 정수를 얻으려면 101 문자와 8을 더하십시오 .

'{l="\\ \\";print"__\n"l"\n "l;for(i=1;i<n;++i)print"__"l"\n\\  __\\\n "l}END{print"  "l"\n   \\/"}'

이 SE 사이트를 처음 사용 하면 해당 매개 변수를 계산해야하는지 확실하지 않습니다 .

언 골프

awk 
-v n=$1
'{
  l="\\ \\";
  print "__\n"l"\n "l;
  for(i=1; i<n; ++i)
    print "__"l"\n\\  __\\\n "l
}
END
{
  print "  "l"\n   \\/"
}'

사용 예 :

lightning() { echo | awk -v n=$1 '{l="\\ \\";print"__\n"l"\n "l;for(i=1;i<n;++i)print"__"l"\n\\  __\\\n "l}END{print"  "l"\n   \\/"}'; }
lightning 3
__
\ \
 \ \
__\ \
\  __\
 \ \
__\ \
\  __\
 \ \
  \ \
   \/

파이썬 97 82 78char :

print(("__\nl l"+"__l\  __\\\n l"*~-input()+"  l   \/").replace('l','\ \\\n'))

이것은 내 첫 번째 코드 골프입니다

@ (^ _ ^) @

여기서 테스트

C, 119108 바이트

p(t){for(;t;t/=4)putchar(" \\_\n"[t%4]);}main(c){for(p(13434);p(836),--c;p(57154842));p(265488);puts("/");}

첫 번째 시도, 150 바이트

v(a){putchar(a);}s(b){b--?v(32),s(b):v(92);}l(b){s(b);s(1);v(10);}main(c){for(puts("__\n\\ \\");l(1),--c;puts("__\\ \\\n\\  __\\"));l(2);s(3);v(47);}

main그래서 다음과 같이 실행할 수있는 int 인수를 수락하는 것은 : ./lightning . . .전달하는 4인수로.

파이썬 3 126 118 117 바이트

우리를 시작할 수있는 것.

n=int(input())
p=print
p('__\n\\ \\')
for i in[0]*~-n:p(r''' \ \
__\ \
\  __\
''',end='')
p(r''' \ \
  \ \
   \/
''')

파이썬 2, 76 바이트

print'__\n\ \\\n \ \\\n'+r'''__\ \
\  __\
 \ \
'''*~-input()+'  \ \\\n   \/'

처음 세 줄을 인쇄 한 후 다음 세 줄을 인쇄 한 다음 n-1마지막 두 줄을 인쇄하십시오. 한 번에 모두.

그리고 불행히도 정확히 같은 수의 바이트를 사용하는 대안을 시도해보십시오.

print('__\n| |'+'__|\  __\\\n |'*~-input()+'  |   \/').replace('|','\ \\\n')

F #, 98 자, 105 바이트

let l n=(@"__♪◙\z"+String.replicate(n-1)@" \z__\z\  __\♪◙"+ @" \z  \z   \/").Replace("z"," \\\n")

CJam 54 문자

가장 짧지는 않지만 오늘 CJam을 시작한 이래로 행복합니다.

rd(:T;{'__}:W~N{'\:XSXN}:V~SV{WVXSSWXNSV;N}T*SSVSSSX'/

시도 해봐

파스칼 : 149 개 142 141 137 문자

var n:Word;begin
Read(n);Writeln('__'#10'\ \'#10' \ \');for n:=2to n do Writeln('__\ \'#10'\  __\'#10' \ \');Write('  \ \'#10'   \/')end.

결국 파스칼의 유일한 골프 강점은 백 슬래시가 탈출 할 필요가 없다는 것입니다.

Google 스프레드 시트, 60 바이트

범위에서 입력 [A1]을 받아 호출 셀로 출력 하는 익명의 워크 시트 함수 .

="__
\ \
 \ \
"&REPT("__\ \
\  __\
 \ \
",A1-1)&"  \ \
   \/

Perl 5 , 58 + 1 ( -n) = 59 바이트

say'__
\ \
 \ \ 
'.'__\ \
\  __\
 \ \
'x--$_.'  \ \
   \/'

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

SpecBAS - 135 104 바이트

PRINT 문의 아포스트로피는 커서를 새로운 행으로 이동시킵니다.

SpecBAS를 사용하면를 통해 문자열에 ASCII 문자를 통합 할 수 #n있으므로 캐리지 리턴 (ASCII 13)이 내장되어 있습니다.

캐리지 리턴 및 기타 문자를 사용하여 문자열을 작성한 다음 REP$필요한 횟수만큼 반복하는 데 사용 되었습니다.

1 LET b$="\ \": INPUT n: PRINT "__"'b$+REP$(#13" "+b$+#13"__"+b$+#13"\  __\",n-1)'" ";b$'"  ";b$'"   \/"

PHP 155

$l=PHP_EOL;echo$l;echo "__$l";for($i=0;$i<$argv[1];$i++){if($i>=1)echo "__\\ \\$l\\  __\\$l";else echo "\\ \\$l";echo " \\ \\$l";}echo "  \\ \\$l   \\/$l";

언 골프 버전

$n = $argv[1];

echo PHP_EOL;
echo '__'.PHP_EOL;
for($i=0;$i<$n;$i++)
{
    if($i>=1) {
        echo '__\\ \\'.PHP_EOL.'\\  __\\'.PHP_EOL;

    }
    else
    {
        echo '\\ \\'.PHP_EOL;
    }   
    echo ' \\ \\'.PHP_EOL; 


}    
echo '  \\ \\'.PHP_EOL;
echo '   \\/';
echo PHP_EOL;

자바, 183180 바이트

class L{public static void main(String[]a){String b="__\n\\ \\\n \\ \\\n";for(int i=1;i<new Long(a[0]);++i)b+="__\\ \\\n\\  __\\\n \\ \\\n";System.out.print(b+"  \\ \\\n   \\/");}}

루아, 110 바이트

function l(n)print("__\n\\ \\\n \\ \\\n"..string.rep("__\\ \\\n\\  __\\\n \\ \\\n",n-1).."  \\ \\\n   \\/")end

레티 나 , 46 바이트

.+
__#r r$0x  r   \/
1x

1
__r\  __\# r
r
\ \#   

입력을 단항으로 사용합니다.

각 줄은 자체 파일로 이동 #해야하며 파일 에서 줄 바꿈으로 변경되어야합니다. 이것은 비현실적이지만 마커를 -s유지하면서 플래그를 사용하여 하나의 파일로 코드를 그대로 실행할 수 있습니다 #. #원하는 경우 가독성을 위해 출력에서를 개행으로 변경할 수 있습니다 . 예 :

> echo -n 11|retina -s lightning|tr # '\n'
__
\ \
 \ \
__\ \
\  __\
 \ \
  \ \
   \/

알고리즘은 매우 간단합니다. 라인 쌍 (정규-대체 쌍)은 다음과 같은 대체 단계를 수행합니다.

• 번개의 상단과 하단으로 서라운드 입력.
• 1단항 입력에서 뺍니다 .
• 모든 단항 숫자를 번개의 중간 부분으로 변경하십시오.
• \ \번개 의 압축 된 부분을 압축 해제하여 원하는 출력을 얻습니다.

파워 쉘, 59 바이트

'__
\ \'
,' \ \
__\ \
\  __\'*--$args[0]
' \ \
  \ \
   \/'

테스트 스크립트 :

$f = {

'__
\ \'
,' \ \
__\ \
\  __\'*--$args[0]
' \ \
  \ \
   \/'

}

&$f 1
&$f 2
&$f 3
&$f 4

산출:

__
\ \
 \ \
  \ \
   \/
__
\ \
 \ \
__\ \
\  __\
 \ \
  \ \
   \/
__
\ \
 \ \
__\ \
\  __\
 \ \
__\ \
\  __\
 \ \
  \ \
   \/
__
\ \
 \ \
__\ \
\  __\
 \ \
__\ \
\  __\
 \ \
__\ \
\  __\
 \ \
  \ \
   \/

설명:

이 스크립트는 전통 top+ middle+ bottom입니다. 한 가지 현명한 일이 있습니다. 중간 문자열 앞의 쉼표는 문자열이 아닌 배열 요소를 반복합니다. 따라서 각각 middle은 새 줄에 표시됩니다.