FuzzyBot: Updating to match new version of source page

2023-10-26T09:30:20Z

Updating to match new version of source page

FuzzyBot: Updating to match new version of source page

2021-10-20T12:35:42Z

Updating to match new version of source page

New page

== List of lists ==

<div style="float: right"> [[File:Video logo.png|80px|link=https://youtu.be/voiTk64SaQM]]</div>

Consider following type representing picture:

<syntaxhighlight lang="Haskell">type Pic = [String]</syntaxhighlight>

If you want to print this picture you can use:

<syntaxhighlight lang="Haskell">
pp :: Pic -> IO ()
pp x = putStr (concat (map (++"\n") x))
</syntaxhighlight>

Picture example:

<syntaxhighlight lang="Haskell">
pic :: Pic
pic = [ "....#....",
"...###...",
"..#.#.#..",
".#..#..#.",
"....#....",
"....#....",
"....#####"]
</syntaxhighlight>
<syntaxhighlight lang="Haskell" class="myDark">
*Main> pp pic
....#....
...###...
..#.#.#..
.#..#..#.
....#....
....#....
....#####
</syntaxhighlight>

Create functions that:

*Flips picture veriticaly and horizontally.

<syntaxhighlight lang="Haskell">
flipV :: Pic -> Pic
flipH :: Pic -> Pic</syntaxhighlight>
<syntaxhighlight lang="Haskell" class="myDark">
*Main> pp(flipV pic)
....#....
...###...
..#.#.#..
.#..#..#.
....#....
....#....
#####....
*Main> pp(flipH pic)
....#####
....#....
....#....
.#..#..#.
..#.#.#..
...###...
....#....
</syntaxhighlight>

<div class="mw-collapsible mw-collapsed" data-collapsetext="Hide solution" data-expandtext="Show solution">
<syntaxhighlight lang="Haskell">
flipV :: Pic -> Pic
flipV = map reverse

flipV' :: Pic -> Pic
flipV' xs = [reverse x|x<-xs]

flipH :: Pic -> Pic
flipH = reverse
</syntaxhighlight>
[[File:Tryit.png|center|60px|Try it!|link=https://rextester.com/DQJNA44418]]
</div>
<div style="clear:both"></div>

*Place one picture above another.

<syntaxhighlight lang="Haskell">above :: Pic -> Pic -> Pic</syntaxhighlight>
<syntaxhighlight lang="Haskell" class="myDark">
*Main> pp(above pic pic)
....#....
...###...
..#.#.#..
.#..#..#.
....#....
....#....
....#####
....#....
...###...
..#.#.#..
.#..#..#.
....#....
....#....
....#####
</syntaxhighlight>

<div class="mw-collapsible mw-collapsed" data-collapsetext="Hide solution" data-expandtext="Show solution">
<syntaxhighlight lang="Haskell">
above :: Pic -> Pic -> Pic
above x y = x ++ y
</syntaxhighlight>
[[File:Tryit.png|center|60px|Try it!|link=https://rextester.com/VTCE65032]]
</div>
<div style="clear:both"></div>

*Place two pictures side by side (consider, that they have the same height).

<syntaxhighlight lang="Haskell">sideBySide :: Pic -> Pic -> Pic</syntaxhighlight>
<syntaxhighlight lang="Haskell" class="myDark">
*Main> pp(sideBySide pic pic)
....#........#....
...###......###...
..#.#.#....#.#.#..
.#..#..#..#..#..#.
....#........#....
....#........#....
....#####....#####
</syntaxhighlight>

<div class="mw-collapsible mw-collapsed" data-collapsetext="Hide solution" data-expandtext="Show solution">
<syntaxhighlight lang="Haskell">
sideBySide :: Pic -> Pic -> Pic
sideBySide xs ys = map (\(x,y) -> x ++ y)(zip xs ys)

sideBySide':: Pic -> Pic -> Pic
sideBySide' (x:xs) (y:ys) = (x ++ y) : sideBySide' xs ys
sideBySide' _ _ = []

sideBySide'' :: Pic -> Pic -> Pic
sideBySide'' = zipWith (++)
</syntaxhighlight>
[[File:Tryit.png|center|60px|Try it!|link=https://rextester.com/VTCE65032]]
</div>
<div style="clear:both"></div>

*Rotate picture to the left and to the right.

<div style="float: right"> [[File:Video logo.png|80px|link=https://youtu.be/l9qIHTFsEV0]]
</div>
<syntaxhighlight lang="Haskell">
rotateR :: Pic -> Pic
rotateL :: Pic -> Pic
</syntaxhighlight>
<syntaxhighlight lang="Haskell" class="myDark">
*Main> pp(rotateR pic)
.......
...#...
....#..
.....#.
#######
#....#.
#...#..
#..#...
#......
*Main> pp(rotateL pic)
......#
...#..#
..#...#
.#....#
#######
.#.....
..#....
...#...
.......
</syntaxhighlight>

<div class="mw-collapsible mw-collapsed" data-collapsetext="Hide solution" data-expandtext="Show solution">
<syntaxhighlight lang="Haskell">
toRow :: String -> Pic
toRow xs = map (\x -> [x]) xs -- [[x]|x<-xs]

rotateR :: Pic -> Pic
rotateR [x] = toRow x
rotateR (x:xs) = (rotateR xs) `sideBySide` (toRow x)

rotateR' :: Pic -> Pic
rotateR' x = foldl1 sideBySide (reverse (map toRow x))

rotateL :: Pic -> Pic
rotateL [x] = reverse(toRow x)
rotateL (x:xs) = reverse(toRow x) `sideBySide` (rotateL xs)

rotateL' :: Pic -> Pic
rotateL' x = foldl1 sideBySide (map (reverse.toRow) x)
</syntaxhighlight>
[[File:Tryit.png|center|60px|Try it!|link=https://rextester.com/JXX12735]]
</div>
<div style="clear:both"></div>

*Increase every point in the picture n times.

<syntaxhighlight lang="Haskell">zoom :: Int -> Pic -> Pic</syntaxhighlight>
<syntaxhighlight lang="Haskell" class="myDark">
*Main> pp(zoom 2 pic)
........##........
........##........
......######......
......######......
....##..##..##....
....##..##..##....
..##....##....##..
..##....##....##..
........##........
........##........
........##........
........##........
........##########
........##########
</syntaxhighlight>

<div class="mw-collapsible mw-collapsed" data-collapsetext="Hide solution" data-expandtext="Show solution">
<syntaxhighlight lang="Haskell">
zoom :: Int -> Pic -> Pic
zoom n xs = [concat(map (replicate n) x)|x<-concat (map (replicate n) xs)]
</syntaxhighlight>
[[File:Tryit.png|center|60px|Try it!|link=https://rextester.com/TNVRI28767]]
</div>
<div style="clear:both"></div>

← Older revision		Revision as of 09:30, 26 October 2023
Line 223:		Line 223:
	</div>		</div>
	<div style="clear:both"></div>		<div style="clear:both"></div>
		+
		+	== Additional exercises ==
		+	We will use following additional picture:
		+
		+	<syntaxhighlight lang="Haskell">
		+	pic2::Pic
		+	pic2 = [ "#########",
		+	"#.......#",
		+	"#.......#",
		+	"#.......#",
		+	"#.......#",
		+	"#.......#",
		+	"#########"]
		+	</syntaxhighlight>
		+
		+	* Create a function that performs the superimposition of two images.
		+	<syntaxhighlight lang="Haskell">superimpose :: Pic -> Pic -> Pic</syntaxhighlight>
		+	<syntaxhighlight lang="Haskell" class="myDark">
		+	*Main> pp(superimpose pic pic2)
		+	#########
		+	#..###..#
		+	#.#.#.#.#
		+	##..#..##
		+	#...#...#
		+	#...#...#
		+	#########
		+	</syntaxhighlight>
		+
		+	* Create a function that inverts "colors" in a given picture.
		+	<syntaxhighlight lang="Haskell">invertColors :: Pic -> Pic</syntaxhighlight>
		+	<syntaxhighlight lang="Haskell" class="myDark">
		+	*Main> pp(invertColors pic)
		+	####.####
		+	###...###
		+	##.#.#.##
		+	#.##.##.#
		+	####.####
		+	####.####
		+	####.....
		+	</syntaxhighlight>
		+
		+	* Create a function that for a given integer number n creates a chessboard with dimensions n x n.
		+
		+	<syntaxhighlight lang="Haskell">chessBoard :: Int -> Pic</syntaxhighlight>
		+	<syntaxhighlight lang="Haskell" class="myDark">
		+	*Main> pp(chessBoard 5)
		+	#.#.#
		+	.#.#.
		+	#.#.#
		+	.#.#.
		+	#.#.#
		+	*Main> pp(chessBoard 10)
		+	.#.#.#.#.#
		+	#.#.#.#.#.
		+	.#.#.#.#.#
		+	#.#.#.#.#.
		+	.#.#.#.#.#
		+	#.#.#.#.#.
		+	.#.#.#.#.#
		+	#.#.#.#.#.
		+	.#.#.#.#.#
		+	#.#.#.#.#.
		+	</syntaxhighlight>
		+
		+	* 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.
		+	<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>

FP Laboratory 7/en - Revision history

FuzzyBot: Updating to match new version of source page

FuzzyBot: Updating to match new version of source page