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
ad-hoc braille dot rendering
My "tying the knot"
folder
project euler 8, haskell
project euler 9, haskell
boolean functions of zero arguments in haskell
Semilattice
project euler 3, haskell
Bruteforce IEEE Floating Point Numbers
znajdywacz trojkatow prostokatnych