24 lines
216 B
Plaintext
24 lines
216 B
Plaintext
|
:- module(meld_program,
|
||
|
|
[
|
||
|
|
run/1
|
||
|
|
]).
|
||
|
|
|
||
|
|
|
||
|
|
:- use_module(meldi,
|
||
|
|
[
|
||
|
|
push/1,
|
||
|
|
first/2,
|
||
|
|
min/3,
|
||
|
|
max/3
|
||
|
|
]).
|
||
|
|
|
||
|
|
|
||
|
|
% built-ins.
|
||
|
|
:- dynamic root/1, neighbor/2, temperature/2.
|
||
|
|
|
||
|
|
trace(A,B) :- !,
|
||
|
|
writeln((A:-B)),
|
||
|
|
trace.
|
||
|
|
|
||
|
|
|