bennage · July 13, 2010 17:34 · bennage · Jul 13, 2010
diff --git a/combining two strings b/combining two strings
 // what's a better way?

 let fullName (first,last) =
    match (first, last) with
        "",_ | null,_ -> first
        | _,null | _,"" -> last
        | _ -> sprintf "%s.%s" first last
	// what's a better way?

	let fullName (first,last) =
	match (first, last) with
	"",_ \| null,_ -> first
	\| _,null \| _,"" -> last
	\| _ -> sprintf "%s.%s" first last