Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
mySqrt
countSqrt :: (Float, Float) -> Float -> Float countSqrt (a, b) n | abs (b - a) < 1e-6 = (a + b) / 2 | otherwise = countSqrt (m1, m2) n where m1 = (a + b) / 2 m2 = n / m1 mySqrt :: Int -> Float mySqrt n = countSqrt (1, y) y where y = fromIntegral n main = do print $ zip [1..200] (map mySqrt [1..200])
run
|
edit
|
history
|
help
0
folder
appending and prepending list
first haskell program
equiv_strings
Traversable
Calculate Integral of function
Cubed
folder
Token
haskell_exam