Guest User

Untitled

a guest
Aug 15th, 2018
72
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Prolog 0.18 KB | None | 0 0
  1. exist('').
  2. main :-
  3.     exist(funkcje(_)),
  4.     funkcje(Lista),
  5.     retracta(funkcje(_)),
  6.     asserta(funkcje(['a'|Lista])).
  7. main :-
  8.     asserta(funkcje([])),
  9.     asserta(exist(funkcje([]))).
Add Comment
Please, Sign In to add comment