日期:2010-01-30 浏览次数:20535 次
使用选项(Option)
type 'T option =
None
Some of 'T
下面看一个例子:
> let people = [ ("Adam", None);
("Eve" , None);
("Cain", Some("Adam","Eve"));
("Abel", Some("Adam","Eve")) ];;
val people : (string * (string *string) option) list
使用模式匹配(Pattern matching)来生成option:
> let showParents (name,parents) =
match parents with
Some(dad,mum) -> printfn "%s has father %s, mother %s" name dad mum
None -> printfn "%s has no parents!" name;;
val showParents : (string * (string * string) option) -> unit
> showParents people.[0];;
Adam has no parents
val it : unit = ()
Option的一些有用的方法:
方法 类型 描述
Option.get 'T option -> 'T 返回一个Some类型的值。或抛异常
Option.isNone 'T option -> bool 返回一个Option是否是None
Option.map ('T -> 'U) -> 'T option -> 'U option 如果是None,就返回None。如果是Some(x),返回Some(f x),f是给定的函数
Option.iter ('T -> unit) -> 'T option -> unit 对Some类型的Option执行指定的方法。
一些例子:
> Option.map(fun x->x) a;;
val it : (string * string) option = Some ("aa", "bb")
> Option.map(fun x-> match x with (first,second) -> first) a;;
val it : string option = Some "aa"
> Option.map(fun x-> match x with (first,second) -> second) a;;
val it : string option = Some "bb"
>
> Option.iter(fun x-> match x with (first:string,second) -> printfn "%s" (first+second)) a;;
aabb
val it : unit = ()
>
使用Option类型进行控制
看这个例子:
let fetch url =
try Some (http url)
with :? System.Net.WebException -> None
http函数是在之前章节定义的获取html的那个方法。在None的情况下抛出一个exception。成功的访问会返回一个Some值,也就是Option类型的值。然后我们就可以使用Option值来进行模式匹配:
> match (fetch "http://www.nature.com") with
Some text -> printfn "text = %s" text
None -> printfn "**** no web page found";;
text = <HTML> ... </HTML> (note: the HTML is shown here if connected to the web)
val it : unit = ()