Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- % Исключить из списка отрицательные элементы.
- del([], []):-!.
- del([N|L], [N|L1]):- N >= 0, del(L, L1).
- del([N|L], L1):-N < 0, del(L, L1).
- %del([1, 2, -3, 5, -1], Res)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
