Guest User

Untitled

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