Guest User

Untitled

a guest
Aug 20th, 2018
87
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.97 KB | None | 0 0
  1. let rec print h w =
  2. let rec print_s w =
  3. match w with
  4. |0 -> Printf.printf "\n"
  5. |_ -> Printf.printf "#";
  6. print_s (w - 1)
  7. in
  8. let rec print_d w =
  9. let rec print_d_inner w =
  10. match w with
  11. |0 -> ()
  12. |_ -> Printf.printf ".";
  13. print_d_inner (w - 1)
  14. in
  15. Printf.printf "#";
  16. print_d_inner (w - 2);
  17. Printf.printf "#\n"
  18. in
  19. let rec print_d_loop n w =
  20. match n with
  21. |0 -> ()
  22. |_ -> print_d w;
  23. print_d_loop (n - 1) w
  24. in
  25. print_s w;
  26. print_d_loop (h - 2) w;
  27. print_s w;
  28. Printf.printf "\n";;
  29.  
  30. let rec loop () =
  31. Scanf.scanf "%d %d\n" (fun h w -> if h = 0 && w = 0 then () else (print h w;loop()));;
  32.  
  33. let () =
  34. loop ();;
Add Comment
Please, Sign In to add comment