Commit 7518244b authored by martin.hecker's avatar martin.hecker
Browse files

clean up the ECLiPSe example a little

parent 6d554cd9
......@@ -20,15 +20,6 @@ solve([S,E,N,D,M,O,R,Y]) :-
C3 + S + M #= O + 10*M.
% solve([S,E,N,D,M,O,R,Y]) :-
% [S,E,N,D,M,O,R,Y] :: [0..9],
% S #\= 0, M #\= 0, alldifferent([S,E,N,D,M,O,R,Y]),
% C3 + S + M #= O + 10*M+O,
% C2 + E + O #= N + 10*C3,
% C1 + N + R #= E + 10*C2,
% D + E #= Y + 10*C1.
qsort([],[]).
qsort([X|R],Y) :- split(X,R,R1,R2),
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment