ada/csce420pine64backup
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fsdjsdklfj

Browse source
This commit is contained in:
Alex Huddleston 2017-11-15 23:57:38 +00:00
parent 40837bf9d7
commit 4952d2b905
2 changed files with 0 additions and 22 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

BIN
hw3/hw3.zip Normal file
View file

Binary file not shown.

22
hw3/testing.pl
View file

@ -1,22 +0,0 @@
:- dynamic(greater/2).
make_rules([]).
make_rules([X]).
make_rules([X,Y|XS]) :-
assertz(greater(Y, X)),
append([Y], XS, XS2),
make_rules(XS2).
my_topo_sort([], Total_order).
my_topo_sort(Partial_order, Total_order) :-
select(X, Partial_order, Partial_order2),
make_rules(X),
my_topo_sort(Partial_order2, Total_order).
is_greater(Y, X) :-
greater(Y, X);
greater(Z, X),
is_greater(Y, Z).