-
Notifications
You must be signed in to change notification settings - Fork 1
/
hw3-loops-vectors.Rmd
160 lines (105 loc) · 8.4 KB
/
hw3-loops-vectors.Rmd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
---
title: "Homework 3 - Loops & Vectors"
output:
html_document:
number_sections: false
toc: no
---
**Due**: Sunday, 06-Oct. at 8pm
**Rules**:
- Problems marked **SOLO** may not be worked on with other classmates, though you may consult instructors for help.
- For problems marked **COLLABORATIVE**, you may work in groups of up to 3 students who are in this course this semester (and then with nobody else except the course instructors). You may not split up the work -- everyone must work on every problem. And you may not simply copy any code but rather truly work together.
- Even though you work collaboratively, you still must submit your own solutions.
**Instructions**:
1) Before beginning this assignment, be sure to have read the [Loops](L5-loops.html) and [Vectors](L6-vectors.html) lessons.
2) Open RStudio and create a new project called "hw3-lastName", replacing "lastName" with your last name.
3) Download the [hw3.R template script](https://github.com/emse6574-gwu/2019-Fall/raw/gh-pages/hw_templates/hw3.R) and place it in RStudio project folder you just created.
4) Fill out your name, GW Net ID, and the names of anyone you worked with in the header of the "hw3.R" file.
5) Type all of your answers to the questions below in the "hw3.R" script.
6) After completing the questions, create a zip file of all files in your R project folder for this assignment.
7) Submit the zip file on Blackboard by the due deadline.
---
**Write solutions to the following functions in your "hw3.R" script.**
Rules:
- You may only use strings for problem #3 (which requires printing a string to the screen). On all other problems you may **NOT** use strings.
### 1) `loopFactorial(n)` [SOLO, 5 pts]
Use a `for` loop to write the function `loopFactorial(n)` that should return `n!`, i.e. "n factorial", which is defined for all non-negative integers. For example, `3! = 3*2*1 = 6`, `4! = 4*3*2*1 = 24`, and `5! = 5*4*3*2*1 = 120`. Note that `0` is a special case, and `0! = 1`. Assume `n >= 0`.
### 2) `vectorFactorial(n)` [SOLO, 5 pts]
Write the function `vectorFactorial(n)`, which again computes the factorial of `n` but use vectors to avoid using a loop. Hint: there are some useful functions listed on the [vectors lesson page](L6-vectors.html#13_numeric_vectors) for performing operators on a vector.
### 3) `printStarTriangle(n)` [SOLO, 10 pts]
Write a function that prints a triangle of asterisks (`*`) where the number of asterisks in each row is equal to the row number. So, `printStarTriangle(5)` should print out:
```
*
**
***
****
*****
```
### 4) `nthHighestValue(n, x)` [SOLO, 10 pts]
Write a function to find the nth highest value in a given vector. For example, if `x` equals `c(5, 1, 3)`, then `nthHighestValue(1, x)` should return `5`, because `5` is the 1st highest value in `x`, and `nthHighestValue(2, x)` should return `3` because it's the 2nd highest value in `x`. Assume only numeric inputs, and assume that `n <= length(x)`. You may not use loops.
### 5) `numDigits(n)` [SOLO, 10 pts]
Write the function `numDigits(n)` that takes a _possibly-negative_ integer and returns the number of digits in it. So, `numDigits(12345)` returns `5`, `numDigits(0)` returns `1`, and `numDigits(-111)` returns `3`. One way you could solve this is to convert `n` to a string and use `str_length()`, but you cannot do that since you may not use strings here. This can also be solved with logarithms, but seeing as this is "loops week", you should instead simply repeatedly remove the ones digit until you run out of digits.
## 6) Happy Numbers [COLLABORATIVE]
**Background**: Read the first paragraph from the [Wikipedia page](https://en.wikipedia.org/wiki/Happy_number) on happy numbers. After some thought, we see that no matter what number we start with, when we keep replacing the number by the sum of the squares of its digits, we'll always either arrive at 4 (unhappy) or at 1 (happy). With that in mind, we want to write the function `nthHappyNumber(n)`. However, to write that function, we'll first need to write `isHappyNumber(n)`, which determines whether a number is "happy" or not. And to right that function, we'll first need to write `sumOfSquaresOfDigits(n)`. And that's top-down design! Here we go...
### a) `sumOfSquaresOfDigits(n)` [10 pts]
Write the function `sumOfSquaresOfDigits(n)` which takes a non-negative integer, `n`, and returns the sum of the squares of its digits (assume that `n` will always be a positive integer, so no need to check for bad inputs).
### b) `isHappyNumber(n)` [10 pts]
Write the function `isHappyNumber(n)` which takes a _possibly-negative_ integer and returns `TRUE` if it is happy and `FALSE` otherwise. Note that all numbers less than 1 are not happy.
### c) `nthHappyNumber(n)` [10 pts]
Write the function `nthHappyNumber(n)` which takes a non-negative integer, `n`, and returns the nth happy number, where nthHappyNumber(1) returns the first happy number (1).
## 7) Turtle loops! [COLLABORATIVE]
### a) `turtleSquare(s)` _redux_ [5 pts]
Re-write the `turtleSquare(s)` function from [HW2](hw2-functions.html), but this time use a `for` loop to draw the sides of the square. The following code should produce a square with a side length of 50:
```{r, eval=FALSE}
library(TurtleGraphics)
turtle_init()
turtle_do({
turtleSquare(50)
})
```
{ width=456 }
### b) `concentricTurtleSquares(spacing = 5)` [10 pts]
Write the function `concentricTurtleSquares(spacing)` that uses the `TurtleGraphics` library to draw concentric squares from the center of the terrarium and outward. The `spacing` argument determines the spacing between each square, and the default value should be `spacing = 5`. Also, `spacing >= 1`, and your function must not allow the turtle to escape the terrarium. Hint: you may want to use `turtleSquare(s)` as a helper function. The following code should produce concentric squares with a spacing of 5:
```{r, eval=FALSE}
library(TurtleGraphics)
turtle_init()
turtle_do({
concentricTurtleSquares()
})
```
{ width=456 }
### c) `turtleCircle(r)` [15 pts]
Write the function `turtleCircle(r)` that uses the `TurtleGraphics` library to draw a circle with radius ` r < 50`. The circle should be centered in the turtle's terrarium. Hint: To get the circle centered, remember that a circle has 360 degrees, and the circumference of a circle is $2\pi r$. The following code should produce a circle with a radius of 30:
```{r, eval=FALSE}
library(TurtleGraphics)
turtle_init()
turtle_do({
turtleCircle(30)
})
```
{ width=456 }
---
### Bonus Credit 1) `turtleSquareRotated(s, degrees)` [SOLO, 2.5 pts]
Write the function `turtleSquareRotated(s, degrees)` that uses the `TurtleGraphics` library to draw a square with side length `s < 100` and rotated by `degrees <= 180` counterclockwise from the horizontal plane. The rotated square should be centered in the turtle's terrarium. Hint: you're going to need to use the cosine (`cos()`) and sine (`sin()`) functions; in R, these functions take angles in **radians** (not degrees), so remember to convert your angles (180 degrees = $\pi$). The following code should produce a square with a side length of 30 and rotated by 30 degrees:
```{r, eval=FALSE}
library(TurtleGraphics)
turtle_init()
turtle_do({
turtleSquareRotated(30, 30)
})
```
{ width=456 }
### Bonus Credit 2) `turtleSquareStar(s, degreeSpacing = 20)` [SOLO, 2.5 pts]
Write the function `turtleSquareStar(s, degreeSpacing)` that uses the `turtleSquareRotated(s, degrees)` as a helper function to draw a sequence of overlapping rotated squares with side length `s < 70` to form a star. The `degreeSpacing` argument determines the spacing in degrees between each rotated square, and the default value should be `degreeSpacing = 20`. Also, `1 <= degreeSpacing <= 60`, and your function must not allow the turtle to escape the terrarium. The following code should produce the star of rotated squares with a side length of 50 and 20 degree spacings between each square:
```{r, eval=FALSE}
library(TurtleGraphics)
turtle_init()
turtle_do({
turtleSquareStar(50, 20)
})
```
{ width=456 }
---
**Page sources**:
Some content on this page has been modified from other courses, including:
- CMU [15-112: Fundamentals of Programming](http://www.kosbie.net/cmu/spring-17/15-112/), by [David Kosbie](http://www.kosbie.net/cmu/) & [Kelly Rivers](https://hcii.cmu.edu/people/kelly-rivers)