그 당시 전화 자동 다이얼러는 다이얼 할 번호의 각 숫자에 대해 하나의 열이있는 펀치 카드를 사용했습니다. 열에는 7 행이있었습니다. 처음 세 행은 각각 (1,2,3), (4,5,6) 및 (7,8,9)를 나타냅니다. 마지막 3 열은이 배열을 (1,4,7), (2,5,8) 및 (3,6,9)로 90 ° 회전 시켰습니다. 가운데 행은 0에 사용되었습니다. 1-9 숫자는 두 개의 구멍이 뚫린 것입니다. 첫 세 행에 하나씩, 아래쪽 세 행에 하나씩 있습니다. 0은 가운데 줄만 펀칭합니다. 의는 숫자 6의 펀치 열을 시각화 보자는 ( ., unpunched되어 x왼쪽에 가이드가 인코딩을 설명하기 그냥, 펀칭) :

123 .
456 x
789 .
 0  .
147 .
258 .
369 x

전화를 걸려는 번호가 포함 된 행을 찾습니다. 6의 경우, 이것은 두 번째 행과 아홉 번째 행입니다. 이 두 행은 펀칭되고 나머지 5 개의 행은 펀칭되지 않습니다. 모든 숫자 0-9에 대한 펀치 패턴은 다음과 같습니다.

    0 1 2 3 4 5 6 7 8 9
123 . x x x . . . . . .
456 . . . . x x x . . .
789 . . . . . . . x x x
 0  x . . . . . . . . .
147 . x . . x . . x . .
258 . . x . . x . . x .
369 . . . x . . x . . x

당신의 목표는 나를 위해이 카드들을 펀칭하는 것 (프로그램이나 기능을 작성하는 것)입니다.

입력 : 9999999999999를 초과하지 않는 합리적인 형식 (문자열, 정수, 정수 목록 등)으로 취한 숫자입니다.

출력 : 숫자 입력에 해당하는 천공 열 그리드입니다. 위에 표시된 머리글이나 여분의 간격이 필요하지 않고 천공 된 열 자체가 필요합니다. 행 / 열 사이의 공백 이 일관된 한 선행 / 트레일 링 줄 바꿈은 괜찮 습니다 . 말하자면, 일관성이있는 한 펀치를 위해 (공백이 아닌) 문자를 사용하고 펀치를 칠하지 않는 다른 문자를 사용할 수 있습니다 (명백해야하지만 사용중인 문자를 지정하십시오).

이것은 코드 골프이므로 가장 짧은 코드가 승리합니다. 표준 허점 은 허용되지 않습니다.

(모든 사용 테스트 케이스 .unpunched에, x펀치 용) :

In: 911
Out: .xx
     ...
     x..
     ...
     .xx
     ...
     x..

In: 8675309
Out: ....x..
     .x.x...
     x.x...x
     .....x.
     ..x....
     x..x...
     .x..x.x

In: 5553226
Out: ...xxx.
     xxx...x
     .......
     .......
     .......
     xxx.xx.
     ...x..x

젤리 , 13 바이트

9s3,Z$j0ċþDZY

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

1= 천공, 0= 천공되지 않음.

Pyth, 25 바이트

.tm?djNmX*3NkZ.Dtd3X*7N3Z

0천공 및 천공에 사용 합니다 ".
여기 사용해보십시오

설명

.tm?djNmX*3NkZ.Dtd3X*7N3Z
  m                      Q  For each number in the (implicit) input...
   ?d                       ... if the number is nonzero...
              .Dtd3         ... get (n - 1) divmod 3...
       mX*3NkZ              ... replace each position in `"""` with `0`...
     jN                     ... and stick them together with `"`. ...
                   X*7N3Z   ... Otherwise, `"""0"""`.
.t                          Transpose the result.

자바 스크립트 (ES6), 60 54 바이트

정수 배열로 입력을받습니다. 0 = 천공되지 않은 / 1 = 천공 된 이진 행렬을 반환합니다 .

a=>[14,112,896,1,146,292,584].map(n=>a.map(i=>n>>i&1))

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

05AB1E , 16 15 바이트

0 과 1을 사용합니다 .

ε9ÝÀ3ôD¨ø«¢O}ø»

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

설명

ε           }     # apply to each digit in input                
 9Ý               # push the range [0 ... 9]
   À              # rotate left
    3ô            # split into pieces of 3
      D¨          # duplicate and remove the last digit (0)
        ø         # transpose
         «        # append
          ¢O      # sum the counts of each in the current digit     
             ø    # transpose
              »   # format output

SOGL V0.12 , 23 바이트

,{r"ΧL→▓lφ℮o¤κ²‘7nwι}⁰H

여기 사용해보십시오!

압축.

파이썬 2 , 84 바이트

lambda a:[''.join(`(ord('(1Aa2Bb4Dd'[int(n)])-32)>>k&1`for n in a)for k in range(7)]

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

0/1 펀칭 / 펀칭에 사용됩니다.

파이썬 3 , 84 80 바이트

def f(s):[print(*[int(i in[~-n//3,6--n%3-3*(n<1)])for n in s])for i in range(7)]

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

C (연타) , 108 (107) 바이트

c,i;f(*q){char*r;for(i=~0;i++<6;puts(""))for(r=q;c=*r++;c-=48,putchar(".X"[(c--?16<<c%3|1<<c/3:8)>>i&1]));}

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

입력 번호를 문자열로 사용합니다. 출력을 인쇄합니다.X예제 와 같이 .

크레딧

@ASCII 전용 -1 바이트 감사

J , 31 20 바이트

FrownyFrog 덕분에 -11 바이트!

(e."1],0,|:)1+i.@3 3

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

J , 31 바이트

1*@|:@:#.(a,0,|:a=.1+i.3 3)=/~]

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

입력을 숫자 목록으로 취합니다.

0-천공되지 않은, 1-천공

설명:

   a=.1+i.3 3 - generates the matrix and stores it into a
1 2 3
4 5 6
7 8 9

   (a,0,|:a=.1+i.3 3) - generates the entire comparison table 
1 2 3
4 5 6
7 8 9
0 0 0
1 4 7
2 5 8
3 6 9

   ]=/ - creates an equality table between the input and the comparison table

 ((a,0,|:a=.1+i.3 3)=/~]) 9 1 1
0 0 0
0 0 0
0 0 1
0 0 0
0 0 0
0 0 0
0 0 1

1 0 0
0 0 0
0 0 0
0 0 0
1 0 0
0 0 0
0 0 0

1 0 0
0 0 0
0 0 0
0 0 0
1 0 0
0 0 0
0 0 0

  1*@|:@:#. - adds the tables, transposes the resulting table and finds the magnitude

  (1*@|:@:#.(a,0,|:a=.1+i.3 3)=/~])  9 1 1
0 1 1
0 0 0
1 0 0
0 0 0
0 1 1
0 0 0
1 0 0

캔버스 , 27 25 바이트

｛９＋├３÷ｕ４％ ×#＋#¹╷３％５＋１╋］↶↕

여기 사용해보십시오!

숯 , 28 바이트

Ｅ⁴⭆θＩ⁼ι÷﹪⊖λχ³Ｅ³⭆θＩ∧Ｉλ¬﹪⁻⊖λι³

온라인으로 사용해보십시오! 링크는 자세한 버전의 코드입니다. 0/1을 사용하지만 1 바이트의 비용으로 임의의 문자를 지원할 수 있습니다. 온라인으로 사용해보십시오! . 설명:

Ｅ⁴              Loop from 0 to 3
  ⭆θ            Loop over input string and join
           λ     Current character
         ⊖      Cast to integer and decrement
        ﹪  χ    Modulo predefined variable 10 (changes -1 to 9)
       ÷    ³   Integer divide by literal 3
     ⁼ι         Compare to outer loop variable
    Ｉ           Cast to string
                Implicitly print each outer result on a separate line

Ｅ³              Loop from 0 to 2
  ⭆θ            Loop over input string and join
            λ   Current character
           ⊖    Cast to integer and decrement
          ⁻  ι  Subtract outer loop variable
         ﹪    ³ Modulo by literal 3
        ¬       Logical not
       λ        Inner loop character
      Ｉ         Cast to integer
     ∧          Logical and
    Ｉ           Cast to string
                Implicitly print each outer result on a separate line

펄 5 -F , 52 바이트

for$i(123,456,789,0,147,258,369){say map$i=~$_|0,@F}

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

1천공 및 천공에 사용 합니다 0.