haskell 基础题解（26）

手算开平方

【题目】如果没有计算机，你会手算开平方吗？ 实际上，这不需要特殊的口诀，只要用普通的四则运算就足够了。比如求2的开方，你先猜一个数 p， 用 2 除以 p 得 q。假如正好猜中了，必然 p = q，如果没猜中，那么真实的值必定在 p, q 之间，下一次你就猜 (p+q)/2， 如此反复就可以很快达到很高的精度了。请编程模拟这个过程。

从描述中可以感觉到是个递归的过程。haskell 处理递归是家常便饭。
上代码：

---手算开平方
f开方 :: (Ord a, Floating a) => a -> a
f开方 x = f 1 
    where
    f x猜 = let 
                x配 = x / x猜
                x差 = abs (x猜 - x配)
            in if x差 < d限 then 
                    x猜 
                else
                    f $ (x配 + x猜) / 2
    d限 = 1e-6

main :: IO ()
main = do
    print $ f开方 2
    print $ sqrt 2
    print $ f开方 10
    print $ sqrt 10    

haskell 中是可以使用汉语编程的。变量名，函数名，类型都可以是汉字。但有个小要求：值的名字必须小写字母开始，类型的名字（还有类型构造器）必须是大写字母开始。
文件的默认编码方式为：UTF-8

源程序主要是给人阅读的。可读性比什么都重要。用汉语，名字更短，描述性更好。
编译后，内部的符号都消失了，只剩下对外接口。为了兼容性，对外可见的接口最好还是用英文。

f猜， 是内部函数，它支持闭包。所以不用把 x 作为它的参数传入，而是直接使用就好。haskell的闭包概念很简单一致，没有任何的特殊性和限制。这是得益于 haskell 的不变性，外部的参数被传入后，其值不可能被更改，何时，何地去引用它都没有风险或歧义。