- let numero =
- (* print_string "numero:";*)
- print_newline();
- let numero = read_int () in
- numero
- let rec recursao numero espacos=
- if numero > 1 then
- recursao (numero/2) (espacos) ;
- print_string (" \n");
- let i= ref 1 in
- while !i<espacos do
- print_string (" ");
- incr i;
- done;
- let i= ref 1 in
- while !i<numero do
- print_string ("* ");
- incr i;
- done;
- print_string ("*");
- if numero > 1 then
- recursao (numero/2) (espacos+numero);;
- recursao numero 0 ;;
- print_string "\n\n";