过去，电话自动拨号器使用打孔卡，每列要拨打的号码中的每一列都有一栏。列有七行。前三行分别代表数字（1,2,3），（4,5,6）和（7,8,9）。最后三行将这种排列旋转90°：（1,4,7），（2,5,8）和（3,6,9）。中间的行用于0。任何数字1-9都会打两个孔-前三个行一个，下三个行一个。零将只打中间行。让我们可视化数字6的打孔列（.未x打孔，已打孔，左侧的指南仅用于说明编码）：

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

我们寻找哪些行包含我们要拨打的号码。对于6，这是第二行，第九行。这两行被打孔，其余五行未打孔。这是所有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-only

J，31 20字节

-11个字节感谢FrownyFrog！

(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 -F 5，52个字节

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

在线尝试！

用途1用于冲压和0为未穿孔。