Skip to content

Instantly share code, notes, and snippets.

@maxehmookau

maxehmookau/rightTriangles.hs

Last active December 14, 2015 13:28
Show Gist options
  • Save maxehmookau/5093623 to your computer and use it in GitHub Desktop.
Save maxehmookau/5093623 to your computer and use it in GitHub Desktop.
Download ZIP
Find the length of the sides of right-angled triangles with a perimeter of 24 and some other mathy stuff
Raw
rightTriangles.hs
let rightTriangles = [ (a,b,c) | c <- [1..10], b <- [1..10], a <- [1..10], a^2 + b^2 == c^2, a+b+c == 24 ]
circumference' :: Float -> Float
circumference' r = 2*pi*r
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment