?? ch08ex05.pro
字號:
/*
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]) :-
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -