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