Toggle navigation
?
users online
Logout
Open hangout
Open chat for current file
good([_,_]):-!. good([A,B,C|T]):- (A+B+C) mod A=:=0, good([B,C|T]). main(N):-numlist(1,N,X), permutation(X,Sol),good(Sol),writeln(Sol). /** <examples> ?- main(10). ?- main(6). */