当時、電話の自動ダイヤラーは、ダイヤルする番号の各桁に1列のパンチカードを使用していました。列には7行ありました。最初の3行は、それぞれ番号（1,2,3）、（4,5,6）、および（7,8,9）を表しています。最後の3行は、この配置を90°回転させました：（1,4,7）、（2,5,8）、および（3,6,9）。中央の行は0に使用されました。1〜9の数字には、最初の3行に1つ、下の3行に1つの2つの穴が開けられます。ゼロでは、中央の行のみがパンチされます。レッツ・視覚化数6のためのパンチ列（.非パンチで、xパンチされ、左側のガイドだけでエンコーディングを説明することです）：

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

ダイヤルしようとしている番号を含む行を探します。6の場合、これは2行目、9行目です。これらの2つの行はパンチされ、残りの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を超えない、合理的な形式（文字列、整数、整数のリストなど）で取得された数値。

出力：入力された番号に対応するパンチされた列のグリッド。上記のヘッダーや余分なスペースは不要で、パンチされた列自体が必要です。行の先頭と末尾の改行は問題ありません。行と列の間の空白も一貫している限りは問題ありません。言い換えれば、一貫している限り、パンチに任意の（空白以外の）文字を使用し、パンチなしに他の文字を使用できます（明らかなはずですが、使用している文字を指定してください）。

これはコードゴルフなので、最短のコードが優先されます。標準の抜け穴は許可されていません。

テストケース（すべて、パンチ.なし、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.

JavaScript（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

ここで試してみてください！

圧縮。

Python 2、84バイト

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

オンラインでお試しください！

0/1 パンチなし/パンチありに使用されます。

Pythonの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例のように。

クレジット

-1バイトありがとう@ASCIIのみ

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

Perl 5、52 -Fバイト

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

オンラインでお試しください！

1パンチおよび0非パンチに使用します。