{"request":{"endpoint":"https://exercism.org/api/v2/tracks/haskell/exercises/pythagorean-triplet/community_solutions","query":{},"options":{"initial_data":{"results":[{"uuid":"852995c487d14f648f465bd98ad7ee5d","snippet":"module Triplet (tripletsWithSum) where tripletsWithSum :: Int -> [(Int, Int, Int)] tripletsWithSum sum = [(a,b,c) | b <- [1..sum], a <- [1..b], let c = sum - a - b, a^2 + b^2 == c^2] ","num_views":0,"num_stars":1,"num_comments":0,"representation_num_published_solutions":3,"num_iterations":1,"num_loc":3,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2023-03-06T10:12:15.000Z","is_out_of_date":false,"language":"haskell","author":{"handle":"tobz619"},"exercise":{"title":"سه‌گانه‌ی فیثاغورسی","icon_url":"https://assets.exercism.org/exercises/pythagorean-triplet.svg"},"track":{"title":"Haskell","icon_url":"https://assets.exercism.org/tracks/haskell.svg","highlightjs_language":"haskell"},"links":{"public_url":"https://exercism.org/fa/tracks/haskell/exercises/pythagorean-triplet/solutions/tobz619","private_iterations_url":"https://exercism.org/fa/tracks/haskell/exercises/pythagorean-triplet/iterations"}},{"uuid":"33fcff68548e4a1aae1160a9cf3f15d5","snippet":"module Triplet (tripletsWithSum) where tripletsWithSum :: Int -> [(Int, Int, Int)] tripletsWithSum sum = [(a,b,c)|a<-[1..sum],b<-[a..sum],let c = sum - a - b, a^2+b^2==c^2] ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":3,"num_iterations":1,"num_loc":3,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2024-01-04T10:34:29.000Z","is_out_of_date":false,"language":"haskell","author":{"handle":"Dragon29R"},"exercise":{"title":"سه‌گانه‌ی فیثاغورسی","icon_url":"https://assets.exercism.org/exercises/pythagorean-triplet.svg"},"track":{"title":"Haskell","icon_url":"https://assets.exercism.org/tracks/haskell.svg","highlightjs_language":"haskell"},"links":{"public_url":"https://exercism.org/fa/tracks/haskell/exercises/pythagorean-triplet/solutions/Dragon29R","private_iterations_url":"https://exercism.org/fa/tracks/haskell/exercises/pythagorean-triplet/iterations"}},{"uuid":"2b251322cabe4b09ade5ecad0c4aad43","snippet":"module Triplet (tripletsWithSum) where tripletsWithSum :: Int -> [(Int, Int, Int)] tripletsWithSum sum = [(a, b, c) | a <- [1..sum], b <- [a+1..sum], let c = sum-a-b, a^2 + b^2 == c^2] ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":3,"num_iterations":1,"num_loc":3,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2024-02-16T21:53:03.000Z","is_out_of_date":false,"language":"haskell","author":{"handle":"ricardomaps"},"exercise":{"title":"سه‌گانه‌ی فیثاغورسی","icon_url":"https://assets.exercism.org/exercises/pythagorean-triplet.svg"},"track":{"title":"Haskell","icon_url":"https://assets.exercism.org/tracks/haskell.svg","highlightjs_language":"haskell"},"links":{"public_url":"https://exercism.org/fa/tracks/haskell/exercises/pythagorean-triplet/solutions/ricardomaps","private_iterations_url":"https://exercism.org/fa/tracks/haskell/exercises/pythagorean-triplet/iterations"}},{"uuid":"5eca7010b9684724b9912a1236461a0e","snippet":"module Triplet (tripletsWithSum) where tripletsWithSum :: Int -> [(Int, Int, Int)] tripletsWithSum s = [ (a, b, c) | a <- [1 .. s `div` 3] , b <- [a + 1 .. (s - a) `div` 2] , let c = s - a - b , a*a + b*b == c*c ] ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":2,"num_iterations":1,"num_loc":9,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2026-02-09T21:14:02.000Z","is_out_of_date":false,"language":"haskell","author":{"handle":"YBQuintus"},"exercise":{"title":"سه‌گانه‌ی فیثاغورسی","icon_url":"https://assets.exercism.org/exercises/pythagorean-triplet.svg"},"track":{"title":"Haskell","icon_url":"https://assets.exercism.org/tracks/haskell.svg","highlightjs_language":"haskell"},"links":{"public_url":"https://exercism.org/fa/tracks/haskell/exercises/pythagorean-triplet/solutions/YBQuintus","private_iterations_url":"https://exercism.org/fa/tracks/haskell/exercises/pythagorean-triplet/iterations"}},{"uuid":"7adce724391844eca8deb38387e20ce2","snippet":"module Triplet (tripletsWithSum) where tripletsWithSum :: Int -> [(Int, Int, Int)] tripletsWithSum sum = [(x,y,sum-x-y) | x <- [0..sum], y <- [x+1..(sum-x-1)`div`2], x^2+y^2 == (sum-x-y)^2] ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":2,"num_iterations":1,"num_loc":3,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2021-12-16T21:42:36.000Z","is_out_of_date":false,"language":"haskell","author":{"handle":"Remunerator"},"exercise":{"title":"سه‌گانه‌ی فیثاغورسی","icon_url":"https://assets.exercism.org/exercises/pythagorean-triplet.svg"},"track":{"title":"Haskell","icon_url":"https://assets.exercism.org/tracks/haskell.svg","highlightjs_language":"haskell"},"links":{"public_url":"https://exercism.org/fa/tracks/haskell/exercises/pythagorean-triplet/solutions/Remunerator","private_iterations_url":"https://exercism.org/fa/tracks/haskell/exercises/pythagorean-triplet/iterations"}},{"uuid":"52da9485c86149d1ad1f286a3085f94a","snippet":"module Triplet (tripletsWithSum) where tripletsWithSum :: Int -> [(Int, Int, Int)] tripletsWithSum n = [ (a, b, c) | a <- [1 .. n `div` 3], b <- [a + 1 .. (n - a) `div` 2], let c = n - a - b, a*a + b*b == c*c ]","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":2,"num_iterations":1,"num_loc":9,"iteration_status":"analyzing","published_iteration_head_tests_status":"passed","published_at":"2025-07-03T07:49:38.000Z","is_out_of_date":false,"language":"haskell","author":{"handle":"HQi0"},"exercise":{"title":"سه‌گانه‌ی فیثاغورسی","icon_url":"https://assets.exercism.org/exercises/pythagorean-triplet.svg"},"track":{"title":"Haskell","icon_url":"https://assets.exercism.org/tracks/haskell.svg","highlightjs_language":"haskell"},"links":{"public_url":"https://exercism.org/fa/tracks/haskell/exercises/pythagorean-triplet/solutions/HQi0","private_iterations_url":"https://exercism.org/fa/tracks/haskell/exercises/pythagorean-triplet/iterations"}},{"uuid":"bf19c0458e1a4f0d8d7acf23aa6ac4cd","snippet":"module Triplet ( tripletsWithSum ) where import Control.Monad tripletsWithSum :: Int -> [(Int, Int, Int)] tripletsWithSum s = do c <- takeWhile (>= 5) $ iterate pred (s `quot` 2) ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":2,"num_loc":13,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2018-07-13T10:01:29.000Z","is_out_of_date":false,"language":"haskell","author":{"handle":"Javran"},"exercise":{"title":"سه‌گانه‌ی فیثاغورسی","icon_url":"https://assets.exercism.org/exercises/pythagorean-triplet.svg"},"track":{"title":"Haskell","icon_url":"https://assets.exercism.org/tracks/haskell.svg","highlightjs_language":"haskell"},"links":{"public_url":"https://exercism.org/fa/tracks/haskell/exercises/pythagorean-triplet/solutions/Javran","private_iterations_url":"https://exercism.org/fa/tracks/haskell/exercises/pythagorean-triplet/iterations"}},{"uuid":"f8c79afab6154916b1c5004f71a58d1d","snippet":"module Triplet ( tripletsWithSum ) where import Prelude hiding ( sum ) tripletsWithSum :: Int -> [(Int, Int, Int)] tripletsWithSum sum = [ (a, b, c) ","num_views":0,"num_stars":0,"num_comments":1,"representation_num_published_solutions":1,"num_iterations":1,"num_loc":14,"iteration_status":"tests_failed","published_iteration_head_tests_status":"exceptioned","published_at":"2019-08-07T01:00:20.000Z","is_out_of_date":true,"language":"haskell","author":{"handle":"Disco-Dave"},"exercise":{"title":"سه‌گانه‌ی فیثاغورسی","icon_url":"https://assets.exercism.org/exercises/pythagorean-triplet.svg"},"track":{"title":"Haskell","icon_url":"https://assets.exercism.org/tracks/haskell.svg","highlightjs_language":"haskell"},"links":{"public_url":"https://exercism.org/fa/tracks/haskell/exercises/pythagorean-triplet/solutions/Disco-Dave","private_iterations_url":"https://exercism.org/fa/tracks/haskell/exercises/pythagorean-triplet/iterations"}},{"uuid":"1a5c34c3d1ab4c2aadb70aac39c3aea4","snippet":"module Triplet (tripletsWithSum) where import Control.Monad (guard) tripletsWithSum :: Int -> [(Int, Int, Int)] tripletsWithSum sum = do a <- [1..(sum `div` 3)] b <- [a..(sum `div` 2)] let c = sum - (a + b) guard (b < c) ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":2,"num_loc":10,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2019-12-13T13:47:01.000Z","is_out_of_date":false,"language":"haskell","author":{"handle":"goderich"},"exercise":{"title":"سه‌گانه‌ی فیثاغورسی","icon_url":"https://assets.exercism.org/exercises/pythagorean-triplet.svg"},"track":{"title":"Haskell","icon_url":"https://assets.exercism.org/tracks/haskell.svg","highlightjs_language":"haskell"},"links":{"public_url":"https://exercism.org/fa/tracks/haskell/exercises/pythagorean-triplet/solutions/goderich","private_iterations_url":"https://exercism.org/fa/tracks/haskell/exercises/pythagorean-triplet/iterations"}},{"uuid":"5875357f939d4a3180ff17dc20b36e06","snippet":"module Triplet (tripletsWithSum) where tripletsWithSum :: Int -> [(Int, Int, Int)] tripletsWithSum sum = [(a, b, c) | b <- [1..sum], a <- [1..b], let c = sum - a - b, a^2 + b^2 == c^2] ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":1,"num_loc":7,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2018-11-07T02:56:33.000Z","is_out_of_date":false,"language":"haskell","author":{"handle":"peterb12"},"exercise":{"title":"سه‌گانه‌ی فیثاغورسی","icon_url":"https://assets.exercism.org/exercises/pythagorean-triplet.svg"},"track":{"title":"Haskell","icon_url":"https://assets.exercism.org/tracks/haskell.svg","highlightjs_language":"haskell"},"links":{"public_url":"https://exercism.org/fa/tracks/haskell/exercises/pythagorean-triplet/solutions/peterb12","private_iterations_url":"https://exercism.org/fa/tracks/haskell/exercises/pythagorean-triplet/iterations"}},{"uuid":"7e6158a3a745416ea11f6a684e95e8fb","snippet":"module Triplet (tripletsWithSum) where tripletsWithSum :: Integer -> [(Integer, Integer, Integer)] tripletsWithSum sum' = [ (a,b,c) | c <- [1..sum'], b <- [1..c], a <- [1..b], a^2 + b^2 == c^2, a + b + c == sum' ] ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":1,"num_loc":3,"iteration_status":"tests_failed","published_iteration_head_tests_status":"exceptioned","published_at":"2019-11-04T16:58:38.000Z","is_out_of_date":true,"language":"haskell","author":{"handle":"juliagoda"},"exercise":{"title":"سه‌گانه‌ی فیثاغورسی","icon_url":"https://assets.exercism.org/exercises/pythagorean-triplet.svg"},"track":{"title":"Haskell","icon_url":"https://assets.exercism.org/tracks/haskell.svg","highlightjs_language":"haskell"},"links":{"public_url":"https://exercism.org/fa/tracks/haskell/exercises/pythagorean-triplet/solutions/juliagoda","private_iterations_url":"https://exercism.org/fa/tracks/haskell/exercises/pythagorean-triplet/iterations"}},{"uuid":"e90a86b1c8f74035bcfe29bb7a41480f","snippet":"module Triplet (tripletsWithSum) where tripletsWithSum :: Int -> [(Int, Int, Int)] tripletsWithSum s = [(a, b, c) | c <- [1 .. s], b <- [1 .. c], let a = s - c - b , a > 0 , a <= b , (a * a) + (b * b) == (c * c) ] ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":1,"num_loc":7,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2019-07-16T21:07:38.000Z","is_out_of_date":false,"language":"haskell","author":{"handle":"kwhrstr"},"exercise":{"title":"سه‌گانه‌ی فیثاغورسی","icon_url":"https://assets.exercism.org/exercises/pythagorean-triplet.svg"},"track":{"title":"Haskell","icon_url":"https://assets.exercism.org/tracks/haskell.svg","highlightjs_language":"haskell"},"links":{"public_url":"https://exercism.org/fa/tracks/haskell/exercises/pythagorean-triplet/solutions/kwhrstr","private_iterations_url":"https://exercism.org/fa/tracks/haskell/exercises/pythagorean-triplet/iterations"}},{"uuid":"b6d966efb34445e8b838601f8ab9a97b","snippet":"module Triplet (tripletsWithSum) where import Data.Maybe (mapMaybe) import Data.List (sort) import Control.Monad (guard) tripletsWithSum :: Int -> [(Int, Int, Int)] tripletsWithSum n = concat $ mapMaybe f [1..(n-1)] where f c = let m = n - c ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":1,"num_loc":19,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2020-03-25T20:41:24.000Z","is_out_of_date":false,"language":"haskell","author":{"handle":"herywort"},"exercise":{"title":"سه‌گانه‌ی فیثاغورسی","icon_url":"https://assets.exercism.org/exercises/pythagorean-triplet.svg"},"track":{"title":"Haskell","icon_url":"https://assets.exercism.org/tracks/haskell.svg","highlightjs_language":"haskell"},"links":{"public_url":"https://exercism.org/fa/tracks/haskell/exercises/pythagorean-triplet/solutions/herywort","private_iterations_url":"https://exercism.org/fa/tracks/haskell/exercises/pythagorean-triplet/iterations"}},{"uuid":"f5d3d5025603489da0094e3e610ff9d7","snippet":"module Triplet (tripletsWithSum) where tripletsWithSum :: Int -> [(Int,Int,Int)] tripletsWithSum n = filter (\(a,b,c) -> a*a+b*b == c*c) $ triplets n triplets :: Int -> [(Int,Int,Int)] triplets n = [ (a, b, c) ","num_views":0,"num_stars":4,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":1,"num_loc":12,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2020-01-23T10:45:43.000Z","is_out_of_date":false,"language":"haskell","author":{"handle":"dkaysin"},"exercise":{"title":"سه‌گانه‌ی فیثاغورسی","icon_url":"https://assets.exercism.org/exercises/pythagorean-triplet.svg"},"track":{"title":"Haskell","icon_url":"https://assets.exercism.org/tracks/haskell.svg","highlightjs_language":"haskell"},"links":{"public_url":"https://exercism.org/fa/tracks/haskell/exercises/pythagorean-triplet/solutions/dkaysin","private_iterations_url":"https://exercism.org/fa/tracks/haskell/exercises/pythagorean-triplet/iterations"}},{"uuid":"e7f5eaed53e14ea8b77b62d921f2251d","snippet":"module Triplet ( tripletsWithSum ) where paramsToTriple :: Int -> Int -> Int -> (Int, Int, Int) paramsToTriple m n k = (k * min a b, k * max a b, k * c) where a = m * m - n * n b = 2 * m * n c = m * m + n * n ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":1,"num_loc":23,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2021-04-11T18:08:09.000Z","is_out_of_date":false,"language":"haskell","author":{"handle":"paolobrasolin"},"exercise":{"title":"سه‌گانه‌ی فیثاغورسی","icon_url":"https://assets.exercism.org/exercises/pythagorean-triplet.svg"},"track":{"title":"Haskell","icon_url":"https://assets.exercism.org/tracks/haskell.svg","highlightjs_language":"haskell"},"links":{"public_url":"https://exercism.org/fa/tracks/haskell/exercises/pythagorean-triplet/solutions/paolobrasolin","private_iterations_url":"https://exercism.org/fa/tracks/haskell/exercises/pythagorean-triplet/iterations"}},{"uuid":"fd976f6661884199837588b17757bd2c","snippet":"module Triplet (tripletsWithSum) where tripletsWithSum :: Int -> [(Int, Int, Int)] tripletsWithSum sum = [(a, b, c) | a <- [1 .. sum], b <- [(succ a) .. sum], let c = sum - a - b, a * a + b * b == c * c] ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":1,"num_loc":4,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2020-06-12T14:46:19.000Z","is_out_of_date":false,"language":"haskell","author":{"handle":"birdbrain"},"exercise":{"title":"سه‌گانه‌ی فیثاغورسی","icon_url":"https://assets.exercism.org/exercises/pythagorean-triplet.svg"},"track":{"title":"Haskell","icon_url":"https://assets.exercism.org/tracks/haskell.svg","highlightjs_language":"haskell"},"links":{"public_url":"https://exercism.org/fa/tracks/haskell/exercises/pythagorean-triplet/solutions/birdbrain","private_iterations_url":"https://exercism.org/fa/tracks/haskell/exercises/pythagorean-triplet/iterations"}},{"uuid":"6c3f87d258b348958020ec2a1f8158dd","snippet":"module Triplet ( tripletsWithSum ) where import Data.Maybe (maybeToList) tripletsWithSum :: Int -> [(Int, Int, Int)] tripletsWithSum sum | odd sum = [] | otherwise = ","num_views":0,"num_stars":1,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":2,"num_loc":22,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2020-04-29T15:07:19.000Z","is_out_of_date":false,"language":"haskell","author":{"handle":"blauser"},"exercise":{"title":"سه‌گانه‌ی فیثاغورسی","icon_url":"https://assets.exercism.org/exercises/pythagorean-triplet.svg"},"track":{"title":"Haskell","icon_url":"https://assets.exercism.org/tracks/haskell.svg","highlightjs_language":"haskell"},"links":{"public_url":"https://exercism.org/fa/tracks/haskell/exercises/pythagorean-triplet/solutions/blauser","private_iterations_url":"https://exercism.org/fa/tracks/haskell/exercises/pythagorean-triplet/iterations"}},{"uuid":"509245dad85f4ba4b12e077bbd043420","snippet":"module Triplet (tripletsWithSum) where tripletsWithSum :: Int -> [(Int, Int, Int)] tripletsWithSum sum = filter sqrFilter $ getTrip sum where sqrFilter (a, b, c) = a^2 + b^2 == c^2 getTrip :: Int -> [(Int, Int, Int)] getTrip sum = [(sum - hi - mid, mid, hi) | hi <- [1..sum `div` 2], mid <- [1..hi - 1], hi > mid, sum -hi- mid < mid] ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":2,"num_loc":6,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2020-03-24T02:08:49.000Z","is_out_of_date":false,"language":"haskell","author":{"handle":"notBob"},"exercise":{"title":"سه‌گانه‌ی فیثاغورسی","icon_url":"https://assets.exercism.org/exercises/pythagorean-triplet.svg"},"track":{"title":"Haskell","icon_url":"https://assets.exercism.org/tracks/haskell.svg","highlightjs_language":"haskell"},"links":{"public_url":"https://exercism.org/fa/tracks/haskell/exercises/pythagorean-triplet/solutions/notBob","private_iterations_url":"https://exercism.org/fa/tracks/haskell/exercises/pythagorean-triplet/iterations"}},{"uuid":"7a6660f9948d41a1aaa2a5ce7d0a65ff","snippet":"module Triplet (tripletsWithSum) where import Prelude hiding (sum) import Control.Monad (guard) tripletsWithSum :: Int -> [(Int, Int, Int)] tripletsWithSum sum = do a <- [1..sum `div` 3] b <- [a + 1..(sum - a) `div` 2] let c = sum - a - b guard (a * a + b * b == c * c) ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":2,"num_loc":9,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2020-11-05T20:24:16.000Z","is_out_of_date":false,"language":"haskell","author":{"handle":"gbelmonte"},"exercise":{"title":"سه‌گانه‌ی فیثاغورسی","icon_url":"https://assets.exercism.org/exercises/pythagorean-triplet.svg"},"track":{"title":"Haskell","icon_url":"https://assets.exercism.org/tracks/haskell.svg","highlightjs_language":"haskell"},"links":{"public_url":"https://exercism.org/fa/tracks/haskell/exercises/pythagorean-triplet/solutions/gbelmonte","private_iterations_url":"https://exercism.org/fa/tracks/haskell/exercises/pythagorean-triplet/iterations"}},{"uuid":"c242b0644b4646b0ad89d5dc63eefba6","snippet":"module Triplet ( tripletsWithSum ) where import Data.List ( sort ) import Control.Monad (guard) -- Every pythagorean triple is of the form: -- ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":2,"num_loc":29,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2020-09-06T10:21:27.000Z","is_out_of_date":false,"language":"haskell","author":{"handle":"lukaszrozej"},"exercise":{"title":"سه‌گانه‌ی فیثاغورسی","icon_url":"https://assets.exercism.org/exercises/pythagorean-triplet.svg"},"track":{"title":"Haskell","icon_url":"https://assets.exercism.org/tracks/haskell.svg","highlightjs_language":"haskell"},"links":{"public_url":"https://exercism.org/fa/tracks/haskell/exercises/pythagorean-triplet/solutions/lukaszrozej","private_iterations_url":"https://exercism.org/fa/tracks/haskell/exercises/pythagorean-triplet/iterations"}},{"uuid":"9e48a984e19d4702960255b62cc2d31d","snippet":"module Triplet (tripletsWithSum) where tripletsWithSum :: Int -> [(Int, Int, Int)] tripletsWithSum sum = [ (x,y,z) | z <- [1 .. sum - 2] , y <- [1 .. z - 1] , x <- [sum - z - y] , 0 < x && x < y , x^2 + y^2 == z^2 ] ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":2,"num_loc":9,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2021-02-16T04:03:55.000Z","is_out_of_date":false,"language":"haskell","author":{"handle":"HallMatthew314"},"exercise":{"title":"سه‌گانه‌ی فیثاغورسی","icon_url":"https://assets.exercism.org/exercises/pythagorean-triplet.svg"},"track":{"title":"Haskell","icon_url":"https://assets.exercism.org/tracks/haskell.svg","highlightjs_language":"haskell"},"links":{"public_url":"https://exercism.org/fa/tracks/haskell/exercises/pythagorean-triplet/solutions/HallMatthew314","private_iterations_url":"https://exercism.org/fa/tracks/haskell/exercises/pythagorean-triplet/iterations"}},{"uuid":"d6ef8b49b0da4614b12fb5cbd93aa3b3","snippet":"module Triplet (tripletsWithSum) where tripletsWithSum :: Int -> [(Int, Int, Int)] tripletsWithSum sum = [ (a, b, c) | a <- [1 .. sum `div` 3] , b <- [a + 1 .. a + ((sum-a) `div` 2)] , let c = sum - a - b , a*a + b*b == c*c ] ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":2,"num_loc":9,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2020-10-31T01:13:42.000Z","is_out_of_date":false,"language":"haskell","author":{"handle":"patientstreetlight"},"exercise":{"title":"سه‌گانه‌ی فیثاغورسی","icon_url":"https://assets.exercism.org/exercises/pythagorean-triplet.svg"},"track":{"title":"Haskell","icon_url":"https://assets.exercism.org/tracks/haskell.svg","highlightjs_language":"haskell"},"links":{"public_url":"https://exercism.org/fa/tracks/haskell/exercises/pythagorean-triplet/solutions/patientstreetlight","private_iterations_url":"https://exercism.org/fa/tracks/haskell/exercises/pythagorean-triplet/iterations"}},{"uuid":"0a0ffd74ffd5464f8a8f6359b4bb3c7a","snippet":"module Triplet (tripletsWithSum) where import Control.Monad (guard) tripletsWithSum :: Int -> [(Int, Int, Int)] tripletsWithSum sum = do x <- [1..sum] y <- [x..sum] let z = sum - x - y guard $ x^2 + y^2 == z^2 ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":1,"num_loc":9,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2021-04-10T08:36:11.000Z","is_out_of_date":false,"language":"haskell","author":{"handle":"happyorsaad"},"exercise":{"title":"سه‌گانه‌ی فیثاغورسی","icon_url":"https://assets.exercism.org/exercises/pythagorean-triplet.svg"},"track":{"title":"Haskell","icon_url":"https://assets.exercism.org/tracks/haskell.svg","highlightjs_language":"haskell"},"links":{"public_url":"https://exercism.org/fa/tracks/haskell/exercises/pythagorean-triplet/solutions/happyorsaad","private_iterations_url":"https://exercism.org/fa/tracks/haskell/exercises/pythagorean-triplet/iterations"}},{"uuid":"0cd06b051c3942449aba617422d2a504","snippet":"module Triplet (tripletsWithSum) where import Data.List tripletsWithSum :: Int -> [(Int, Int, Int)] tripletsWithSum sum = [ (a, b, c) | a <- [1..sum-2] , b <- [a..sum-2] , let c = sum - a - b , a < b, b < c , pythagorean $ sort [a, b, c] ] ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":1,"num_loc":10,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2021-11-22T12:33:32.000Z","is_out_of_date":false,"language":"haskell","author":{"handle":"wsgac"},"exercise":{"title":"سه‌گانه‌ی فیثاغورسی","icon_url":"https://assets.exercism.org/exercises/pythagorean-triplet.svg"},"track":{"title":"Haskell","icon_url":"https://assets.exercism.org/tracks/haskell.svg","highlightjs_language":"haskell"},"links":{"public_url":"https://exercism.org/fa/tracks/haskell/exercises/pythagorean-triplet/solutions/wsgac","private_iterations_url":"https://exercism.org/fa/tracks/haskell/exercises/pythagorean-triplet/iterations"}}],"meta":{"current_page":1,"total_count":272,"total_pages":12,"unscoped_total":272}}}}}

مسیرهای زبان

با Jiki کدنویسی یاد بگیرید

سفر شما

علاقه‌مندی‌های شماجدید

مزایای Exercism

ویدیوهای جامعه

مجموعه‌ی معرفی‌های کوتاه

مصاحبه‌ها و داستان‌ها

Discord

انجمن

شروع کار

منتورینگ

مستندات

مشارکت‌کنندگان

مترجمانجدید

حمایت مالی

درباره‌ی Exercism

تأثیر ما

همگام‌ساز GitHubجدید

Insiders