Triple-for-Loop-Sabang.R

# Mindanao State University
# General Santos 

# Bsic Programming in R
# Prepared by: Prof. Carlito O. Daarol
# Faculty
# Math Department
# Submitted by: Jeshryl R. Sabang


# Triple for loops

# This is the way how to establish and update a counter
# within nested loops

count = 0
for (i in 1:5) {
  for (j in 1:4) {
    for (k in 1:3) {
      count = count + 1
    }
  }
}
print(count)

## [1] 60

#Enumerate all values of the index as implied by nested loops
#Using paste0 command

count = 0
for (i in 1:4) {
  for (j in 1:3) {
    for (k in 1:2) {
      count = count + 1
      print(noquote(paste0(count, ": i = ", i," | j = ", j," | k = ", k,"")))
    }
  }
} 

## [1] 1: i = 1 | j = 1 | k = 1
## [1] 2: i = 1 | j = 1 | k = 2
## [1] 3: i = 1 | j = 2 | k = 1
## [1] 4: i = 1 | j = 2 | k = 2
## [1] 5: i = 1 | j = 3 | k = 1
## [1] 6: i = 1 | j = 3 | k = 2
## [1] 7: i = 2 | j = 1 | k = 1
## [1] 8: i = 2 | j = 1 | k = 2
## [1] 9: i = 2 | j = 2 | k = 1
## [1] 10: i = 2 | j = 2 | k = 2
## [1] 11: i = 2 | j = 3 | k = 1
## [1] 12: i = 2 | j = 3 | k = 2
## [1] 13: i = 3 | j = 1 | k = 1
## [1] 14: i = 3 | j = 1 | k = 2
## [1] 15: i = 3 | j = 2 | k = 1
## [1] 16: i = 3 | j = 2 | k = 2
## [1] 17: i = 3 | j = 3 | k = 1
## [1] 18: i = 3 | j = 3 | k = 2
## [1] 19: i = 4 | j = 1 | k = 1
## [1] 20: i = 4 | j = 1 | k = 2
## [1] 21: i = 4 | j = 2 | k = 1
## [1] 22: i = 4 | j = 2 | k = 2
## [1] 23: i = 4 | j = 3 | k = 1
## [1] 24: i = 4 | j = 3 | k = 2

#Add text for each line

count = 0
for (i in 20:21) {
  for (j in 15:16) {
    for (k in 1:3) {
      count = count + 1
      if (count < 10) {
        print(noquote(paste0(count, ": i = ", i," | j = ", j," | k = ", k," | hello")))
      } else {
        print(noquote(paste0(count, ": i = ", i," | j = ", j," | k = ", k," | babes")))
      }
    }
  }
}

## [1] 1: i = 20 | j = 15 | k = 1 | hello
## [1] 2: i = 20 | j = 15 | k = 2 | hello
## [1] 3: i = 20 | j = 15 | k = 3 | hello
## [1] 4: i = 20 | j = 16 | k = 1 | hello
## [1] 5: i = 20 | j = 16 | k = 2 | hello
## [1] 6: i = 20 | j = 16 | k = 3 | hello
## [1] 7: i = 21 | j = 15 | k = 1 | hello
## [1] 8: i = 21 | j = 15 | k = 2 | hello
## [1] 9: i = 21 | j = 15 | k = 3 | hello
## [1] 10: i = 21 | j = 16 | k = 1 | babes
## [1] 11: i = 21 | j = 16 | k = 2 | babes
## [1] 12: i = 21 | j = 16 | k = 3 | babes

paste0("The triple loop displayed " , count, " lines of hello babes. ")

## [1] "The triple loop displayed 12 lines of hello babes. "

noquote(paste0("The triple loop displayed " , count, " lines of hello babes. "))

## [1] The triple loop displayed 12 lines of hello babes.

# Example 5: triple for loop with a computed value

# Suppose that Age is a function of i, and k and it is defined as
# Age = 14 + i + 3j + 5k
# How many lines will be displayed? What is the value of Age for each i,j and k
# the solution is easy, just insert the equation after the count line

count = 0
for (i in 20:21) {
  for (j in 15:16) {
    for (k in 1:3) {
      count = count + 1
      Age <- 14 + i +3*j +5*k
      if (count < 10) {
        print(paste0(count, ": i = ", i," | j = ", j," | k = ", k," |  ", "Age = ", Age))
      } else {
        print(paste0(count, ": i = ", i," | j = ", j," | k = ", k," | ", "Age = ", Age))
      }
    }
  }
}

## [1] "1: i = 20 | j = 15 | k = 1 |  Age = 84"
## [1] "2: i = 20 | j = 15 | k = 2 |  Age = 89"
## [1] "3: i = 20 | j = 15 | k = 3 |  Age = 94"
## [1] "4: i = 20 | j = 16 | k = 1 |  Age = 87"
## [1] "5: i = 20 | j = 16 | k = 2 |  Age = 92"
## [1] "6: i = 20 | j = 16 | k = 3 |  Age = 97"
## [1] "7: i = 21 | j = 15 | k = 1 |  Age = 85"
## [1] "8: i = 21 | j = 15 | k = 2 |  Age = 90"
## [1] "9: i = 21 | j = 15 | k = 3 |  Age = 95"
## [1] "10: i = 21 | j = 16 | k = 1 | Age = 88"
## [1] "11: i = 21 | j = 16 | k = 2 | Age = 93"
## [1] "12: i = 21 | j = 16 | k = 3 | Age = 98"

noquote(paste0("The triple loop displayed " , count, " lines of Age for each i, j and k"))

## [1] The triple loop displayed 12 lines of Age for each i, j and k