Ideone.com | Online Prolog Interpreter & Debugging Tool

language:	Prolog (swi) (swipl 5.6.64)
date:	128 days 12 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)->writeln(H).
 
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

# 4 # 3 # 2 # 1

upload with new input
# 4: hide show clone input 128 days 12 hours ago Success

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

false.
```
# 3: hide show clone input 128 days 12 hours ago Success

result: Success time: 0.02s memory: 6204 kB returned value: 0
input:
```
powt([1,2,1]).
```
output:
```
1
[1, 2, 1]
```
stderr:
```
Warning: /home/A3qhdo/prog.pl:2:
	Singleton variables: [H]
true.
```
# 2: hide show clone input 128 days 12 hours ago Success

result: Success time: 0.02s memory: 6204 kB returned value: 0
input:
```
powt([1,1,2]).
```
output:
```
1
[1, 1, 2]
```
stderr:
```
Warning: /home/eJg18J/prog.pl:2:
	Singleton variables: [H]
true.
```
# 1: hide show clone input 128 days 12 hours ago Success

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

input: no

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

UsernamePassword

Username
Password