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