Lets assume, that we have a 3D model composed from cubes in standard Euclidean space. In our model, we are using only positive integers. Each of these cubes is defined by its corner with the smallest x, y and z coordinate by its size. Also each of these boxes have a color. In our case, while we are using only a text mode, it will be a character. You can assume, that the cubes in our model do not overlap, but there can be cubes placed above other cubes. In the code, it will be represented by following type Cube -- Point x y z data Point - Point Int Int Int data Cube - Cube {start::Point, size::Int, color::Char } Write a function view that takes a list of cubes ( [Cube] ) and returns a floor plane (a view from the top). The size of this floor plan will be computed based on the size of the boxes in the input. The result will be a list of strings. following function pp to print it on the screen. For the output format, see the sample output bellow. The bottom left corner has the coordinates (0,0), y-axis corresponds to rows and x-axis to columns. Visible parts of the cubes a visualized by its colors. Empty space is represented by character. sampleInput :: [Cube] sampleInput - [Cube { start - Point 1 1 10, size - 4, color - 'X'}, Cube { start - Point 1 5 1e, size - 3, color - '0'}, Cube { start - Point 10 8 e, size - 2, color - '#'}, Cube { start - Point e e e, size - 10, color view :: [Cube] -> Result *Main> pp (view sampleInput ) ** # *000 * *000 *000 *XXXX *XXXX *XXXX *****XXXOX
Lets assume, that we have a 3D model composed from cubes in standard Euclidean space. In our model, we are using only positive integers. Each of these cubes is defined by its corner with the smallest x, y and z coordinate by its size. Also each of these boxes have a color. In our case, while we are using only a text mode, it will be a character. You can assume, that the cubes in our model do not overlap, but there can be cubes placed above other cubes. In the code, it will be represented by following type Cube -- Point x y z data Point - Point Int Int Int data Cube - Cube {start::Point, size::Int, color::Char } Write a function view that takes a list of cubes ( [Cube] ) and returns a floor plane (a view from the top). The size of this floor plan will be computed based on the size of the boxes in the input. The result will be a list of strings. following function pp to print it on the screen. For the output format, see the sample output bellow. The bottom left corner has the coordinates (0,0), y-axis corresponds to rows and x-axis to columns. Visible parts of the cubes a visualized by its colors. Empty space is represented by character. sampleInput :: [Cube] sampleInput - [Cube { start - Point 1 1 10, size - 4, color - 'X'}, Cube { start - Point 1 5 1e, size - 3, color - '0'}, Cube { start - Point 10 8 e, size - 2, color - '#'}, Cube { start - Point e e e, size - 10, color view :: [Cube] -> Result *Main> pp (view sampleInput ) ** # *000 * *000 *000 *XXXX *XXXX *XXXX *****XXXOX
Computer Networking: A Top-Down Approach (7th Edition)
7th Edition
ISBN:9780133594140
Author:James Kurose, Keith Ross
Publisher:James Kurose, Keith Ross
Chapter1: Computer Networks And The Internet
Section: Chapter Questions
Problem R1RQ: What is the difference between a host and an end system? List several different types of end...
Related questions
Question
![5 - Cubes
Lets assume, that we have a 3D model composed from cubes in standard Euclidean space. In our model, we are using only positive integers. Each of these cubes is defined by its corner with the smallest x, y and z coordinates and
by its size. Also each of these boxes have a color. In our case, while we are using only a text mode, it will be a character. You can assume, that the cubes in our model do not overlap, but there can be cubes placed above other
cubes. In the code, it will be represented by following type Cube
-- Point x y z
data Point = Point Int Int Int
data Cube = Cube {start::Point, size::Int, color::Char }
Write a function view that takes a list of cubes ( [Cube] ) and returns a floor plang (a view from the top). The size of this floor plan will be computed based on the size of the boxes in the input. The result will be a list of strings. Use
following function pp to print it on the screen. For the output format, see the sample output bellow. The bottom left corner has the coordinates (0,0), y-axis corresponds to rows and x-axis to columns. Visible parts of the cubes are
visualized by its colors. Empty space is represented by character ''.
sampleInput :: [Cube]
sampleInput = [Cube { start = Point 1 1 10, size = 4, color = 'X'},
Cube { start = Point 1 5 10, size = 3, color = 'O'},
Cube { start = Point 10 8 0, size = 2, color = '#'},
•*'}]
Cube { start = Point e e 0, size = 10, color =
view :: [Cube] -> Result
*Main> pp (view sampleInput )
***##
*000*
000*
*000******
*XXXX*****
*XXXX*****
*XXXX*
*****XXXX
**********](/v2/_next/image?url=https%3A%2F%2Fcontent.bartleby.com%2Fqna-images%2Fquestion%2Fd6f8218b-27d2-4f52-bca2-f8893a8a527c%2Fb6dc6bbe-a495-44e4-b4dd-f7862710001e%2F9xhz5ax_processed.png&w=3840&q=75)
Transcribed Image Text:5 - Cubes
Lets assume, that we have a 3D model composed from cubes in standard Euclidean space. In our model, we are using only positive integers. Each of these cubes is defined by its corner with the smallest x, y and z coordinates and
by its size. Also each of these boxes have a color. In our case, while we are using only a text mode, it will be a character. You can assume, that the cubes in our model do not overlap, but there can be cubes placed above other
cubes. In the code, it will be represented by following type Cube
-- Point x y z
data Point = Point Int Int Int
data Cube = Cube {start::Point, size::Int, color::Char }
Write a function view that takes a list of cubes ( [Cube] ) and returns a floor plang (a view from the top). The size of this floor plan will be computed based on the size of the boxes in the input. The result will be a list of strings. Use
following function pp to print it on the screen. For the output format, see the sample output bellow. The bottom left corner has the coordinates (0,0), y-axis corresponds to rows and x-axis to columns. Visible parts of the cubes are
visualized by its colors. Empty space is represented by character ''.
sampleInput :: [Cube]
sampleInput = [Cube { start = Point 1 1 10, size = 4, color = 'X'},
Cube { start = Point 1 5 10, size = 3, color = 'O'},
Cube { start = Point 10 8 0, size = 2, color = '#'},
•*'}]
Cube { start = Point e e 0, size = 10, color =
view :: [Cube] -> Result
*Main> pp (view sampleInput )
***##
*000*
000*
*000******
*XXXX*****
*XXXX*****
*XXXX*
*****XXXX
**********
Expert Solution
This question has been solved!
Explore an expertly crafted, step-by-step solution for a thorough understanding of key concepts.
Step by step
Solved in 2 steps
Recommended textbooks for you
Computer Networking: A Top-Down Approach (7th Edi…
Computer Engineering
ISBN:
9780133594140
Author:
James Kurose, Keith Ross
Publisher:
PEARSON
Computer Organization and Design MIPS Edition, Fi…
Computer Engineering
ISBN:
9780124077263
Author:
David A. Patterson, John L. Hennessy
Publisher:
Elsevier Science
Network+ Guide to Networks (MindTap Course List)
Computer Engineering
ISBN:
9781337569330
Author:
Jill West, Tamara Dean, Jean Andrews
Publisher:
Cengage Learning
Computer Networking: A Top-Down Approach (7th Edi…
Computer Engineering
ISBN:
9780133594140
Author:
James Kurose, Keith Ross
Publisher:
PEARSON
Computer Organization and Design MIPS Edition, Fi…
Computer Engineering
ISBN:
9780124077263
Author:
David A. Patterson, John L. Hennessy
Publisher:
Elsevier Science
Network+ Guide to Networks (MindTap Course List)
Computer Engineering
ISBN:
9781337569330
Author:
Jill West, Tamara Dean, Jean Andrews
Publisher:
Cengage Learning
Concepts of Database Management
Computer Engineering
ISBN:
9781337093422
Author:
Joy L. Starks, Philip J. Pratt, Mary Z. Last
Publisher:
Cengage Learning
Prelude to Programming
Computer Engineering
ISBN:
9780133750423
Author:
VENIT, Stewart
Publisher:
Pearson Education
Sc Business Data Communications and Networking, T…
Computer Engineering
ISBN:
9781119368830
Author:
FITZGERALD
Publisher:
WILEY