# Mindanao State University
# General Santos City
# Math 108
# First Examination: Part 2
# Generating Dynamic unique password consisting of integers by using for loops in R
# Submitted by: Dongosa, Davy D.
(UniversalSet <- - -20:20)
## [1] 20
Size <- 12
(RandomSet <- sample(UniversalSet,Size,rep=TRUE))
## [1] 5 12 4 9 3 10 8 7 8 19 10 8
dat <- list()
Sums <- list()
counter = 0
for (i in 1:(Size-1)){
data <- c(RandomSet[i], RandomSet[i+1])
counter = counter + 1
dat[[counter]] <- data
Sums[[counter]] <-sum(data)
}
head(dat)
## [[1]]
## [1] 5 12
##
## [[2]]
## [1] 12 4
##
## [[3]]
## [1] 4 9
##
## [[4]]
## [1] 9 3
##
## [[5]]
## [1] 3 10
##
## [[6]]
## [1] 10 8
tail(dat)
## [[1]]
## [1] 10 8
##
## [[2]]
## [1] 8 7
##
## [[3]]
## [1] 7 8
##
## [[4]]
## [1] 8 19
##
## [[5]]
## [1] 19 10
##
## [[6]]
## [1] 10 8
RandomSet
## [1] 5 12 4 9 3 10 8 7 8 19 10 8
S <- c(3, 7, -9, 12, -2, 2, 15, 24, -17, 10, 21, -12)
subset_length <- 3
num_subsets <- length(S) - subset_length + 1
subsets <- vector("list", num_subsets)
S <- c(3, 7, -9, 12, -2, 2, 15, 24, -17, 10, 21, -12)
subset_length <- 2
num_subsets <- length(S) - subset_length + 1
subsets <- vector("list", num_subsets)
sums <- numeric(num_subsets)
for (i in 1:(num_subsets - 1)) {
subsets[[i]] <- S[i:(i + subset_length - 1)]
sums[i] <- sum(subsets[[i]])
}
# Create a data frame with subsets and their sums
subset_data <- data.frame(Subsets = subsets[1:(num_subsets - 1)], Sums = sums[1:(num_subsets - 1)])
print(subset_data)
## Subsets.c.3..7. Subsets.c.7...9. Subsets.c..9..12. Subsets.c.12...2.
## 1 3 7 -9 12
## 2 7 -9 12 -2
## 3 3 7 -9 12
## 4 7 -9 12 -2
## 5 3 7 -9 12
## 6 7 -9 12 -2
## 7 3 7 -9 12
## 8 7 -9 12 -2
## 9 3 7 -9 12
## 10 7 -9 12 -2
## Subsets.c..2..2. Subsets.c.2..15. Subsets.c.15..24. Subsets.c.24...17.
## 1 -2 2 15 24
## 2 2 15 24 -17
## 3 -2 2 15 24
## 4 2 15 24 -17
## 5 -2 2 15 24
## 6 2 15 24 -17
## 7 -2 2 15 24
## 8 2 15 24 -17
## 9 -2 2 15 24
## 10 2 15 24 -17
## Subsets.c..17..10. Subsets.c.10..21. Sums
## 1 -17 10 10
## 2 10 21 -2
## 3 -17 10 3
## 4 10 21 10
## 5 -17 10 0
## 6 10 21 17
## 7 -17 10 39
## 8 10 21 7
## 9 -17 10 -7
## 10 10 21 31
S <- c(3, 7, -9, 12, -2, 2, 15, 24, -17, 10, 21, -12)
subset_length <- 3
num_subsets <- length(S) - subset_length + 1
subsets <- vector("list", num_subsets)
sums <- numeric(num_subsets)
for (i in 1:(num_subsets - 1)) {
subsets[[i]] <- S[i:(i + subset_length - 1)]
sums[i] <- sum(subsets[[i]])
}
# Create a data frame with subsets and their sums
subset_data <- data.frame(Subsets = subsets[1:(num_subsets - 1)], Sums = sums[1:(num_subsets - 1)])
print(subset_data)
## Subsets.c.3..7...9. Subsets.c.7...9..12. Subsets.c..9..12...2.
## 1 3 7 -9
## 2 7 -9 12
## 3 -9 12 -2
## 4 3 7 -9
## 5 7 -9 12
## 6 -9 12 -2
## 7 3 7 -9
## 8 7 -9 12
## 9 -9 12 -2
## Subsets.c.12...2..2. Subsets.c..2..2..15. Subsets.c.2..15..24.
## 1 12 -2 2
## 2 -2 2 15
## 3 2 15 24
## 4 12 -2 2
## 5 -2 2 15
## 6 2 15 24
## 7 12 -2 2
## 8 -2 2 15
## 9 2 15 24
## Subsets.c.15..24...17. Subsets.c.24...17..10. Subsets.c..17..10..21. Sums
## 1 15 24 -17 1
## 2 24 -17 10 10
## 3 -17 10 21 1
## 4 15 24 -17 12
## 5 24 -17 10 15
## 6 -17 10 21 41
## 7 15 24 -17 22
## 8 24 -17 10 17
## 9 -17 10 21 14
# To generate dynamic unique password consisting integers by using for loops
# Define the set of allowed characters
char_set <- c(0:9)
# Define the length of the password
pw_length <- 8
# Initialize the password variable
password <- ""
# Loop through the desired length of the password
for (i in 1:pw_length) {
# Generate a random index into the character set
index <- sample(length(char_set), 1)
# Append the selected character to the password
password <- paste0(password, char_set[index])
}
# Print the resulting password
cat("Generated Password:", password)
## Generated Password: 18713487