Magisch vierkant
Log in om je oplossingen te testen.
:- use_module(library(clpfd)).
main(Dim) :-
magic_square(Square,Dim),
maplist(portray_clause,Square),
Square=[Row|_],
lists:sum_list(Row,Sum),
write(Sum).
magic_square(Square,Dim) :-
magic_square_constraints(Square, Dim),
maplist(label, Square).
magic_square_constraints(Square, Dim) :-
...
Je kunt zo vaak indienen als je wenst. Er wordt enkel rekening gehouden met je laatst ingediende oplossing.
Log in om je oplossingen te testen.