pythagorean triples

Run Settings
Language	Haskell
Language Version
Run Command

1
2
3
4
5
6
7
8
9
10
11
import Control.Monad
triples :: Int -> Int -> [(Int,Int,Int)]
triples i n = do
    x <- [i..n]
    y <- [i..n]
    z <- [i..n]
    guard $ (x^2 + y^2 == z^2)
    pure (x,y,z)
    
main = print $ triples 0 10
 
 
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

Editor Settings
Theme
Key bindings
Full width
Lines	10

Snippet Metadata
Owner	danielmg17
Created	6 years ago
Modified	6 years ago
Visibility	Public