Scream ™ Winter Sale이 시작되었고 강렬한 미니멀리즘 액션 게임 인 Super Square를 시작했습니다 . 게임을 플레이하면 게임이 엄청나게 어려워 지거나 정말 나쁘다는 것을 깨닫게 됩니다. 특히, 매번 당신을 얻는 것처럼 보이는 이 "비"패턴 이 있습니다 ...

좌절, 당신은 자신에게 다른 도전을하기로 결정 : ASCII 아트에서 비 패턴을 그려!

입력

입력은 nSTDIN 또는 함수 인수를 통해 주어진 패턴의 크기를 나타내는 단일 양의 정수 입니다.

산출

출력은 지정된 크기의 레인 패턴으로, 문자열로 반환되거나 STDOUT을 통해 인쇄됩니다. 전체 이미지 앞뒤에 공백이 오거나 괜찮습니다. 또한 이미지를 화면 왼쪽으로 플러시 할 필요는 없지만 명확하게 식별 할 수 있어야합니다.

여기 있습니다 n = 10:

 ...................
| ----------------- |
|  ...............  |
| | ------------- | |
| |  ...........  | |
| | | --------- | | |
| | |  .......  | | |
| | | | ----- | | | |
| | | |  ...  | | | |
| | | | | - | | | | |
| | | | |   | | | | |
| | | | | - | | | | |
| | | |  ...  | | | |
| | | | ----- | | | |
| | |  .......  | | |
| | | --------- | | |
| |  ...........  | |
| | ------------- | |
|  ...............  |
| ----------------- |
 ...................

여기 있습니다 n = 5:

 --------- 
  .......  
 | ----- | 
 |  ...  | 
 | | - | | 
 | |   | | 
 | | - | | 
 |  ...  | 
 | ----- | 
  .......  
 --------- 

그리고 마지막으로 여기에 n = 1(가장 안쪽 두 벽) :

 - 

 - 

구성 (명확성을 위해)

경기 구역은 다음과 같이 두 쌍의 사분면으로 나뉩니다.

 AAAAAAAAA
B AAAAAAA B
BB AAAAA BB
BBB AAA BBB
BBBB A BBBB
BBBBB BBBBB
BBBB A BBBB
BBB AAA BBB
BB AAAAA BB
B AAAAAAA B
 AAAAAAAAA

상한 / 하한 사분면은 하이픈으로 표시된 수평 벽 -과 점으로 음영 처리 된 간격 사이를 번갈아 표시해야합니다 .. 왼쪽 / 오른쪽 사분면은 파이프로 표시되는 공간 과 수직 벽 사이에서 번갈아 가야합니다 |. 주 대각선은 비어 있으며 항상 공백으로 채워야합니다.

크기의 비 패턴 n에는 2n벽이 있으며 중앙에서 가장 가까운 상하부 사분면의 벽과 중심에서 멀어 질 때 사분면 사이에 벽이 번갈아 나타납니다.

채점

이것은 코드 골프이므로 가장 적은 바이트의 코드가 이깁니다.

CJam, 93 87 78 61 59 바이트

ri:K_+){K" |"*KKI-z:I-I2%:L+<SL>\+_W%L'-'.?I2*Ig-*@I0=>N}fI

nSTDIN을 통한 가치 창출

몇 가지 예 :

1
 - 

 - 
2
 ... 
| - |
|   |
| - |
 ... 
5
 --------- 
  .......  
 | ----- | 
 |  ...  | 
 | | - | | 
 | |   | | 
 | | - | | 
 |  ...  | 
 | ----- | 
  .......  
 --------- 
10
 ................... 
| ----------------- |
|  ...............  |
| | ------------- | |
| |  ...........  | |
| | | --------- | | |
| | |  .......  | | |
| | | | ----- | | | |
| | | |  ...  | | | |
| | | | | - | | | | |
| | | | |   | | | | |
| | | | | - | | | | |
| | | |  ...  | | | |
| | | | ----- | | | |
| | |  .......  | | |
| | | --------- | | |
| |  ...........  | |
| | ------------- | |
|  ...............  |
| ----------------- |
 ................... 

이것은 골프를 많이 할 수 있으며, 내일 가장 먼저 할 것입니다.

여기에서 온라인으로 사용해보십시오

하스켈 150 바이트

이길 수 없다는 것을 깨달았습니다. 첫 번째 codegolf를 게시하고 싶었습니다. : D

q n=putStr$unlines$iterate(\l->let[a,b]=if l!!0!!1=='-'then"|."else" -";c=[a:s++[a]|s<-l];t=' ':[b|x<-l!!0]++" "in t:c++[t])[" - ","   "," - "]!!(n-1)

GHCi에로드 하고 크기가 q n어디에 있는지 호출하여 사용하십시오 n.

몇 가지 예 :

*Main> q 1
 - 

 - 
*Main> q 2
 ... 
| - |
|   |
| - |
 ... 
*Main> q 5
 --------- 
  .......  
 | ----- | 
 |  ...  | 
 | | - | | 
 | |   | | 
 | | - | | 
 |  ...  | 
 | ----- | 
  .......  
 --------- 
*Main> q 10
 ................... 
| ----------------- |
|  ...............  |
| | ------------- | |
| |  ...........  | |
| | | --------- | | |
| | |  .......  | | |
| | | | ----- | | | |
| | | |  ...  | | | |
| | | | | - | | | | |
| | | | |   | | | | |
| | | | | - | | | | |
| | | |  ...  | | | |
| | | | ----- | | | |
| | |  .......  | | |
| | | --------- | | |
| |  ...........  | |
| | ------------- | |
|  ...............  |
| ----------------- |
 ................... 

누군가 더 잘할 수 있습니다. 저는 Haskell을 처음 사용합니다.

파이썬, 204 , 198,191 바이트

r=lambda a,b,d=' ':d.join((a,b,a[::-1]))
def f(s,i,n):d=[r(s[:i],'.-'[(n-i)%2]*((n-i)*2-1))];return i==n and[r(s,' '*(2*(i%2)+1),'')]or d+f(s,i+1,n)+d
g=lambda n:'\n'.join(f('| '*(n/2),0,n))

"r"은 선택적인 분리 문자를 사용하여 "a"로 둘러싸인 "b"를 기록하는 유틸리티 함수입니다 (예 : 람다 매개 변수는 기본값을 가질 수 있음). "f"는 재귀 적이며 각 수준에 대해 측면과 중간 부분을 생성합니다. "g"는 rain 함수이며 정수로 호출하여 요청 된 텍스트를 반환 할 수 있습니다.

Perl 5 : 74 바이트 (73 코드 + -p)

#!perl -p
s/.*/ /;$a=qw(- .)[$|--]x
s/.+/$"$&$"/g,s/^|\z/ $a 
/g,$"^="\\"for($_)x$&

입력에 매개 변수를 사용합니다 (올바른 기능에 필요한 줄 끝 문자).

$ perl rain.pl <<<"3"
 ----- 
  ...  
 | - | 
 |   | 
 | - | 
  ...  
 ----- 

언 골프 드 :

                         # Read the input line into $_ (-p)
s/.*/ /;                 # Replace the input with a space (plus the original eol), saves the parameter in $&
for(($_)x$&) {           # Iterate $& times without affecting $_
  $c=s/.+/$"$&$"/g;      # Add $" (initially space) at the start and the end of each line, stores number of lines in $c
  $a=("-",".")[$|--]x$c; # Set $a to $c times minus or dot using magic $| (which iterates over 1 and 0 on decrement)
  s/^|\z/ $a \n/g;       # Equivalent to $_=" $a \n$_ $a \n"
  $"^="\\";              # Alternate $" between space and bar using the string xor 
}
                         # Print $_ (-p)