태스크

이 작업은 7- 세그먼트 디스플레이 의 128 가지 가능한 상태 중 하나를 표시하는 것 입니다.

프로그램은 0또는 의 7 자 ( "비트") 문자열을 허용해야합니다 1. 입력의 첫 번째 비트는 다음 그림의 세그먼트 A에 해당하고 두 번째는 B에 해당합니다 (무시 dp).

단일 유니 코드 또는 ASCII 기호, ASCII 아트 , 그래프 또는 기타 모든 것을 표시하는 방법은 사용자에게 달려 있습니다. 그러나 각 입력에는 고유 한 출력이 있어야합니다. 당신이 멋진 무언가를 생각해 내면 나는 당신이 몇 가지 예를 보여줌으로써 공감대를 수확 할 수 있다고 확신합니다.

디스플레이의 가능한 모든 128 가지 상태는 다음과 같습니다.

규칙

• 코드 골프
• 내가 말했듯이 모든 종류의 출력이 허용되지만 지정하면 좋을 것입니다.
• 입력은 stdin 또는 명령 행 인수 일 수 있습니다.

예

입력

1101101

산출

2

 _   ╺┓  ╒╗   ---
 _|  ┏┛  ╔╝     |
|_   ┗╸  ╚╛   ---
              |
              ---

J (51)

1 2 1#"1[5 3$' #'{~,|:>0;(88707#:~7#7){>".&.>1!:1[1

산출:

1101101
 ## 
   #
 ## 
#   
 ## 

C, 106

프로그램 "W00WG5WW1GW66WG4WW2GW33WG"의 이름을 바꿀 수있는 경우 크기는 74 자입니다.

main(int i,char**s){
    for(s[0]="W00WG5WW1GW66WG4WW2GW33WG";i=*s[0]++;putchar(s[1][i&7]-49?i==71?10:32:42));
}

달리는:

./a.out 1101101
 ** 
   *
 ** 
*   
 ** 

노트:

'W'및 'G'(0x47 및 0x57)는 값 & 7 = 7이되도록 선택됩니다. 즉, 입력 문자열을 종료하는 널 문자를 안전하게 색인화합니다.

브레인 씨발-224

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

느낌표를 사용하여 인쇄합니다.

 ! 
! !
 !
! !
 !

가장 읽기 쉽지는 않지만 너무 끔찍한 것도 아닙니다.

이것이 마지막 장소가 아닌지에 놀랐습니다.

추신 121 107

1 12 moveto{}5 0{0 -5 rmoveto}0 5 0 5 -5 0 0 -5 0 -5 5 0
n{49 eq{rlineto}{rmoveto}ifelse exec}forall stroke

n처리 할 문자열로 정의 해야 합니다.

gs -g7x14 -sn=1101101 lcd.ps

얻을

완전한 세트는

티카 : 135 (129) (118), 화상 표시 장치

Image[MorphologicalComponents@Import@"http://goo.gl/j3elE" /. 
      Thread[Range@7 -> IntegerDigits[#, 2, 7][[{7, 2, 6, 1, 3, 5, 4}]]]] &

"명확성을 위해"추가 된 공백

편집하다

까다로운 동료 사이트 사용자의 경우 : 외부 마스크를 사용하지 않는 경우 :

Image[MorphologicalComponents[ColorNegate@Rasterize@8, CornerNeighbors -> False] /. 
    Thread[Range@7 ->IntegerDigits[#, 2, 7][[{7, 2, 6, 1, 3, 5, 4}]]]] &

APL, 58 55

' _|'[1+3 3⍴0,x[1],0,(x←1 2 2 1 2 2 1×⍞='1')[6 7 2 5 4 3]]

입력 예 :

1101101

산출:

 _ 
 _|
|_ 

⍞='1' 입력을 문자형 배열로 가져 와서 숫자 형 배열로 변환합니다.

1 2 2 1 2 2 1×⍞='1'해당 배열을 0공백, 1for _, 2for 로 변환합니다.|

(x←1 2 2 1 2 2 1×⍞='1')[6 7 2 5 4 3]해당 배열을 변수에 할당하고 x세그먼트 F, G, B, E, D, C를 나타내도록 재정렬

0,x[1],0,(x←1 2 2 1 2 2 1×⍞='1')[6 7 2 5 4 3] 블랭크, 세그먼트 A 및 다른 블랭크를 전면에 연결

3 3⍴0,x[1],0,(x←1 2 2 1 2 2 1×⍞='1')[6 7 2 5 4 3] 3x3 매트릭스로 재구성

1+3 3⍴0,x[1],0,(x←1 2 2 1 2 2 1×⍞='1')[6 7 2 5 4 3] 1 기반 인덱싱으로 변환

마지막으로 문자열 ' _|'을 사용하여 색인을 문자로 변환

편집하다

' _|'[1+3 3⍴(0,1 2 2 1 2 2 1×⍞='1')[1 2 1 7 8 3 6 5 4]]

a 0를 배열 앞에 연결하고 중복 인덱스를 사용하여 3 개의 문자 를 제거하여 변수 할당을 방지

PHP 66 바이트

<?for(;11>$i;)echo++$i&3?$argv[1][md5(¡æyÚ.$i)%8]?$i&1?~ƒ:_:~ß:~õ;

약간의 사용하여 개선 md5: 마법 공식을하지만, 3 추가 바이너리 바이트가 필요합니다
¡, æ그리고 Ú문자가 161, 각각 230, 218을. 직접 복사하여 ANSI 형식으로 저장하면 그대로 작동합니다.

PHP 73 (70) 바이트

<?for($s=327638584;3<$s;)echo++$i&3?$argv[1][7&$s/=8]?$i&1?'|':_:' ':'
';

이진 문자 세 개를 허용하면 70 바이트 로 줄일 수 있습니다 .

<?for($s=327638584;3<$s;)echo++$i&3?$argv[1][7&$s/=8]?$i&1?~ƒ:_:~ß:~õ;

여기서 ƒ, ß및 õ문자는 각각 문자 131, 223 및 245입니다.

명령 행 인수로 입력을받습니다. 샘플 사용법 :

$ php seven-seg.php 1101101
 _
 _|
|_

$ php seven-seg.php 0111011

|_|
 _|

JavaScript + jQuery + HTML + CSS ( 210 201)

이 솔루션은 CSS 스프라이트와 이미지를 예로 사용합니다 .

HTML (3)

<a>

CSS ( 82 71)

" background : url "트릭에 대한 xem 덕분에 :

a{background:url(//bit.ly/VesRKL);width:13px;height:23px;display:block}

JavaScript (가독성을 위해 여기에 추가 된 줄 바꿈을 제거한 후 125)

i=prompt();
x=-parseInt(i.substr(0,3),2)*23;
y=-parseInt(i.substr(3),2)*13.75;
$('a').css('background-position',y+'px '+x+'px');

온라인 테스트 : http://jsfiddle.net/zhqJq/3/

R (65 자) :

plot((3^(1i*1.5:-4.5)*(1:7!=7)),col=strsplit(readline(),'')[[1]])

일부 초월 숫자에 대한 느슨한 근사법에 의존합니다 ...

파이썬 2-65

s=raw_input()+'0\n'
for i in`0x623C239E38D2EAA1`:print s[int(i)],

예:

echo 1101101|python2 7seg.py
0 1 0 
0 0 1 
0 1 0 
1 0 0 
0 1 0

포스트 스크립트 : 53 바이너리, 87 ASCII 52 바이너리, 86 ASCII

이진 토큰을 사용하는 프로그램의 Hexdump :

$ hexdump -C lcd_binary.ps 
00000000  28 34 34 30 34 30 38 30  34 30 34 30 30 30 30 34  |(440408040400004|
00000010  30 34 30 34 34 34 34 34  38 34 38 30 38 29 7b 7d  |0404444484808){}|
00000020  92 49 6e 7b 92 70 31 92  04 92 96 92 6b 92 63 92  |.In{.p1.....k.c.|
00000030  a7 7d 92 49                                       |.}.I|
00000034

이 파일 을 다운로드 하여 사용해보십시오.

ASCII 토큰 사용 :

(4404080404000040404444484808){}forall
n{not 1 and setgray moveto lineto stroke}forall

첫 번째 forall루프는 필요한 모든 좌표를 스택에 넣습니다. 필요한 공간을 최소화하기 위해 좌표가 문자열로 저장됩니다. 좌표는 역순으로, 즉 마지막 4 개의 문자는 세그먼트 A (0,8)에 (4,8)대한 것입니다.이 세그먼트 에 대한 행을 그립니다 (실제로 forall모든 ASCII 코드를 스택에 넣기 때문에 모든 좌표에 48을 추가해야 함 ).

두 번째 는 입력 문자열에서 forall모든 0s와 1s를 반복 하여 회색 값으로 바꿉니다. 0s는 흰색 (회색 값 1)으로, 1s는 검은 색 (회색 값 0)으로 그려집니다. 그런 다음 forall스택에 첫 번째 루프가 남긴 좌표를 사용 하여 선을 그립니다.

Geoff Reedy와 마찬가지로 Ghostscript를 사용하여 프로그램을 호출하십시오.

gs -sn=1101101 lcd.ps

다음이 표시됩니다.

APL 101 86 73 69

m←45⍴' '⋄m[¯40+⎕av⍳(⍎∊3/' ',¨⍕⍞)/')*+16;EJOQRSAFK-27=>?']←'⎕'⋄9 5⍴m

⍞를 통해 화면에서 입력

1101101

다음과 같이 공백과 ⎕으로 구성된 9x5 문자 행렬을 생성합니다.

 ⎕⎕⎕
     ⎕
     ⎕
     ⎕
 ⎕⎕⎕
⎕
⎕
⎕
 ⎕⎕⎕

7 자리 숫자는 파티션 벡터로 변환되어 ⎕ 좌표를 선택합니다.

매쓰 112 103 100 96 그래프를 사용하여 88

HighlightGraph[z=GridGraph@{3,2},Pick[EdgeList[z][[{3,4,1,2,6,7,5}]],Characters@#,"1"]]&

Using it to show a calculator display

l = {7-> 7, 1-> 6, 0-> 63, 8-> 127, 9-> 111,3 -> 79, 5-> 109,  2-> 91, 4-> 102, 6-> 125}; 
GraphicsRow[
  HighlightGraph[z = GridGraph[{3,2}, EdgeStyle-> {White}, GraphHighlightStyle-> {"Thick"}], 
    EdgeList[z][[{3, 4, 1, 2, 6, 7, 5}]][[IntegerDigits[#, 2, 7] Range@7]]] & /@
            (IntegerDigits[8736302] /. l)]

파이썬 (107)

확실히 더 골프.

a=map(int,raw_input())
for i in(0,6,3):print' .. '*a[i]+('\n'+' .'[a[5-i/6]]+'  '+' .'[a[1+i/6]])*(2*(i!=3))

산출:

1101101
 .. 
   .
   .
 .. 
.   
.   
 .. 

설명:

a is a list of booleans extracted from the input.
When you multiply a string with a number, it will return the string repeated (number) times.
If that number happens to be zero, it returns an empty string.
i is iterated through 0 (pos A), 6 (pos G), and 3 (pos D).
' .. ' will print either section A, G, or D, depending on the value of i.
([string here])*(2*(i!=3)) will print [string here] twice only if i!=3.
Breaking down [string here]:
 - '\n' will print a newline for each repetition.
 - '  ' is the null space between horizontal sections.
 - ' .'[(bool)] will return either ' ' if (bool) is 0, and '.' if (bool) is 1.
 - 5-i/6 will return 5 if i=0 and 4 if i=6. a[5] is section F and a[4] is section E.
 - 1+i/6 will return 1 if i=0 and 2 if i=6. a[1] is section B and a[2] is section C.

Python 2.7 (93 자) :

print (' {0}\n{5} {1}\n {6}\n{4} {2}\n {3}').format(*map(lambda x:int(x)and'*'or' ',raw_input()))

설명:

stdin 입력의 경우 임시 3 항 연산자를 사용 *하여 true를, false를위한 공간을 제공하십시오. 해당 값을 가져 와서 7 자리 표시 형식의 형식 명령문에 연결하십시오. 디스플레이가 다음과 같이 작동하면 최대 83 자입니다.

 a
b c
 d
e f
 g

그러나 주문은 더 길어집니다. 누구든지이 문제를 해결할 방법이 있습니까?

예:

$ ./7seg.py
111000

 *
  *

  *

$ ./7seg.py


1111111

 *
* *
 *
* *
 *

나는 우리가 lispy 답변이 필요하다고 생각했습니다 ...

클로저, 159 자

(print(apply str(flatten(interpose\newline(partition 3(map(fn[x](if(= x\1)\o" "))(str" "(apply str(interpose" "(map(vec(read-line))[0 5 1 6 4 2 3])))" ")))))))

위의 내용은 REPL에서 실행되며 정답을 제공합니다. 예를 들면 다음과 같습니다.

1111111
 o 
o o
 o 
o o
 o 

작은 수정으로 숫자를 던지기 :

(doseq [i ["1111110" "0110000" "1101101" "1111001" "0110011" "1011011" "1011111" "1110000" "1111111" "1111011"]]
(println (apply str(flatten(interpose\newline(partition 3(map(fn[x](if(= x\1)\o" "))(str" "(apply str(interpose" "(map(vec i)[0 5 1 6 4 2 3])))" "))))))) 
(println))

수율 :

 o 
o o

o o
 o 


  o

  o


 o 
  o
 o 
o  
 o 

 o 
  o
 o 
  o
 o 


o o
 o 
  o


 o 
o  
 o 
  o
 o 

 o 
o  
 o 
o o
 o 

 o 
  o

  o


 o 
o o
 o 
o o
 o 

 o 
o o
 o 
  o
 o 

nil

읽기 쉽지 않지만 거기에 있습니다!

자바 스크립트 123

s=prompt(i=o='');for(m=' 0516423';i++<15;i%3==0?o+='\n':1)o+=' ─│'[~i%2&(A=+s[+m[~~(i/2)]])+(A&+'110'[i%3])];console.log(o)

"on"상태에 하나의 문자 만 사용하면 문자 수를 낮출 수 있습니다 (101).

s=prompt(i=o='');for(m=' 0516423';i++<15;i%3==0?o+='\n':1)o+=' ■'[~i%2&s[+m[~~(i/2)]]];console.log(o)

포스트 스크립트 136

승자가 아니라 다른 접근 방식.

15 string exch{1 and 255 mul}forall
[7 3 9 13 11 5 1]{count 1 sub index 3 1 roll exch put}forall
3 5 8[.02 0 0 .05 0 0]{}image showpage

입력 문자열이 스택에있을 것으로 예상합니다.

$ echo '(1101101)'|cat - 7seg.ps |gs -sDEVICE=png16 -sOutputFile=6c.png -

이것은 훨씬 더 나쁘다. "이진"비트 맵을 만들기 위해 294 . 각 행이 짝수 바이트로 채워져 있음을 기억하기 위해 시간이 걸렸습니다. 따라서 3x5 비트 맵은 5 바이트이며 3msb 비트는 중요합니다.

2#1101101
(12345)exch
2 copy 64 and 0 exch put %A
2 copy 2 and 6 bitshift 2 index 32 and or 1 exch put %F B
2 copy 1 and 6 bitshift 2 exch put %G
2 copy 4 and 5 bitshift 2 index 16 and 1 bitshift or 3 exch put %E C
2 copy 8 and 3 bitshift 4 exch put
pop
3 5 1[.02 0 0 .02 0 0]{}image showpage

출력은 다른 것과 마찬가지로 추악합니다. :(

좋아 여기에 좋아 보이는 것이 있습니다. 190

편집 : 거꾸로되었습니다. 지금 수정했습니다.

(1101101)
{neg 49 add 255 mul
1 string dup 0 4 3 roll put}forall
(\377){@/g/f/e/d/c/b/a}{exch def}forall
@ a a @
b @ @ f
b @ @ f
@ g g @
c @ @ e
c @ @ e
@ d d @
4 7 8[.01 0 0 .01 0 0]{}image showpage

매스 매 티카 264

출력을 올바르게 표시하려면 많은 바이트가 필요하므로 이번에는 시가가 필요하지 않습니다. 그러나 어쨌든 자세한 (264 문자) 코드가 있습니다.

{a, b, c, d, e, g} = {{-1, 5}, {1, 5}, {1, 3}, {1, 1}, {-1, 1}, {-1, 3}};
f@n_ := Graphics[{Yellow, Thickness[.1], CapForm["Round"],
   Line /@ {{g, c}, {g, a}, {g, e}, {e, d}, {d, c}, {c, b}, {b, a}}[[Flatten@
   Position[IntegerDigits[n, 2, 7], 1]]]}, 
   Background -> Blue, PlotRange -> {{-1, 1}, {1, 5}}, PlotRangePadding -> 1]

완전한 문자 세트 :

GraphicsGrid[Partition[Table[f[p], {p, 0, 128}], 16]]

숫자 :

{f[63], f[6], f[91], f[79], f[102], f[109], f[125], f[7], f[127], f[111]}

PHP-155 자

<?php
$y=array("   \n"," - \n","   \n","  |\n","|  \n","| |\n"); $x = $argv[1]; echo $y[$x[0]].$y[2*$x[6]+$x[2]+2].$y[$x[7]].$y[2*$x[5]+$x[3]+2].$y[$x[4]];

PHP 5.4 유형 배열 선언을 사용하면 150 자이지만 랩톱에 설치하지 않았으므로 테스트 할 수 없었습니다.

샘플을 넣습니다.

설명:

먼저 7 세그먼트 디스플레이를 5 개의 행과 3 개의 열로 나누었습니다. 1 열, 3 열 및 5 열의 가운데 열에는 '-'가 있고 그렇지 않으면 공백이 있습니다.

두 번째와 네 번째 행에는 파이프 '|'가 있습니다. 첫 번째와 마지막 열의 문자. 이제이 문자들의 존재는 입력 값에 의해 안내되어야합니다.

기본적으로 두 개의 조회 테이블 인 조회 테이블을 작성했습니다. 첫 번째, 세 번째 및 다섯 번째 행의 값을 계산하기위한 첫 번째 것. 그리고 2 번째와 4 번째 행을 계산하기 위해 오프셋 2 (3 번째 항목)에있는 다른 하나.

자바-204 자

class A{public static void main(String[]a){char[]c=new char[7];for(int i=0;i<7;i++)c[i]=a[0].charAt(i)==49?i%3==0?95:'|'):32;System.out.printf(" %c %n%c%c%c%n%c%c%c",c[0],c[5],c[6],c[1],c[4],c[3],c[2]);}}

샘플 출력 :

 _ 
 _|
|_ 

올바르게 포맷 :

class A {
    public static void main(String[] a) {
        char[] c = new char[7];
        for (int i = 0; i < 7; i++)
            c[i] = a[0].charAt(i) == 49 ? (i % 3 == 0 ? 95 : '|') : 32;
        System.out.printf(" %c %n%c%c%c%n%c%c%c", c[0], c[5], c[6], c[1], c[4], c[3], c[2]);
    }
}

for 루프를 피할 수 있기를 정말로 원하지만 다른 몇 가지를 시도했지만 모두 더 길었습니다. 이 작업을 수행하는 더 좋은 방법이있을 수 있지만 이것이 코드 골프에 대한 첫 번째 시도입니다. (그리고 Java는 최악의 언어와 같기 때문에 이것이 흥미로울 것이라고 생각했습니다.) Brainfuck조차도 나를 이겼지 만 적어도 내 출력은 더 좋아 보입니다.

편집 : 수업에서 "공개"를 제거 할 수 있습니다, 7 문자를 저장합니다!

printf를 보여 주셔서 감사합니다. (18 문자 절약)

출력 형식을 다시 작성하고 문자 리터럴을 10 진수로 변경하고 12자를 저장했습니다.

VBA-263

추악하지만 작동합니다. 올바른 비트 순서를 보는 데 문제가 있으므로 다른 사람의 대답을 추론하고 있습니다. 해당 부분이 잘못 되더라도 코드 길이는 동일하게 유지되어야합니다.

Sub d(b)
Dim c(1 To 7)
For a=1 To 7
c(a)=Mid(b,a,1)
Next
x=" - "
y="|"
z=" "
w="   "
v=vbCr
MsgBox IIf(c(1)=1,x,w) & v & IIf(c(6)=1,y,z) & z & IIf(c(2)=1,y,z) & v & IIf(c(7)=1,x,w) & v & IIf(c(5)=1,y,z) & z & IIf(c(3)=1,y,z) & v & IIf(c(4)=1,x,w)End Sub

VBScript-178 자

m=Split("2 7 11 10 9 5 6")
s=" _ "&vbCr&"|_|"&vbCr&"|_|"
For x=1 To 7
If Mid(WScript.Arguments.Item(0),x,1)=0 Then r=m(x-1):s=Left(s,r-1)&" "&Right(s,Len(s)-r)
Next
MsgBox s

CJam-29

l0N]s7078571876784728737Ab\f=

CJam은 GolfScript- http: //sf.net/p/cjam과 비슷한 새로운 언어 입니다. 설명은 다음과 같습니다.

l입력에서 줄을 읽습니다.
0숫자 0
N은 줄 바꿈 문자열에 사전 초기화 된 변수입니다
]스택의 요소를 배열
s로 모으고 값 (배열)을 문자열로 변환하여 0과 줄 바꿈을 주어진 입력
7078571876784728737에 추가합니다. 숫자 (파이썬에서 사용한 것과 같은 숫자이지만 16 진수)
A는 10으로 사전 초기화 된 변수
b이며 기본 변환을 수행하여 배열을 생성합니다 [7 0 7 8 ... 3 7]
\스택의 마지막 두 값을 바꿉니다. 입력 문자열에 연산자 (여기서 색인 배열 액세스)를
f=적용하고 =(제로와 줄 바꾸기 포함) 각각의 숫자 7, 0, 7, ...
색인 7은 추가 된 0에, 8은 추가 된 줄 바꿈에 해당합니다.

내 파이썬 솔루션은 정확히 똑같은 일을합니다 (문자 분리는 문자열 변환을 통해 수행됩니다 제외)

VBA, 188 자

참고 하나는해야한다는 것을 입력 의무적으로 공백을 포함하면 188 문자 - 당신이 VBA 편집기로 복사 할 때 IDE가 그것을 확장합니다.

Sub f(i)
Dim c() As Byte
m=Split("1 6 10 9 8 4 5")
c=StrConv(" _  |_| |_|",128)
c(3)=10
c(7)=10
For x=1 To 7
If Mid(i,x,1) = 0 Then c(m(x-1))=32
Next
MsgBox StrConv(c,64)
End Sub

안타깝게도 VBScript에는 강력한 형식의 바이트 배열이 없거나이 방법을 사용하면 훨씬 짧을 수 있습니다.

자바 스크립트 (ECMAScript 2016)-108 바이트

console.log(([a,b,c,d,e,f,g]=[...prompt()].map((x,i)=>+x?'_||'[i%3]:' '),` ${a}
${f}${g}${b}
${e}${d}${c}`))

이것은 아마도 더 골프를 칠 수는 있지만 아무것도 생각할 수 없습니다.

자바 스크립트, 148 바이트

e=>(e[0]==1?" #\n":"\n")+(e[5]==1?"#":" ")+(e[1]==1?" #\n":"\n")+(e[6]==1?" #\n":"\n")+(e[4]==1?"#":" ")+(e[2]==1?" #\n":"\n")+(e[3]==1?" #\n":"\n")

온라인으로 사용해보십시오! _{(Footer is Node.js to read .input.tio)}

이진 플래그로 ABCDEFG의 입력을 허용하고 다음을 리턴합니다.

 #
# #
 #
# #
 #

SmileBASIC, 136 바이트

DIM A[7,2]COPY A,@L@L?DATA.,1,1,3,4,3,6,1,4,0,1,0,3,1INPUT X$FOR I=0TO 6M=I MOD 3GBOX A[I,1],A[I,0],A[I,1]+!M,A[I,0]+!!M,-VAL(X$[I])NEXT

출력은 그래픽입니다.

05AB1E , 4 바이트

C₄+ç

온라인으로 시도 하거나 가능한 모든 입력을 확인하십시오 .

(가) 참조 가능한 모든 입력이 확인 각 입력에 사용되는 매핑을 볼 수 위의 링크.

설명:

이것은 다음과 같은 규칙을 남용합니다.

디스플레이를 표현하는 방법 은 단일 유니 코드 또는 ASCII 기호 , ASCII 아트, 그래프 또는 기타 모든 것을 표시 할 수 있습니다. 그러나 각 입력에는 고유 한 출력이 있어야합니다.

C       # Convert the (implicit) input from binary to integer
 ₄+     # Increase it by 1000
   ç    # Convert it to a unicode character with this value (and output implicitly)

출력 형식을 사용하여 도전의 정신에 더 대안 :

 -
| |
 -
| |
 -

38 바이트 :

Σ•L7וNè}εi" -| | "14∍2ôNèëðº]J24S5∍£»

확실히 골프를 칠 수 있습니다 ..

온라인으로 시도 하거나 가능한 모든 입력을 확인하십시오 .

설명:

Σ       }          # Sort the (implicit) input-digits by:
 •L7וNè           #  The digit at the same index in the compressed integer 1367524
                   #   i.e. "1101101" → ["1","0","1","1","1","0","1"]
ε                  # Then map each digit to:
 i                 #  If it's a 1:
  " -| | "         #   Push string " -| | "
          14∍      #   Lengthen it to size 14: " -| |  -| |  -"
             2ô    #   Split it into parts of 2: [" -","| ","| "," -","| ","| "," -"]
               Nè  #   Index into it
 ë                 #  Else (it's a 0):
  ðº               #   Push "  " (two spaces) instead
    ]              # Close both the if-else and map
                   #  i.e. ["1","0","1","1","1","0","1"]
                   #   → [" -","  ","| "," -","| ","  "," -"]
J                  # Join everything together to a single string
                   #  i.e. [" -","  ","| "," -","| ","  "," -"] → " -  |  -|    -"
 24S               # Push [2,4]
    5∍             # Lengthened to size 5: [2,4,2,4,2]
      £            # Split the string into parts of that size
                   #  i.e. " -  |  -|    -" → [" -","  | "," -","|   "," -"]
       »           # Join by newlines (and output implicitly)
                   #  i.e. [" -","  | "," -","|   "," -"] → " -\n  | \n -\n|   \n -"

내이 05AB1E 팁을 참조하십시오 ( 어떻게 큰 정수를 압축하는 섹션? ) 이유를 이해하는 •L7ו것입니다 1367524.

PHP 5.6, 65 바이트 일반 ASCII

for(;$p++<9;)echo$argn[_707561432[$p]]?"||_"[$p%3]:" ","\n"[$p%3];

또는 후행 줄 바꿈이 없지만 약간의 재미가 있습니다.

for(;$p++<11;)echo$argn[_70785618432[$p]]?L|Sx[$p&1]:a^kAAA[$p&3];

파이프로 실행 -nR하거나 온라인으로 사용해보십시오 .

고장 1

for(;$p++<9;)echo           # loop through positions
    $argn[_707561432[$p]]   # map position to input bit
        ?"||_"[$p%3]            # if set: underscore in 2nd column, pipe symbol else
        :" "                    # else space
    ,"\n"[$p%3]             # add newline every 3 columns
;

고장 2

for(;$p++<11;)echo          # loop through positions
    $argn[_70785618432[$p]] # map position to input bit (bit 8 for EOL, never set)
        ?L|Sx[$p&1]             # if set: underscore in the middle, pipe symbol else
        :a^kAAA[$p&3]           # else: newline in 4th column, space else