В свое время телефонные автодозвонщики использовали перфокарты с одним столбцом для каждой цифры набираемого номера. Колонны имели семь рядов. Первые три строки представляли числа (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)]

Попробуйте онлайн!

С (лязг) , 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 байт

-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 5 -F , 52 байт

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

Попробуйте онлайн!

Используется 1для перфорированных и 0неперфорированных.