F#初试（2）

这里只是几个f#简单的算法应用，请各位别怕砖。

代码   
 1 // Learn more about F# at http://fsharp.net  
 2   
 3 #light  
 4 open System  
 5   
 6   
 7 //简单的网页抓取  
 8 open System.Text  
 9 open System.IO  
10 open System.Net  
11 let http (url:string)=  
12     let request=System.Net.WebRequest.Create(url)  
13     let response=request.GetResponse()  
14     let stream=response.GetResponseStream()  
15     let reader=new System.IO.StreamReader(stream)  
16     let html =reader.ReadToEnd();  
17     html  
18 printfn "%s" (http "http://www.google.com")  
19   
20 //汉罗塔问题：  
21 let rec HanLiTa n a b c =  
22     match n with 
23     | 1 -> printfn " Move %s to %s ;"  a c  
24     | num ->  HanLiTa (num-1) a c b ;HanLiTa 1 a b c ; HanLiTa (num-1) b a c ;  
25   
26 let n=4  
27 printfn "HanLiTa start (%d):" n  
28 HanLiTa n "A" "B" "C" 
29   
30 //Fibonacci基数  
31   
32 let rec Fib n =   
33     match n with 
34     |2 |1 -> 1  
35     |i when i >1 -> Fib (i-1) + Fib (i-2)  
36     |x  when x<= 0 -> failwith " you should input a Interger;" 
37   
38 let fibn=5      
39 printfn "Fibonacci %d : %d"     fibn (Fib fibn)  
40   
41   
42 //杨辉三角  
43 let rec combi n r =  
44     let p=ref 1;  
45     [1 .. r] |> List.iter(fun g ->  p:=!p*(n-g+1)/g );  
46     !p  
47   
48 let CombiPrint N=  
49     [0 .. N] |>  
50          List.iter(fun g -> ([0 .. g] |>  
51                                     List.iter(fun h->   
52                                                 if h=0 then   
53                                                     [0..(N-g)] |>  
54                                                              List.iter(fun s->printf "  ") ;   
55                                                 printf "%5d" (combi g h));  
56                         printf "\r\n"));  
57   
58 printfn "\r\n杨辉三角:" 
59 CombiPrint 10  
60   
61   
62 Console.Read() |>ignore