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| +-------------+---------+-------------+