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

• upload with new input
  You have reached a limit of free submissions this month.
  You cannot send submissions this month anymore because of exceeding your monthly limit. Please recharge your account.
  
• # 3:   hide show   clone   input   121 days 16 hours ago    Success

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

  input:

  usun(1,[1,2,3,4,5,6],[2,3,4,5,6]).

  output: no
  stderr:

  Warning: /home/e8YxgB/prog.pl:2:
  	Singleton variables: [H]
  
  true 
  EOF: halt
  

• # 2:   hide show   clone   input   121 days 16 hours ago    Success

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

  input:

  usun(3,[1,2,3,4,5,6],10).

  output: no
  stderr:

  Warning: /home/P2x7OX/prog.pl:2:
  	Singleton variables: [H]
  
  false.
  
  
  

• # 1:   hide show   clone   input   121 days 16 hours ago    Success

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

  input: no
  output: no
  stderr:

  Warning: /home/ohZ28Q/prog.pl:2:
  	Singleton variables: [H]