Rather (in this case):

let a = List.map fst (List.filter (fun x -> snd x) [(out, o); (value, v)])

That seems reasonable.

On Fri, Jan 20, 2012 at 09:52, Lin <mysnowls@163.com> wrote:

> What about:
>
> let a = List.filter (fun x -> x)  [out; value]
>
> Lin
>
>
>
> On 01/20/2012 02:38 PM, Martin DeMello wrote:
>
>>       let a = match (out, value) with
>>         (true, true)  ->  [o; v]
>>       | (false, true) ->  [v]
>>       | (true, false) ->  [o]
>>       | (false, false) ->  []
>>
>>
>
>
> --
> Caml-list mailing list.  Subscription management and archives:
> https://sympa-roc.inria.fr/**wws/info/caml-list<https://sympa-roc.inria.fr/wws/info/caml-list>
> Beginner's list: http://groups.yahoo.com/group/**ocaml_beginners<http://groups.yahoo.com/group/ocaml_beginners>
> Bug reports: http://caml.inria.fr/bin/caml-**bugs<http://caml.inria.fr/bin/caml-bugs>
>
>