Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
IPDSnelting
ppvm.exampleprojects
Commits
7518244b
Commit
7518244b
authored
Oct 31, 2016
by
martin.hecker
Browse files
clean up the ECLiPSe example a little
parent
6d554cd9
Changes
1
Hide whitespace changes
Inline
Side-by-side
ECLiPSe/money.pl
View file @
7518244b
...
...
@@ -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
),
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment