转变思想,成就自我。 let mapl f l = match l with [] - > [] | h::t -> map f h :: mapl f t ;;val mapl : ('a -> 'b) -> 'a list
注册时间:2010-12-02