RosettaCodeData/Task/Semiprime/Bracmat/semiprime-1.bracmat
2015-11-18 06:14:39 +00:00

7 lines
111 B
Text

semiprime=
m n a b
. 2^-64:?m
& 2*!m:?n
& !arg^!m
: (#%?a^!m*#%?b^!m|#%?a^!n&!a:?b)
& (!a.!b);