Więzy -- hetmany

Prolog |

500 B

None

0 👍

0 👎

Raw Download Clone Embed Print View

% hetmany.pl
 
:- use_module(library(clpfd)).
 
hetmany_gt(N, P) :-
    numlist(1, N, X),
    permutation(X, P),
    \+ niebezpieczna(P).
 
niebezpieczna(P) :-
    append(_, [I | L1], P),
    append(L2, [J | _], L1),
    length(L2, K),
    abs(I-J) =:= K + 1.
 
hetmany(N, P) :-
    length(P, N),
    P ins 1..N,
    bezpieczna(P),
    labeling([ffc], P).
 
bezpieczna([]).
bezpieczna([I | L]) :-
    bezpieczna(L, I, 1),
    bezpieczna(L).
 
bezpieczna([], _, _).
bezpieczna([J | L], I, K) :-
    I #\= J,
    abs(I-J) #\= K,
    K1 is K+1,
    bezpieczna(L, I, K1).

Comments

01/01/70 12:00:00 AM UTC
Plain Text |
0 B
|
👍
/
👎

text |

0 B

0 👍

0 👎

Raw Download Clone Embed Print View

Best t33n active cpx link daily updates!
 Copy and paste the link in a new browser tab and then hit enter!
 https://crazyporn.@xxx/members/157354/?asgtbndr=1&play=true&spon=adworld&zone=400
 Remove the @

text |

0 B

0 👍

0 👎

Raw Download Clone Embed Print View

Best t33n active cpx link daily updates!
 Copy and paste the link in a new browser tab and then hit enter!
 https://crazyporn.xxx/members/157354/?asgtbndr=1&play=true&spon=adworld&zone=400

01/01/70 12:00:00 AM UTC
Plain Text |
0 B
|
👍
/
👎

Pasted

Więzy -- hetmany

Comments