Download code

From LiteratePrograms

Jump to: navigation, search

Back to Eight_queens_puzzle_(J)

Download for Windows: single file, zip

Download for UNIX: single file, zip, tar.gz, tar.bz2

8queens.ijs

 1 where=: #~
 2 zero=: 0=>./
 3 sols=: monad : '(i.!y) A. (i.y)'
 4 good=: monad : 'zero caps y'
 5 caps=: monad : ',/diag\. |:y'
 6 diag=: monad : '}. (i. #y)=(| diff y)'
 7 diff=: monad : 'y -"1 {.y'
 8 echo (where good) sols 8
 9 exit ''
10


Retrieved from "http://en.literateprograms.org/Special:Downloadcode"
Views
Personal tools