SHARE
TWEET

queen

science_man_88 Dec 23rd, 2016 157 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. queen(x)=select(r->(r[1]-x[1]==-1*(r[2]-x[2])||r[1]-x[1]==r[2]-x[2]||r[1]==x[1]||r[2]==x[2])&&[r[1],r[2]]!=[x[1],x[2]],setbinop((x,y)->concat(x,y),[1,2,3,4,5,6,7,8],[1,2,3,4,5,6,7,8]))
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top