4x2のブロックにブール行列をカットし、点字としてそれらをレンダリングしU+2800... U+28FF。

[[0,1,0,0,1,0],
 [1,0,0,0,0,0],
 [1,0,0,0,1,0],
 [1,1,1,1,0,0]]

⣎⣀⠅

次元が4と2の倍数でない場合、0で埋めます。

[[0,1,0],
 [1,0,0],
 [1,1,1]]

⠮⠄

通常のゴルフ規則が適用され、入力形式は柔軟です。出力は、マトリックスの構造を持つか、マトリックスのように見える必要があります。たとえば、文字列のリスト。改行を含む単一の文字列。

ヒント：chr(0x2800 + 128*b7 + 64*b6 + 32*b5 + 16*b4 + 8*b3 + 4*b2 + 2*b1 + b0)ドットパターン

b0 b3
b1 b4
b2 b5
b6 b7

より大きなテスト：

[[0,0,1,1,1,1,0,0,0,0,0,0,0,1,1,0,0,0,0,1,1,1,0],
 [0,1,1,1,1,1,1,0,0,0,0,0,1,1,1,0,0,0,1,1,1,1,1],
 [0,1,1,0,0,1,1,1,0,0,0,1,1,1,1,0,0,1,1,0,0,0,1],
 [1,1,0,0,0,0,1,1,0,0,0,0,0,0,1,0,0,1,1,0,0,1,1],
 [1,1,0,0,0,1,1,0,0,0,0,0,0,0,1,0,0,1,1,1,0,1,0],
 [1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,1,1,0,0,0],
 [1,1,0,1,1,1,1,1,1,0,0,0,0,0,1,0,0,0,0,1,0,0,0],
 [1,1,0,1,1,1,1,1,0,0,1,1,0,0,1,0,0,1,1,1,1,1,1],
 [1,1,0,1,1,1,1,0,0,1,1,1,1,0,1,0,1,1,1,1,1,1,0],
 [1,1,0,1,0,1,1,0,1,1,0,1,1,0,1,0,0,0,0,1,1,0,0],
 [1,1,0,0,0,1,1,0,1,0,0,0,1,0,1,1,0,0,0,1,1,0,0],
 [1,1,0,0,0,1,1,0,1,0,0,0,1,0,1,1,1,0,0,1,1,0,0],
 [0,1,1,0,1,1,1,0,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0],
 [0,1,1,1,1,1,0,0,1,1,1,1,1,0,0,1,1,0,1,1,1,0,0],
 [0,0,1,1,1,0,0,0,0,1,1,1,0,0,0,0,1,0,1,1,1,1,0]]

⣰⠟⠻⣦⠀⠠⠾⡇⢠⡞⢛⡆
⣿⢠⣬⣥⠄⣀⠀⡇⢈⣻⣈⡀
⣿⠘⢹⡇⡞⠙⡇⣧⡉⢹⡏⠀
⠘⠷⠟⠁⠳⠾⠃⠘⠇⠾⠧⠀

ゼリー、 31  30 バイト

sz0Z
ç€2ZF€ç€8Zœ?@€€-36Ḅ+⁽$ṁỌY

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

どうやって？

sz0Z - Link 1, split & right-pad with zeros: list, items; number, chunkSize
s    - split items into chunks of length chunkSize
 z0  - transpose with filler zero
   Z - transpose

ç€2ZF€ç€8Zœ?@€€-36Ḅ+⁽$ṁỌY - Main link: list of lists of numbers (1s & 0s), M
ç€2                       - call the last link (1) as a dyad for €ach (left=M, right=2)
                          -  ((left,right) bits read left-right then top-bottom)
   Z                      - transpose the resulting list of lists of lists
                          -  ((left, right) bits read top-bottom then left-right)
    F€                    - flatten €ach
      ç€8                 - call the last link (1) as a dyad for €ach (left=^, right=8)
         Z                - transpose the resulting list of lists of lists
                          -  ("blocks" each and all read left-right top-to bottom)
               -36        - literal -36
             €€           - for €ach (block-wise row) for €ach (block)
          œ?@             -   lexicographical permutation with reversed arguments
                          -    (get the permutation at index -36 (modular) in a list of
                          -     all permutations of the indexes sorted lexicographically.
                          -     That is the 8!-36 = 40284th - equivalently the values at
                          -     indexes [8,7,6,4,2,5,3,1])
                  Ḅ       - convert from binary list to integer (vectorises)
                    ⁽$ṁ   - base 250 literal = 10240
                   +      - add
                       Ọ  - cast to character (vectorises)
                        Y - join with newlines
                          - implicit print

JavaScriptのES7 210 207 201 200 198の 194 185 183バイト

a=>eval('for(y=0,c="";A=a[y];y+=4,c+=`\n`)for(x=0;A[x]+1;x+=2)c+=String.fromCharCode(10240+eval("for(N=k=0;k<6;k++)N+=(g=(X,Y=3)=>(a[Y+y]||0)[X+x]|0)(k>2,k%3)*2**k")|g(0)+g(1)*2<<6)')

ngnのおかげで4バイト節約

Lukeのおかげで3バイト節約

使い方

コードを部分に分割し、それらについて個別に説明します。

for(y=x=0, c=""; a[y]; x+=2)
    !((a[y] || [])[x]+1) && (y+=4,x=0,c+=`\n`)

これは、すべての変数が宣言される場所です。xそしてy、「カーソル」（現在の点字の左上端）の位置です。x座標は反復ごとに2ずつ増加し、インデックスを持つ行がなくなると停止しますy（a [x]はundefined存在しない場合に戻り、falseに変換されます）。

2行目には複数のトリックがあります。(a[y] || [])[x]その(x, y)位置で値を検索してもエラーがスローされないようにします。&&通常のオペレータで、左が本当だった場合のみ、式の右辺をチェックします。これはに翻訳することができます

if (!((a[y] || [])[x] + 1)) 
    y+=4,x=0,c+=`\n`

次の部分：

c+=String.fromCharCode(10240+eval("for(N=k=0;k<6;k++)N+=(g=(x,y)=>(a[y]||[])[x]||0)(~~(k/3)+x,k%3+y)*2**k,N")+g(x,y+3)*64+g(x+1,y+3)*128)

String.fromCharCode渡された数値を同じ文字コードのUnicode文字に変換するだけです。括弧内の式は点字のインデックスを計算します：

for(N=k=0;k<6;k++)N+=(g=(x,y)=>(a[y]||[])[x]||0)(~~(k/3)+x,k%3+y)*2**k

の位置を通過します

1 4
2 5
3 6

順序は、それらの位置の値に2 ^iを乗算します。ここでiはインデックスであり、それらを加算します。の

g=(x,y)=>(a[y]||[])[x]||0

partはg、と呼ばれるラムダ関数を宣言します。and 座標を指定するxとy、その(x, y)位置の値、または位置が配列の境界の外側にある場合は0 を返します。

+g(x,y+3)*64+g(x+1,y+3)*128

この部分は、少し前に定義した関数を使用して、正しい重みで最後の2つの位置を合計します。

最後になりましたが、

a=>eval('...')

一部には2つの機能があります。匿名ラムダを定義し、forループが問題を引き起こさないことを保証します（このような単一行のラムダは、単一のforループのみを含むことはできず、評価はこれを回避します）。

Mathematica、126 110 97 90

FromCharacterCode[10240+ListCorrelate[2^{{0,3},{1,4},{2,5},{6,7}},#,1,0][[;;;;4,;;;;2]]]&

この溶液をを利用するListCorrelateために、マトリックス上に（反転）カーネルを畳み込む本質的に摺動行列乗算（又はドット積）です。ここで視覚的な説明を参照してください。パディングは0、4番目の引数として使用して行われます。次の例では、結果が上記のヒントと一致することを期待しています。

ListCorrelate[
  2^{{0, 3}, {1, 4}, {2, 5}, {6, 7}},
  {{b0, b3}, {b1, b4}, {b2, b5}, {b6, b7}}
]

(* returns {{b0 + 2 b1 + 4 b2 + 8 b3 + 16 b4 + 32 b5 + 64 b6 + 128 b7}} *)

注ListConvolve3番目の引数はされるので、任意の短い方ではありません-1。

これは行列のすべての位置にカーネルを適用するため、4行2列ごとに要素を抽出するだけです。私たちは、のために速記を使用するSpanとPart：[[;;;;4,;;;;2]]。

便利なFromCharacterCodeことに、文字コードのマトリックスを取得して、文字列のリストを返すことができます。

このソリューションは、許可される出力形式の1つである文字列のリストを返します。「Column@マトリックスのように見える」ように出力を追加するだけです。

無料のオンラインMathematicaノートブックでこれをいじることができます。ここに移動して、[新しいノートブックの作成]をクリックし、しばらく待ってからこのコードを貼り付けて、を押しshift+enterます。

m1={{0,1,0,0,1,0},{1,0,0,0,0,0},{1,0,0,0,1,0},{1,1,1,1,0,0}};
m2={{0,1,0},{1,0,0},{1,1,1}};
m3={{0,0,1,1,1,1,0,0,0,0,0,0,0,1,1,0,0,0,0,1,1,1,0},{0,1,1,1,1,1,1,0,0,0,0,0,1,1,1,0,0,0,1,1,1,1,1},{0,1,1,0,0,1,1,1,0,0,0,1,1,1,1,0,0,1,1,0,0,0,1},{1,1,0,0,0,0,1,1,0,0,0,0,0,0,1,0,0,1,1,0,0,1,1},{1,1,0,0,0,1,1,0,0,0,0,0,0,0,1,0,0,1,1,1,0,1,0},{1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,1,1,0,0,0},{1,1,0,1,1,1,1,1,1,0,0,0,0,0,1,0,0,0,0,1,0,0,0},{1,1,0,1,1,1,1,1,0,0,1,1,0,0,1,0,0,1,1,1,1,1,1},{1,1,0,1,1,1,1,0,0,1,1,1,1,0,1,0,1,1,1,1,1,1,0},{1,1,0,1,0,1,1,0,1,1,0,1,1,0,1,0,0,0,0,1,1,0,0},{1,1,0,0,0,1,1,0,1,0,0,0,1,0,1,1,0,0,0,1,1,0,0},{1,1,0,0,0,1,1,0,1,0,0,0,1,0,1,1,1,0,0,1,1,0,0},{0,1,1,0,1,1,1,0,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0},{0,1,1,1,1,1,0,0,1,1,1,1,1,0,0,1,1,0,1,1,1,0,0},{0,0,1,1,1,0,0,0,0,1,1,1,0,0,0,0,1,0,1,1,1,1,0}};

MatrixToBraille := Column@
  FromCharacterCode[10240+ListCorrelate[2^{{0,3},{1,4},{2,5},{6,7}},#,1,0][[;;;;4,;;;;2]]]&

MatrixToBraille/@{m1,m2,m3}

次に、これが表示されるはずです。

Dyalog APL、133 122 114 112 101 100 98 95 94 93 90 88 86バイト

想定 ⎕IO←0

{C⍴{⎕UCS 10240+2⊥(∊S⌷⍨⍵+⍳¨A)[⍎¨⍕76531420]}¨(,b)/,⍳⍴b←{0 0≡A|⍵}¨⍳⍴S←⍵↑⍨A×C←⌈(⍴⍵)÷A←4 2}

- 8 9チャットの@Adámのおかげで 12バイト

@ngnのおかげで-2バイト

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

方法（入力は⍵）？

• A←4 2、4 2変数にベクトルを保存するA
• (⍴⍵)÷、の寸法が⍵で割りましたA
• ⌈、 天井
• C←、に保存 C
• A×、掛ける A
• ⍵↑⍨、⍵それらの寸法に適合
• S←、に保存 S
• ⍳⍴、のインデックス S
• {0 0≡A|⍵}¨、1セルの左上、0その他すべて
• (,b)/,⍳⍴b←、真実のインデックス
• {⎕UCS 10240+2⊥(∊S⌷⍨⍵+⍳¨A)[⍎¨⍕76531420]}¨、各要素を点字にします
• C⍴、寸法を C

JavaScript、136バイト

a=>(b=a.map(x=>[]),a.map((l,i)=>l.map((c,j)=>b[i>>2][j>>1]|=c<<'01263457'[i%4+j*4%8])),b.map(l=>l.map(c=>String.fromCharCode(10240+c))))

ngnのおかげで、ビットシフトを使用すると4バイト節約できます。

パイソン2 + drawille、141の 125 120 116バイト

ngnとL3viathanのおかげで16バイト節約

L3viathanのおかげで5バイト節約

ngnのおかげで4バイト節約

from drawille import*
def a(d,c=Canvas(),e=enumerate):[c.set(j,i)for i,x in e(d)for j,y in e(x)if y];print c.frame()

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

tioにはdrawilleがインストールされていないため動作しません

APL（Dyalog）、57 54バイト*

-3 OPのおかげ。ブール行列のプロンプト。文字行列を印刷します。

1↓⎕UCS{2⊥40,⌽(,⍉3↑⍵),⊢⌿⍵}⌺(2 2⍴4 2)⊢0⍪⍣3⍪∘0⍣3⊢⎕,0

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

⎕,0 右側にゼロを追加します（偶数列の場合は無視されます）

⊢ （分離すること収率3と⎕）

⍪∘0⍣3 下部に3回ゼロを追加します（⌺部分的なウィンドウをドロップするため）

0⍪⍣3 ゼロを3回スタックします（⌺左上隅から始まるため）

⊢ それをもたらす（括弧とを分離する0）

{… }⌺(2 2⍴4 2) 4行2列ウィンドウごとに、4行垂直および2行水平ステップで：

 ⊢⌿⍵ 最後の行（点灯、垂直右縮小）; [b6,b7]

 (… ), 付加：

  3↑ 3行を取ります。 [[b0,b3],[b1,b4],[b2,b5]]

  ⍉ 転置; [[b0,b1,b2],[b3,b4,b5]]

  , ラヴェル; [b0,b1,b2,b3,b4,b5]

 今、私たちは持っています [b0,b1,b2,b3,b4,b5,b6,b7]

 ⌽ 逆; [b7,b6,b5,b4,b3,b2,b1,b0]

 40, 40を追加（40×2 ⁹ = 10240の場合）;[40,b7,b6,b5,b4,b3,b2,b1,b0]

 2⊥ base-2（バイナリ）として評価

⎕UCS 文字に変換する

1↓ 最初の行をドロップします（⌺パディングのためにすべてゼロ）

* Classicでは、⌺としてカウントし⎕U233Aます。

Pythonの3、168の 165 161バイト

def f(m):
 while m:
  r,m,s=[*zip(*m)],m[4:],''
  while r:s+=chr(10240+sum(q<<int(w)for(q,w)in zip((r[0]+(0,)*3)[:4]+(r+[()])[1],'01263457')));r=r[2:]
  print(s)

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

Haskell、145バイト

(a!b)c=take b$c++repeat a
r([]:_)=[]
r l=['⠀'..]!!(sum.zipWith(*)[1,8,2,16,4,32,64,128]$l>>=0!2):r(drop 2<$>l)
b[]=[]
b s=r(([]!4)s):b(drop 4s)

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

Python 3、169バイト

a=[]
y=0
for l in eval(input()):
 y-=1;a+=y%4//3*[-~len(l)//2*[10240]];x=0
 for v in l:a[-1][x//2]|=v<<(6429374>>y%4*6+x%2*3&7);x+=1
for l in a:print(*map(chr,l),sep='')

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

Perl 5、164バイト

163バイトのコード+ 1フラグ -p

@a=eval}{for(;$r<@a;$r+=4){for($c=0;$c<@{$a[0]};$c+=2){$n="0b";map$n.=0|$a[$r+3][$c+$_],1,0;for$y(1,0){map$n.=0|$a[$r+$_][$c+$y],2,1,0}$\.=chr 0x2800+oct$n}$\.=$/}

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

1行で区切られた各行のコンマを取ります。

APL（Dyalog）、53バ​​イト

4 2∘{⎕ucs 2⊥40⍪(⍎¨⍕76531420)∘.⊃,¨⍺∘↑¨↓∘⍵¨⍺∘ר⍳⌈⍺÷⍨⍴⍵}

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