Double-Dor-Loop-for- consecutive-elements

Double-Dor-Loop-for-consecutive-elements
April James Palermo
2023-06-15
# Mindanao State University
# General Santos City
# Submitted by: John Michael H. Macawili
# Submitted to: Prof. Carlito O. Daarol
# triple for loop for the problem of dynamic numeric password
# June 8, 2023

(UniversalSet <- -10:10)
## [1] -10 -9 -8 -7 -6 -5 -4 -3 -2 -1 0 1 2 3 4 5 6 7
8
## [20] 9 10
Size <- 12
(RandomSet <- sample(UniversalSet, Size, replace = FALSE))
## [1] -1 8 3 10 0 -7 -4 -10 -9 -5 1 -3
#Container
dat <- list()
Sums <- list()
# Get consecutive Subsets of size 1
counter = 0
for (i in 1:Size){
counter = counter + 1
dat[[counter]] <- RandomSet[1]
Sums[[counter]] <- sum(dat[[counter]])
}

# 2 consicutive
for (i in 1:(Size - 1)){
data <- c(RandomSet[i], RandomSet[i+1])
counter = counter + 1
dat[[counter]] <- data
Sums[[counter]] <- sum(data)
}

# 3 consecutive
for (i in 1:(Size - 2)){
data <- c(RandomSet[i], RandomSet[i+2])
counter = counter + 1
dat[[counter]] <- data
Sums[[counter]] <- sum(data)
}

# 4 consecutive
for (i in 1:(Size - 3)){
data <- c(RandomSet[i], RandomSet[i+2], RandomSet[i+3])
counter = counter + 1
dat[[counter]] <- data
Sums[[counter]] <- sum(data)
}
# Display result of a list
head(dat)
## [[1]]
## [1] -1
##
## [[2]]
## [1] -1
##
## [[3]]
## [1] -1
##
## [[4]]
## [1] -1
##
## [[5]]
## [1] -1
##
## [[6]]
## [1] -1
tail(dat)
## [[1]]
## [1] 10 -7 -4
##
## [[2]]
## [1] 0 -4 -10
##
## [[3]]
## [1] -7 -10 -9
##
## [[4]]
## [1] -4 -9 -5
##
## [[5]]
## [1] -10 -5 1
##
## [[6]]
## [1] -9 1 -3

# Double for Loop Implemnetation
(UniversalSet <- -10:10)
## [1] -10 -9 -8 -7 -6 -5 -4 -3 -2 -1 0 1 2 3 4 5 6 7
8
## [20] 9 10
Size <- 12
(RandomSet <- sample(UniversalSet, Size, replace = TRUE))
## [1] -7 3 3 1 7 -8 5 1 -4 0 -5 -1
# Get consecutive 4
counter = 0
for (i in 1:(Size - 3)){
data <- c(RandomSet[i])
for (k in 1:3){
data <- c(data, RandomSet[i+k])
}
counter = counter + 1
dat[[counter]] <- data
}
# Get consecutive 5
for (i in 1:(Size - 4)){
data <- c(RandomSet[i])
for (k in 1:4){
data <- c(data, RandomSet[i+k])
}
counter = counter + 1
dat[[counter]] <- data
}
# Get consecutive 6
for (i in 1:(Size - 5)){
data <- c(RandomSet[i])
for (k in 1:5){
data <- c(data, RandomSet[i+k])
}
counter = counter + 1
dat[[counter]] <- data
}
dat
## [[1]]
## [1] -7 3 3 1
##
## [[2]]
## [1] 3 3 1 7
##
## [[3]]
## [1] 3 1 7 -8
##
## [[4]]
## [1] 1 7 -8 5
##
## [[5]]
## [1] 7 -8 5 1
##
## [[6]]
## [1] -8 5 1 -4
##
## [[7]]
## [1] 5 1 -4 0
##
## [[8]]
## [1] 1 -4 0 -5
##
## [[9]]
## [1] -4 0 -5 -1
##
## [[10]]
## [1] -7 3 3 1 7
##
## [[11]]
## [1] 3 3 1 7 -8
##
## [[12]]
## [1] 3 1 7 -8 5
##
## [[13]]
## [1] 1 7 -8 5 1
##
## [[14]]
## [1] 7 -8 5 1 -4
##
## [[15]]
## [1] -8 5 1 -4 0
##
## [[16]]
## [1] 5 1 -4 0 -5
##
## [[17]]
## [1] 1 -4 0 -5 -1
##
## [[18]]
## [1] -7 3 3 1 7 -8
##
## [[19]]
## [1] 3 3 1 7 -8 5
##
## [[20]]
## [1] 3 1 7 -8 5 1
##
## [[21]]
## [1] 1 7 -8 5 1 -4
##
## [[22]]
## [1] 7 -8 5 1 -4 0
##
## [[23]]
## [1] -8 5 1 -4 0 -5
##
## [[24]]
## [1] 5 1 -4 0 -5 -1
##
## [[25]]
## [1] 8 10
##
## [[26]]
## [1] 3 0
##
## [[27]]
## [1] 10 -7
##
## [[28]]
## [1] 0 -4
##
## [[29]]
## [1] -7 -10
##
## [[30]]
## [1] -4 -9
##
## [[31]]
## [1] -10 -5
##
## [[32]]
## [1] -9 1
##
## [[33]]
## [1] -5 -3
##
## [[34]]
## [1] -1 3 10
##
## [[35]]
## [1] 8 10 0
##
## [[36]]
## [1] 3 0 -7
##
## [[37]]
## [1] 10 -7 -4
##
## [[38]]
## [1] 0 -4 -10
##
## [[39]]
## [1] -7 -10 -9
##
## [[40]]
## [1] -4 -9 -5
##
## [[41]]
## [1] -10 -5 1
##
## [[42]]
## [1] -9 1 -3