APL/J言語:その他の表各種

APL/J言語:その他の表各種

   div=: 0=rem=: i |/i=: i.7   NB.割り切れ可能性と剰余一覧
   (,.i) ; rem ; div
 +-+-------------+-------------+
 |0|0 1 2 3 4 5 6|1 0 0 0 0 0 0|
 |1|0 0 0 0 0 0 0|1 1 1 1 1 1 1|
 |2|0 1 0 1 0 1 0|1 0 1 0 1 0 1|
 |3|0 1 2 0 1 2 0|1 0 0 1 0 0 1|
 |4|0 1 2 3 0 1 2|1 0 0 0 1 0 0|
 |5|0 1 2 3 4 0 1|1 0 0 0 0 1 0|
 |6|0 1 2 3 4 5 0|1 0 0 0 0 0 1|
 +-+-------------+-------------+
   (i#~2=+/div);(2=+/div);(+/div)  NB.素数、テスト、約数の数
 +-----+-------------+-------------+
 |2 3 5|0 0 1 1 0 1 0|7 1 2 2 3 2 4|
 +-----+-------------+-------------+
   (=/~ ; </~ ; <:/~; ~:/~) i. 5
 +---------+---------+---------+---------+
 |1 0 0 0 0|0 1 1 1 1|1 1 1 1 1|0 1 1 1 1|
 |0 1 0 0 0|0 0 1 1 1|0 1 1 1 1|1 0 1 1 1|
 |0 0 1 0 0|0 0 0 1 1|0 0 1 1 1|1 1 0 1 1|
 |0 0 0 1 0|0 0 0 0 1|0 0 0 1 1|1 1 1 0 1|
 |0 0 0 0 1|0 0 0 0 0|0 0 0 0 1|1 1 1 1 0|
 +---------+---------+---------+---------+
   t=: (/ ~) (@i.)  NB.作表副詞
   (=t;<t;<:t;~:t) 5
 +---------+---------+---------+---------+
 |1 0 0 0 0|0 1 1 1 1|1 1 1 1 1|0 1 1 1 1|
 |0 1 0 0 0|0 0 1 1 1|0 1 1 1 1|1 0 1 1 1|
 |0 0 1 0 0|0 0 0 1 1|0 0 1 1 1|1 1 0 1 1|
 |0 0 0 1 0|0 0 0 0 1|0 0 0 1 1|1 1 1 0 1|
 |0 0 0 0 1|0 0 0 0 0|0 0 0 0 1|1 1 1 1 0|
 +---------+---------+---------+---------+
   (^t;!t;-t) 5
 +-------------+---------+-------------+
 |1 0  0  0   0|1 1 1 1 1|0 _1 _2 _3 _4|
 |1 1  1  1   1|0 1 2 3 4|1  0 _1 _2 _3|
 |1 2  4  8  16|0 0 1 3 6|2  1  0 _1 _2|
 |1 3  9 27  81|0 0 0 1 4|3  2  1  0 _1|
 |1 4 16 64 256|0 0 0 0 1|4  3  2  1  0|
 +-------------+---------+-------------+