fork download
copy 
  1. ; (setq numbers '(1 15 7 3 8 8 19 5 12 8 2 6 8))
  2. (setq numbers '(1 15 8 8 8 8 7 3 19 5 12 2 6))
  3.  
  4. (setq counter 1)
  5. (if (> (list-length numbers) 0) 
  6.     (progn (setq prev (car numbers)) 
  7.            (setq numbers (cdr numbers))))
  8.  
  9. (loop
  10.     while (and (> (list-length numbers) 0) (< counter 4))
  11.     do
  12.         (setq next (car numbers))
  13.         (setq numbers (cdr numbers))
  14.         (if (eql prev next) 
  15.             (setq counter (+ counter 1))
  16.             (progn (setq counter 1) (setq prev next))))
  17.  
  18. (if (eql counter 4)
  19.     (print "Found four times repeated number")
  20.     (print "No four times repeated number found"))
  21.  
Success #stdin #stdout 0.02s 10544KB
comments (?)
stdin
copy 


			

					
			
			

				
	
		
		
	
		
		 stdout
					

				
				 copy
			

			
	

		
"Found four times repeated number" 


	

		
	 
	
	
			

					
			
			
			
			
			
			
			
			

			
			
			
		

	
		
		

			

			                        







			
			

				

	
					
					 https://ideone.com/FRlZAt
					
					
					
					
					

												

												
						
						

					

					
					
					

						
language:

						
Common Lisp (clisp 2.49.92)

					

					

						
created:
								
						
11 years ago

					

					

						
visibility:

						

														 secret																					
							
							

								
							

						

					

										
										

					
					 Share or Embed source code
					
					
					
					

						
						
						
						
						
						
						
					

					
						
	
	
	
	
					
					
					
					
					 
					
					
					
					 
					
					
					
					
					
					

					

					

					
						
					

					


	
Discover > Sphere Engine API

	
The brand new service which powers Ideone!

	
	
Discover > IDE Widget

    
Widget for compiling and running the source code in a web browser!