fork(2) download 
  1. prdel(1,[],_).
  2.  
  3. prdel(P,[D|L],D):-
  4.       0 is mod(P,D),
  5.       P1 is P/D,
  6.       prdel(P1,L,D).
  7.  
  8. prdel(P,L,D):-
  9.       D1 is D+1,
  10.       D1 =< P,
  11.       prdel(P,L,D1).
  12.  
  13. :- findall(X, prdel(72, X, 2), LIST), write(LIST).
Success #stdin #stdout #stderr 0.02s 6204KB
comments ()
stdin 
Standard input is empty
stdout 
[[2, 2, 2, 3, 3], [2, 2, 2, 9], [2, 2, 3, 6], [2, 2, 18], [2, 3, 3, 4], [2, 3, 12], [2, 4, 9], [2, 6, 6], [2, 36], [3, 3, 8], [3, 4, 6], [3, 24], [4, 18], [6, 12], [8, 9], [72]]
stderr 

    

	
			

					
			
			
			
			
			
			
			
			

			
			
			
		

	
		
		

			


			                        
			
			

				

	
					
					 https://ideone.com/UN7vjU
					
					
					
					
					

												

												
						
						

					

					
					
					

						
language:

						
Prolog (swi 7.6.4)

					

					

						
created:
								
						
10 years ago

					

					

						
visibility:

						

							 public																												
							
							

								
							

						

					

										
										

					
					 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!