doug1001

    perm   =: ! A.&i. ]             
    comb2  =: (, #: I.@,@(</)&i.)~    
    mask   =: [ */@:~:&(|@-/) {
    queenst=: comb2 (] #"1~ mask)&.|: perm