diff options
Diffstat (limited to 'misc.prolog')
-rw-r--r-- | misc.prolog | 20 |
1 files changed, 0 insertions, 20 deletions
diff --git a/misc.prolog b/misc.prolog deleted file mode 100644 index 6d8ad68..0000000 --- a/misc.prolog +++ /dev/null @@ -1,20 +0,0 @@ - -:- module(misc, [filter/3, head/2, tail/2]). - - - - -filter(List, Predicate, Result) :- - Test =.. [Predicate,X], - findall(X, Test, No), - subtract(List, No, Result). - - -head(X,[Y]) :- X = Y. -head(X,[Y|_]) :- X = Y. - - -tail(X,[]) :- X = []. -tail(X,[_]) :- X = []. -tail(X,[_|Y]) :- X = Y. - |