fork download
copy 
  1. pyth n = [ (a, b, c)
  2.     | a <- [1  ..n-2]
  3.     , b <- [a+1..n-1]
  4.     , c <- [b+1..n  ]
  5.     , a + b + c <= n
  6.     , a^2 + b^2 == c^2 ]
  7.  
  8. main = mapM_ print $ pyth 100
Success #stdin #stdout 0.01s 5684KB
comments (?)
stdin
copy 


			

					
			
			

				
	
		
		
	
		
		 stdout
					

				
				 copy
			

			
	

		
(3,4,5)
(5,12,13)
(6,8,10)
(7,24,25)
(8,15,17)
(9,12,15)
(9,40,41)
(10,24,26)
(12,16,20)
(12,35,37)
(15,20,25)
(15,36,39)
(16,30,34)
(18,24,30)
(20,21,29)
(21,28,35)
(24,32,40)


	

		
	 
	
	
			

					
			
			
			
			
			
			
			
			

			
			
			
		

	
		
		

			

			                        







			
			

				

	
					
					 https://ideone.com/bhn9dT
					
					
					
					
					

												

												
						
						

					

					
					
					

						
language:

						
Haskell (ghc 8.4.4)

					

					

						
created:
								
						
12 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!