spacepaste

Paste details

reply | raw

  1.  
  2. let numero = read_int()
  6. let rec recursao numero espacos=
  8. if numero > 1 then
  9. recursao (numero/2) (espacos) ;
  10. if espacos > 1 then
  11. print_string("");
  13. let i= ref 1 in
  14. while !i<espacos do
  15. print_string (" ");
  16. incr i;
  17. done;
  19. let i= ref 1 in
  20. while !i<numero do
  21. print_string ("* ");
  22. incr i;
  23. done;
  25. print_string ("*2");
  26. print_string("\n");
  27. if numero > 1 then
  28. recursao (numero/2) (espacos+numero);;
  30. recursao numero 1 ;;
  31.  
Powered by spacepaste. Paste removal.