ch08ex05.pro

来自「prolog,人工智能推理程序,运行环境prolog」· PRO 代码 · 共 25 行

/*
   Turbo Prolog 2.0 Chapter 8, Example Program 5
   
   Copyright (c) 1986, 88 by Borland International, Inc
   
*/
   
domains
   list = integer*

predicates
   discard_negatives(list, list)

clauses
   discard_negatives([], []).

   discard_negatives([H|T], ProcessedTail) :- /* If H is
negative, just skip it */
      H < 0,
      !,
      discard_negatives(T, ProcessedTail).

   discard_negatives([H|T], [H|ProcessedTail]) :-
      discard_negatives(T, ProcessedTail).