Functional way to generate a pattern.

---

Tasks

• generate the following 8 patterns

---

solution

• given any pattern, create functions that can,
  • Transpose
  • Flip Horizontally
  • Flip Vertically -- f(Transpose, Flip Horizontally)
  • create Mirror Image

pattern = \
*....
.*...
..*..
...*.
....*
transpose(pattern) = \ 
*....
.*...
..*..
...*.
....*
Flip Horizontally(pattern) = \
....*
...*.
..*..
.*...
*....

Create Mirror(pattern) = \
*.......*
.*.....*.
..*...*..
...*.*...
....*....
...*.*...
..*...*..
.*.....*.
*.......*

comopse(Create Mirror,Create Mirror)(pattern) = \
*.......*.......*
.*.....*.*.....*.
..*...*...*...*..
...*.*.....*.*...
....*.......*....
...*.*.....*.*...
..*...*...*...*..
.*.....*.*.....*.
*.......*.......*
.*.....*.*.....*.
..*...*...*...*..
...*.*.....*.*...
....*.......*....
...*.*.....*.*...
..*...*...*...*..
.*.....*.*.....*.
*.......*.......*

---

Inspired by

• Lecture by John Hughes link
• Learn You a Haskell link