Mais um blog inútil.

Ora viva de novo!
Mais uma vez venho blogar por causa de novas submissões de arvorezinhas, desta vez do ardoRic da PTnet! Ele diz o seguinte:

nao gostei da outra versão (está nos comentários) ... estava pouco ML like.
Espero que gostes desta :)

let rec branch n = 
   match n with 
     0 -> [] 
   | n -> "*":: branch (n-1)

let rec nat n = 
  match n with
     0 -> []
   | n -> n::(nat (n-1))
;;

List.iter (fun x -> 
  List.iter print_string x ;
  print_string "\n"
) (List.rev_map branch (nat 5))