F#初试（2）

 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