Ideone.com | Online Prolog Interpreter & Debugging Tool

language:	Prolog (swi) (swipl 5.6.64)
date:	127 days 16 hours ago
link:
visibility:	public private user's deleted

source code clone download copy to clipboard report bug / make suggestion

1
2
3
4
5
6
7
8
9
10
nalezy( X,[X|_] ).
nalezy( X,[H|T] ) :- nalezy( X,T ).
 
usun(X,[X|Reszta],Reszta).
usun(X,[Y|Ogon],[Y|Reszta]) :-
        usun(X,Ogon,Reszta).
 
sprawdz([H|T]):- nalezy(H,T)->usun(H,H|T,T).
 
powt(A):- sprawdz(A), writeln(A).

clone download copy to clipboard

compilation info hide

source code

syntax highlight

input (#_)

input / output show all hide all

# 3 # 2 # 1

upload with new input
# 3: hide show clone input 127 days 16 hours ago Success

result: Success time: 0.02s memory: 6204 kB returned value: 0
input:
```
powt([1,1,3]).
```
output: no
stderr:
```
Warning: /home/rqrZrl/prog.pl:2:
	Singleton variables: [H]

false.
```
# 2: hide show clone input 127 days 16 hours ago Success

result: Success time: 0.02s memory: 6204 kB returned value: 0
input:
```
powt([1,2,3]).
```
output: no
stderr:
```
Warning: /home/08Ip2B/prog.pl:2:
	Singleton variables: [H]

false.
```
# 1: hide show clone input 127 days 16 hours ago Success

result: Success time: 0.02s memory: 6204 kB returned value: 0

input: no

output: no
stderr:
```
Warning: /home/W7DTXV/prog.pl:2:
	Singleton variables: [H]
```

UsernamePassword

Username
Password