یک سوال در زمینه هوش مصنوعی. حل مسئله n وزیر

[rahgozar]

حل مسئله N وزیر با استفاده از هیوریستسک min-confict برای اندازه N بزرکتر از 1000

اگر کسی میتونه بهم کمک کنه ...

 

[Miranda]

وزیر

وزیر

(define (queens board-size)
(define (queen-cols k)
(if (= k 0)
(list empty-board)
(filter
(lambda (positions) (safe? k positions))
(flatmap
(lambda (rest-of-queens)
(map (lambda (new-row)
(adjoin-position new-row k rest-of-queens))
(enumerate-interval 1 board-size)))
(queen-cols (- k 1))))))
(queen-cols board-size))



اینو به زبان Scheme نوشتم اگه Common Lisp خواستی بگو برات بفرستم

 

[Miranda]

وزیر

وزیر

(define (queens board-size)
(define (queen-cols k)
(if (= k 0)
(list empty-board)
(filter
(lambda (positions) (safe? k positions))
(flatmap
(lambda (rest-of-queens)
(map (lambda (new-row)
(adjoin-position new-row k rest-of-queens))
(enumerate-interval 1 board-size)))
(queen-cols (- k 1))))))
(queen-cols board-size))



اینو به زبان Scheme نوشتم اگه Common Lisp خواستی بگو برات بفرستم

 

[Miranda]

وزیر

وزیر

(define (queens board-size)
(define (queen-cols k)
(if (= k 0)
(list empty-board)
(filter
(lambda (positions) (safe? k positions))
(flatmap
(lambda (rest-of-queens)
(map (lambda (new-row)
(adjoin-position new-row k rest-of-queens))
(enumerate-interval 1 board-size)))
(queen-cols (- k 1))))))
(queen-cols board-size))

​

اینو به زبان Scheme نوشتم اگه Common Lisp خواستی بگو برات بفرستم

 

[patris]

ba salam lotfan be zaban lisp baraye man beferest