FP Test3 2024 - Revision history

Beh01 at 11:29, 15 November 2024

2024-11-15T11:29:07Z

Beh01: /* Data definition */

2024-11-15T11:27:41Z

Data definition

Beh01 at 11:21, 15 November 2024

2024-11-15T11:21:18Z

Beh01 at 11:08, 15 November 2024

2024-11-15T11:08:33Z

Beh01 at 11:03, 15 November 2024

2024-11-15T11:03:07Z

Beh01 at 10:52, 15 November 2024

2024-11-15T10:52:52Z

Beh01 at 10:00, 15 November 2024

2024-11-15T10:00:50Z

Beh01 at 09:56, 15 November 2024

2024-11-15T09:56:52Z

Beh01: Created page with "= Home Preparation For Test 3 - 2024 ="

2024-11-15T09:51:14Z

Created page with "= Home Preparation For Test 3 - 2024 ="

New page

= Home Preparation For Test 3 - 2024 =

@@ Line 84: / Line 84: @@
 <translate>
 == Tasks ==
 </translate>
@@ Line 207: / Line 206: @@
 <translate>
-* Define a function
+* Implement the function <code>solveMaze</code>. It has 1 argument. It is a list of strings representing a maze row by row from top to bottom ('*' - wall, ' ' - empty square, 's' - starting position, 'e' - ending possition). At the beginning we are at position 's' and we want to get the length of the shortest path to the position denotated by 'e'. Such path compose from steps. in each step we can move one square left, right, up or down. The function returns a number of these steps in the shortest path from 's' to 'e'.</translate>
-<syntaxhighlight lang="Haskell"></syntaxhighlight>
+<syntaxhighlight lang="Haskell">solveMaze :: Result -> Int</syntaxhighlight>
 <syntaxhighlight lang="Haskell" class="myDark">
 </syntaxhighlight>

@@ Line 37: / Line 37: @@
             "        *",
             "*********"]
 sample2 :: Maze
 sample2 = ["       ",
@@ Line 46: / Line 45: @@
             "       ",
             "       "]
 sample3 :: Maze
 sample3 = ["  * *  ",
@@ Line 56: / Line 53: @@
             "     * ",
             "       "]
+sample4 :: Maze
 arrow :: Maze
 arrow = [ "....#....",
@@ Line 79: / Line 84: @@
 <translate>
 == Tasks ==
 </translate>

@@ Line 167: / Line 167: @@
 <translate>
-* Define a function
+* Using the same coordinates as for the function above, define a function <code>putIntoMaze</code> that takes a maze and a list of triplets <code>(row index, column index, character)</code> and puts on given coordinate given character.
 </translate>
@@ Line 183: / Line 183: @@
 <translate>
-* Define a function
+*  Using the same coordinates as for the functions above, define a function <code>getPart</code> that takes a maze and extracts a rectangular part of this maze. The maze is given as first parameter. The extracted part is defined by the position of the top left corner (second parameter) and its size (third parameter, given as (height, width)).
 </translate>

@@ Line 170: / Line 170: @@
 </translate>
-<syntaxhighlight lang="Haskell"></syntaxhighlight>
+<syntaxhighlight lang="Haskell">putIntoMaze :: Maze -> [(Int, Int, Char)] -> Maze</syntaxhighlight>
 <syntaxhighlight lang="Haskell" class="myDark">
 </syntaxhighlight>
@@ Line 178: / Line 186: @@
 </translate>
-<syntaxhighlight lang="Haskell"></syntaxhighlight>
+<syntaxhighlight lang="Haskell">
 <syntaxhighlight lang="Haskell" class="myDark">
 </syntaxhighlight>

@@ Line 156: / Line 156: @@
 </syntaxhighlight>
 <translate>
-<!--T:25-->
+* Define a function
 </translate>
-<syntaxhighlight lang="Haskell">makePicture :: Int -> Int -> [(Int,Int)]-> Pic</syntaxhighlight>
 <syntaxhighlight lang="Haskell" class="myDark">
 </syntaxhighlight>

← Older revision		Revision as of 10:52, 15 November 2024
Line 81:		Line 81:
	== Tasks ==		== Tasks ==
	</translate>		</translate>
		+
		+	<translate>
		+	Create functions that:
		+	</translate>
		+
		+	<translate>
		+	*Place one maze above another.
		+	</translate>
		+
		+	<syntaxhighlight lang="Haskell">above :: Maze -> Maze -> Maze</syntaxhighlight>
		+	<syntaxhighlight lang="Haskell" class="myDark">
		+	*Main> printMaze(above arrow arrow)
		+	....#....
		+	...###...
		+	..#.#.#..
		+	.#..#..#.
		+	....#....
		+	....#....
		+	....#####
		+	....#....
		+	...###...
		+	..#.#.#..
		+	.#..#..#.
		+	....#....
		+	....#....
		+	....#####
		+	</syntaxhighlight>
		+
		+	<translate>
		+	*Place two mazes side by side (consider, that they have the same height).
		+	</translate>
		+
		+	<syntaxhighlight lang="Haskell">sideBySide :: Maze -> Maze -> Maze</syntaxhighlight>
		+	<syntaxhighlight lang="Haskell" class="myDark">
		+	*Main> printMaze(sideBySide arrow arrow)
		+	....#........#....
		+	...###......###...
		+	..#.#.#....#.#.#..
		+	.#..#..#..#..#..#.
		+	....#........#....
		+	....#........#....
		+	....#####....#####
		+	</syntaxhighlight>
		+
		+	<translate>
		+	*Rotate maze to the left and to the right.
		+	</translate>
		+
		+	<syntaxhighlight lang="Haskell">
		+	rotateR :: Maze -> Maze
		+	rotateL :: Maze -> Maze
		+	</syntaxhighlight>
		+	<syntaxhighlight lang="Haskell" class="myDark">
		+	*Main> printMaze (rotateR arrow)
		+	.......
		+	...#...
		+	....#..
		+	.....#.
		+	#######
		+	#....#.
		+	#...#..
		+	#..#...
		+	#......
		+	*Main> printMaze(rotateL arrow)
		+	......#
		+	...#..#
		+	..#...#
		+	.#....#
		+	#######
		+	.#.....
		+	..#....
		+	...#...
		+	.......
		+	</syntaxhighlight>
		+
		+
		+
		+	<translate>
		+	<!--T:25-->
		+	* Define a function makePicture where the list arguments gives the positions of the black points (represented by sharp) and the two integer arguments give the width and height of the picture.
		+	</translate>
		+	<syntaxhighlight lang="Haskell">makePicture :: Int -> Int -> [(Int,Int)]-> Pic</syntaxhighlight>
		+	<syntaxhighlight lang="Haskell" class="myDark">
		+	*Main> pp(makePicture 7 5 [(1,3),(3,2)])
		+	.......
		+	...#...
		+	.......
		+	..#....
		+	.......
		+	</syntaxhighlight>

@@ Line 1: / Line 1: @@
 = Home Preparation For Test 3 - 2024 =
 <translate>
@@ Line 22: / Line 28: @@
 <syntaxhighlight lang="Haskell">
-sample1 :: [String]
+sample1 :: Maze
 sample1 = ["*********",
             "* *   * *",
@@ Line 32: / Line 38: @@
             "*********"]
-sample2 :: [String]
+sample2 :: Maze
 sample2 = ["       ",
             "       ",
@@ Line 42: / Line 48: @@
-sample3 :: [String]
+sample3 :: Maze
 sample3 = ["  * *  ",
             " ##### ",
@@ Line 50: / Line 56: @@
             "     * ",
             "       "]
 </syntaxhighlight>
 <syntaxhighlight lang="Haskell" class="myDark">
@@ Line 62: / Line 77: @@
 *********
 </syntaxhighlight>

← Older revision		Revision as of 09:56, 15 November 2024
Line 1:		Line 1:
	= Home Preparation For Test 3 - 2024 =		= Home Preparation For Test 3 - 2024 =
		+
		+	<translate>
		+	Consider following type representing a maze:
		+	</translate>
		+
		+	<syntaxhighlight lang="Haskell">type Maze = [String]</syntaxhighlight>
		+
		+	<translate>
		+	If you want to print this maze on a screen you can use:
		+	</translate>
		+
		+	<syntaxhighlight lang="Haskell">
		+	printMaze :: Maze -> IO ()
		+	printMaze x = putStr (concat (map (++"\n") x))
		+	</syntaxhighlight>
		+
		+	<translate>
		+	<!--T:14-->
		+	Maze example:
		+	</translate>
		+
		+	<syntaxhighlight lang="Haskell">
		+	sample1 :: [String]
		+	sample1 = ["*********",
		+	"* * * *",
		+	"* * * * *",
		+	"* * * * *",
		+	"* * *",
		+	"******* *",
		+	" *",
		+	"*********"]
		+
		+	sample2 :: [String]
		+	sample2 = [" ",
		+	" ",
		+	" *** ",
		+	" *** ",
		+	" *** ",
		+	" ",
		+	" "]
		+
		+
		+	sample3 :: [String]
		+	sample3 = [" * * ",
		+	" ##### ",
		+	" *** ",
		+	" * * ",
		+	" *** ",
		+	" * ",
		+	" "]
		+	</syntaxhighlight>
		+	<syntaxhighlight lang="Haskell" class="myDark">
		+	ghci> printMaze sample1
		+	*********
		+	* * * *
		+	* * * * *
		+	* * * * *
		+	* * *
		+	******* *
		+	*
		+	*********
		+	</syntaxhighlight>