NB. 平方剰余 Quadratic Residue ========================== sq_mod =: 3 : 0 : y. | *: y | x ) NB. Legendre Notation ============== qr0 =: 3 : 0 (i. y) e. (i. y) sq_mod y ) zz =: <:`]@.]"(0) NB. zz 0 => _1 NB. zz 1 => 1 NB. zz 0, 1 => _1 1 qr =: 3 : 0 : zz x { qr0 y )