Flooda. Write a function print_int_matrix : int array array -> unit = < fun> That prints a rectangular integer matrix on screen.b. Write a function flood : ’a array array -> ’a -> unit = that changes the values of the input matrix according to the rules of the game Flood: https://www.chiark.greenend.org.uk/~sgtatham/puzzles/js/ flood.html. In short, it changes the value of the top left element, along with every element of the same value that is reachable from it, to the specified ’a value. An element is reachable if there exist a path from the top left element by going down, left, up, or right along same value elements.here is how the compilation should be:1 # let generate_matrix rows columns vals seed = Random .init seed ; Array . make_matrix rows columns 0 | >Array . map ( Array . map (fun x - > Random . int vals ) ) ;;2 val generate_matrix : int -> int -> int -> int -> intarray array = <fun >(this is continue on the images) > # letcolormatrix-generate_matrixval colormatrix : int array array =[[12; 0; 4; 1; 2; 31; [13; 2; 4; 2; 3; 31]; [13;0; 4; 3; 3; 01]; [11; 3; 2; 0; 2; 11]]#print_int_matrix colormatrix ;;57 204123s 324233> 30433010 132021unit = ()12 # flood colormatrix 3 ;;unit = ()1314#print_int_matrix colormatrix ;;as 30412316 32423317 30433018 13202119 unit = ()20 # flood colormatrix 2 ;;21unit = ()22 #print_int_matrix colormatrix ;;23 20412324 2242332 204330261320214 6 50;;27unit = ()25 # flood colormatrix 4 ;;29unit = ()30 # print_int_matrix colormatrix ;;3140412332 4442333340433034 13202135 unit = ()36 #flood colormatrix 3 ;;37 unit = ()35 #print_int_matrix colormatrix ;;39 30312340 3332334130333042 132021unit = ()#let colormatrix2= [1 [12;0; 3; 3; 3;3;31]; [13;1; 3; 5; 4; 4;31]; [13;2;3;3;3;2;01]; [13;4;4;6;3;1;0145 val colormatrix2 int array array = 4647[[12; 0; 3; 3; 3; 3; 31]; [13; 1; 3; 5; 4; 4; 31];[13; 2; 3; 3; 3; 2; 01]; [13; 4; 4; 6; 3; 1; 0;[13; 3; 3; 3; 3; 0; 2111]colormatrix2 ;;4549 # print_int_matrixso 203333351 313544352 323332053 344631054 3333302unit ()s6 # flood colormatrix2 3 ;;57unit = ()#print_int_matrix colormatrix2 ;;59 303333360 313544361323332062 3446310633333302Gunit = ()6s #flood colormatrix2 4 ;;unit ()67 # print_int_matrix colormatrix2 ;;G40444444145444TO 424442071 444641072 444440273 unit = ()

let print_int_matrix (matrix: int array array) : unit = let rows = Array.length matrix in let…

Answered: Flood a. Write a function…

Database System Concepts

7th Edition

ISBN:9780078022159

Author:Abraham Silberschatz Professor, Henry F. Korth, S. Sudarshan

Publisher:Abraham Silberschatz Professor, Henry F. Korth, S. Sudarshan

Chapter1: Introduction

Section: Chapter Questions

Problem 1PE

See similar textbooks

Related questions

Question

Flood

a. Write a function print_int_matrix : int array array -> unit = < fun> That prints a rectangular integer matrix on screen.

b. Write a function flood : ’a array array -> ’a -> unit = that changes the values of the input matrix according to the rules of the game Flood: https://www.chiark.greenend.org.uk/~sgtatham/puzzles/js/ flood.html. In short, it changes the value of the top left element, along with every element of the same value that is reachable from it, to the specified ’a value. An element is reachable if there exist a path from the top left element by going down, left, up, or right along same value elements.

here is how the compilation should be:

1 # let generate_matrix rows columns vals seed = Random .
init seed ; Array . make_matrix rows columns 0 | >
Array . map ( Array . map (fun x - > Random . int vals ) ) ;;
2 val generate_matrix : int -> int -> int -> int -> int
array array = <fun >(this is continue on the images)

> # let
colormatrix-generate_matrix
val colormatrix : int array array =
[[12; 0; 4; 1; 2; 31; [13; 2; 4; 2; 3; 31]; [13;
0; 4; 3; 3; 01]; [11; 3; 2; 0; 2; 11]]
#print_int_matrix colormatrix ;;
5
7 204123
s 324233
> 304330
10 132021
unit = ()
12 # flood colormatrix 3 ;;
unit = ()
13
14#print_int_matrix colormatrix ;;
as 304123
16 324233
17 304330
18 132021
19 unit = ()
20 # flood colormatrix 2 ;;
21
unit = ()
22 #print_int_matrix colormatrix ;;
23 204123
24 224233
2 204330
26132021
4 6 50;;
27
unit = ()
25 # flood colormatrix 4 ;;
29
unit = ()
30 # print_int_matrix colormatrix ;;
31404123
32 444233
33404330
34 132021
35 unit = ()
36 #flood colormatrix 3 ;;
37 unit = ()
35 #print_int_matrix colormatrix ;;
39 303123
40 333233
41303330
42 132021
unit = ()
#let colormatrix2
= [1 [12;0; 3; 3; 3;3;31]; [13;1; 3; 5; 4; 4;31]; [13;2;3;3;3;2;01]; [13;4;4;6;3;1;01
45 val colormatrix2 int array array =

46
47
[[12; 0; 3; 3; 3; 3; 31]; [13; 1; 3; 5; 4; 4; 31];
[13; 2; 3; 3; 3; 2; 01]; [13; 4; 4; 6; 3; 1; 0;
[13; 3; 3; 3; 3; 0; 2111]
colormatrix2 ;;
45
49 # print_int_matrix
so 2033333
51 3135443
52 3233320
53 3446310
54 3333302
unit ()
s6 # flood colormatrix2 3 ;;
57
unit = ()
#print_int_matrix colormatrix2 ;;
59 3033333
60 3135443
613233320
62 3446310
633333302
Gunit = ()
6s #flood colormatrix2 4 ;;
unit ()
67 # print_int_matrix colormatrix2 ;;
G4044444
4145444
TO 4244420
71 4446410
72 4444402
73 unit = ()

Expert Solution

Step by step

Solved in 3 steps with 1 images

SEE SOLUTION Check out a sample Q&A here

Knowledge Booster

Learn more about

Need a deep-dive on the concept behind this application? Look no further. Learn more about this topic, computer-science and related others by exploring similar questions and additional content below.

Similar questions