نمايش پست تنها
قديمي ۰۲-۱۶-۱۳۹۲, ۱۰:۰۴ بعد از ظهر   #5 (لینک دائم)
batman2013 Male
عضو جدید
 
آواتار batman2013
 
تاريخ عضويت: ارديبهشت ۱۳۹۲
پست ها: 1
تشكرها: 0
0 تشكر در 0 پست
پيش فرض

سلام به همه عزیزان ، از دوستانی که به پرولوگ آشنایی کامل دارند میخواستم

نحوه عملکرد کد زیر رو توضیح دهند : (خط به خط چی کار می کند ؟) خواهشن سریع جواب بدین همین کد رو باید برای استاد توضیح بدم

/* queens(N,Queens) :-
Queens is a placement that solves the N queens problem,
Represented as a permutation of the list of numbers [1,2,…,N]. */
queens(N,Qs) :- range(1,N,Ns), permutation(Ns,Qs), safe(Qs).
/* safe(Qs) :- the placement Qs is safe. */
safe([Q|Qs]) :- safe(Qs), not attack(Q,Qs).
safe([]).
attack(X,Xs) :- attack (X,1,Xs).
attack(X,N,[Y|Ys]) :- X is Y+N ; X is Y-N.
attack (X
permutation(Xs,[Z|Zs]) :- select(Z,Xs,Ys), permutation(Ys,Zs).
permutation([],[]).
select(X,[X|Xs],Xs).
select(X,[Y|Ys],[Y|Zs]) :- select(X,Ys,Zs).
range(M,N,[M|Ns]) :- M < N, M1 is M+1, range(M1,N,Ns).
range(N,N,[N]).
batman2013 آفلاين است   پاسخ با نقل قول