Syntax & Flow

Data Science Programming

1 Objective

  1. Understand and implement conditional statements (if, if-else, if-elif-else).
  2. Apply loops (for loop, while loop, break, continue) to analyze a dataset.
ID Name Age Salary Position Performance
1 Bagas 25 5000 Staff Good
2 Joan 30 7000 Supervisor Very Good
3 Alya 27 6500 Staff Average
4 Dwi 35 10000 Manager Good
5 Nabil 40 12000 Director Very Good

2 Conditional Statements

Determine bonus levels based on employee performance:

  • Very Good → 20% of salary
  • Good → 10% of salary
  • Average → 5% of salary

2.1 Task:

  • Write a program to calculate each employee’s bonus.

  • Display the output in this format:

    "Name: Bagas, Bonus: 500"

# Data karyawan
employees <- data.frame(
  Name = c("Bagas", "Joan", "Alya", "Dwi", "Nabil"),
  Salary = c(5000, 7000, 6500, 10000, 12000),
  Performance = c("Good", "Very Good", "Average", "Good", "Very Good"),
  stringsAsFactors = FALSE
)

# Fungsi untuk menghitung bonus menggunakan if-else
calculate_bonus <- function(salary, performance) {
  if (performance == "Very Good") {
    bonus <- salary * 0.2 # Jika kinerjanya "very good", maka bonus nya 20%
  } else if (performance == "Good") {
    bonus <- salary * 0.1 # Jika kinerjanya "good", maka bonus nya 10%
  } else if (performance == "Average") {
    bonus <- salary * 0.05 # Jika kinerjanya "average", maka bonus nya 5%
  } else {
    bonus <- 0  # Jika kategori lain, bonus 0
  }
  return(bonus)
}

# Menghitung dan menampilkan bonus
for (i in 1:nrow(employees)) {
  bonus <- calculate_bonus(employees$Salary[i], employees$Performance[i])
  cat(sprintf("Name: %s, Bonus: %d\n", employees$Name[i], bonus))
}
## Name: Bagas, Bonus: 500
## Name: Joan, Bonus: 1400
## Name: Alya, Bonus: 325
## Name: Dwi, Bonus: 1000
## Name: Nabil, Bonus: 2400

Program diatas menggunakan “if-then-else” untuk memberikan bonus pada karyawan sesuai dengan kinerja-nya masing masing. Jika kinerja karyawan adalah “very good”, maka bonus yang didapat adalah sebesar 20%. Jika kinerja karyawan adalah “good”, maka bonus yang didapat adalah sebesar 10%. Jika kinerja karyawan adalah “average”, maka bonus yang didapat adalah sebesar 5%.

3 Loops (For & While)

3.1 Use a for loop to list employees with a salary greater than 6000.

Expected Output:

Name: Joan, Salary: 7000  
Name: Alya, Salary: 6500  
Name: Dwi, Salary: 10000  
Name: Nabil, Salary: 12000  
# memuat data karyawan sebagai data frame
employees <- data.frame(
  Name = c("Bagas", "Joan", "Alya", "Dwi", "Nabil"),
  Salary = c(5000, 7000, 6500, 10000, 12000)
)

# Menggunakan for loop untuk mencetak karyawan dengan gaji lebih dari 6000
for (i in 1:nrow(employees)) {
  if (employees$Salary[i] > 6000) {
    cat("Name:", employees$Name[i], ", Salary:", employees$Salary[i], "\n")
  }
}
## Name: Joan , Salary: 7000 
## Name: Alya , Salary: 6500 
## Name: Dwi , Salary: 10000 
## Name: Nabil , Salary: 12000

program diatas menggunakan “for-loop” untuk menampilkan list yang berisikan karyawan dengan gaji (salary) yang lebih besar dari 6000, dijelaskan dalam hasil adalah Joan, Alya, Dwi, dan Nabil

3.2 Use a while loop to display employees until a “Manager” is found.

Expected Output:

Name: Bagas, Position: Staff  
Name: Joan, Position: Supervisor  
Name: Alya, Position: Staff  
Name: Dwi, Position: Manager (Stop here)  
# memuat data karyawan sebagai data frame
employees <- data.frame(
  Name = c("Bagas", "Joan", "Alya", "Dwi", "Nabil"),
  Position = c("Staff", "Supervisor", "Staff", "Manager", "Director")
)

# Inisialisasi variabel indeks
i <- 1

# Menggunakan while loop untuk mencetak karyawan sampai menemukan "Manager"
while (i <= nrow(employees)) {
  if (employees$Position[i] == "Manager") {
    cat("Name:", employees$Name[i], ", Position:", employees$Position[i], "(Stop here)\n")
    break
  } else {
    cat("Name:", employees$Name[i], ", Position:", employees$Position[i], "\n")
  }
  i <- i + 1
}
## Name: Bagas , Position: Staff 
## Name: Joan , Position: Supervisor 
## Name: Alya , Position: Staff 
## Name: Dwi , Position: Manager (Stop here)

Program diatas menggunakan “while-loop” untuk menampilkan karyawan hingga muncul “manager”. Dengan cara di masukan awal data mengenai nama karyawan dan posisi nya (position), lalu digunakan “while” untuk melakukan pengulangan, disertai dengan “if” untuk menandakan kondisi bahwa “manager” sudah ditemukan atau tidak.

3.3 Use break to stop the loop when an employee with a salary above 10,000 is found.

Expected Output:

Name: Bagas, Salary: 5000  
Name: Joan, Salary: 7000  
Name: Alya, Salary: 6500  
Name: Dwi, Salary: 10000  
(Stopped because Nabil has a salary above 10,000)
# membuat data frame dari karyawan (employees) dengan salary-nya
employees <- data.frame(
  Name = c("Bagas", "Joan", "Alya", "Dwi", "Nabil"),
  Salary = c(5000, 7000, 6500, 10000, 12000)
)

# Loop through employees
for (i in 1:nrow(employees)) {
  name <- employees$Name[i]
  salary <- employees$Salary[i]
  
  if (salary > 10000) {
    cat("(Stopped because", name, "has a salary above 10,000)\n")
    break  # Stop/hentikan loop saat salary > 10,000
  }
  
  cat("Name:", name, ", Salary:", salary, "\n")
}
## Name: Bagas , Salary: 5000 
## Name: Joan , Salary: 7000 
## Name: Alya , Salary: 6500 
## Name: Dwi , Salary: 10000 
## (Stopped because Nabil has a salary above 10,000)

Program diatas menggunakan “for-looping” untuk menampilkan seluruh karyawan beserta gaji nya (salary), lalu digunakan “break” untuk menghentikan loop saat gaji (salary) sudah melebihi 10.000.

3.4 Use continue to skip employees with “Average” performance.

Expected Output:

Name: Bagas, Performance: Good  
Name: Joan, Performance: Very Good  
Name: Dwi, Performance: Good  
Name: Nabil, Performance: Very Good  
(Alya is skipped because the performance is "Average")
# membuat data frame dati karyawan (employees) dengan kinerjanya
employees <- data.frame(
  Name = c("Bagas", "Joan", "Alya", "Dwi", "Nabil"),
  Performance = c("Good", "Very Good", "Average", "Good", "Very Good")
)

# Loop pada employees
for (i in 1:nrow(employees)) {
  name <- employees$Name[i]
  performance <- employees$Performance[i]
  
  if (performance == "Average") {
    cat("(", name, "is skipped because the performance is 'Average')\n")
    next  # melewati employees dengan kinerja "Average"
  }
  
  cat("Name:", name, ", Performance:", performance, "\n")
}
## Name: Bagas , Performance: Good 
## Name: Joan , Performance: Very Good 
## ( Alya is skipped because the performance is 'Average')
## Name: Dwi , Performance: Good 
## Name: Nabil , Performance: Very Good

Program diatas menggunakan “for-loop” untuk menampilkan list karyawan beserta kinerjanya, lalu digunakan continue (“next” untuk R) untuk melewati karyawan dengan kinerja “average”.

LS0tDQp0aXRsZTogIlN5bnRheCAmIEZsb3ciDQpzdWJ0aXRsZTogIkRhdGEgU2NpZW5jZSBQcm9ncmFtbWluZyINCmF1dGhvcjogDQogIC0gIkNoZWxsbyBGcmhpbm8gTWlrZSBNICg1MjI0MDAzMSkiDQpkYXRlOiAgImByIGZvcm1hdChTeXMuRGF0ZSgpLCAnJUIgJWQsICVZJylgIg0Kb3V0cHV0Og0KICBybWRmb3JtYXRzOjpyZWFkdGhlZG93bjogICAjIGh0dHBzOi8vZ2l0aHViLmNvbS9qdWJhL3JtZGZvcm1hdHMNCiAgICBzZWxmX2NvbnRhaW5lZDogdHJ1ZQ0KICAgIHRodW1ibmFpbHM6IHRydWUNCiAgICBsaWdodGJveDogdHJ1ZQ0KICAgIGdhbGxlcnk6IHRydWUNCiAgICBudW1iZXJfc2VjdGlvbnM6IHRydWUNCiAgICBsaWJfZGlyOiBsaWJzDQogICAgZGZfcHJpbnQ6ICJwYWdlZCINCiAgICBjb2RlX2ZvbGRpbmc6ICJzaG93Ig0KICAgIGNvZGVfZG93bmxvYWQ6IHllcw0KICAgIA0KLS0tDQoNCjxzdHlsZT4NCiAgYm9keSB7DQogICAgdGV4dC1hbGlnbjoganVzdGlmeTsNCiAgICBiYWNrZ3JvdW5kLWNvbG9yOiB3aGl0ZTsNCiAgICBvdmVyZmxvdy14OiBhdXRvOw0KICB9DQo8L3N0eWxlPg0KDQojIE9iamVjdGl2ZQ0KMS4gKipVbmRlcnN0YW5kIGFuZCBpbXBsZW1lbnQgY29uZGl0aW9uYWwgc3RhdGVtZW50cyoqICgqaWYsIGlmLWVsc2UsIGlmLWVsaWYtZWxzZSopLiAgDQoyLiAqKkFwcGx5IGxvb3BzKiogKCpmb3IgbG9vcCwgd2hpbGUgbG9vcCwgYnJlYWssIGNvbnRpbnVlKikgdG8gYW5hbHl6ZSBhIGRhdGFzZXQuICANCg0KDQp8IElEIHwgTmFtZSAgfCBBZ2UgfCBTYWxhcnkgfCBQb3NpdGlvbiAgIHwgUGVyZm9ybWFuY2UgfA0KfC0tLS18LS0tLS0tLXwtLS0tLXwtLS0tLS0tLXwtLS0tLS0tLS0tLS18LS0tLS0tLS0tLS0tLXwNCnwgMSAgfCBCYWdhcyB8IDI1ICB8IDUwMDAgICB8IFN0YWZmICAgICAgfCBHb29kICAgICAgICB8DQp8IDIgIHwgSm9hbiAgfCAzMCAgfCA3MDAwICAgfCBTdXBlcnZpc29yIHwgVmVyeSBHb29kICAgfA0KfCAzICB8IEFseWEgIHwgMjcgIHwgNjUwMCAgIHwgU3RhZmYgICAgICB8IEF2ZXJhZ2UgICAgIHwNCnwgNCAgfCBEd2kgICB8IDM1ICB8IDEwMDAwICB8IE1hbmFnZXIgICAgfCBHb29kICAgICAgICB8DQp8IDUgIHwgTmFiaWwgfCA0MCAgfCAxMjAwMCAgfCBEaXJlY3RvciAgIHwgVmVyeSBHb29kICAgfA0KDQojICoqQ29uZGl0aW9uYWwgU3RhdGVtZW50cyoqICANCkRldGVybWluZSAqKmJvbnVzIGxldmVscyoqIGJhc2VkIG9uIGVtcGxveWVlICoqcGVyZm9ybWFuY2UqKjogIA0KDQotICoqVmVyeSBHb29kKiog4oaSIDIwJSBvZiBzYWxhcnkgIA0KLSAqKkdvb2QqKiDihpIgMTAlIG9mIHNhbGFyeSAgDQotICoqQXZlcmFnZSoqIOKGkiA1JSBvZiBzYWxhcnkgIA0KDQojIyAqKlRhc2s6KiogIA0KLSBXcml0ZSBhIHByb2dyYW0gdG8gY2FsY3VsYXRlIGVhY2ggZW1wbG95ZWUncyBib251cy4gIA0KLSBEaXNwbGF5IHRoZSBvdXRwdXQgaW4gdGhpcyBmb3JtYXQ6ICANCg0KICBgIk5hbWU6IEJhZ2FzLCBCb251czogNTAwImAgIA0KDQoNCmBgYHtyfQ0KIyBEYXRhIGthcnlhd2FuDQplbXBsb3llZXMgPC0gZGF0YS5mcmFtZSgNCiAgTmFtZSA9IGMoIkJhZ2FzIiwgIkpvYW4iLCAiQWx5YSIsICJEd2kiLCAiTmFiaWwiKSwNCiAgU2FsYXJ5ID0gYyg1MDAwLCA3MDAwLCA2NTAwLCAxMDAwMCwgMTIwMDApLA0KICBQZXJmb3JtYW5jZSA9IGMoIkdvb2QiLCAiVmVyeSBHb29kIiwgIkF2ZXJhZ2UiLCAiR29vZCIsICJWZXJ5IEdvb2QiKSwNCiAgc3RyaW5nc0FzRmFjdG9ycyA9IEZBTFNFDQopDQoNCiMgRnVuZ3NpIHVudHVrIG1lbmdoaXR1bmcgYm9udXMgbWVuZ2d1bmFrYW4gaWYtZWxzZQ0KY2FsY3VsYXRlX2JvbnVzIDwtIGZ1bmN0aW9uKHNhbGFyeSwgcGVyZm9ybWFuY2UpIHsNCiAgaWYgKHBlcmZvcm1hbmNlID09ICJWZXJ5IEdvb2QiKSB7DQogICAgYm9udXMgPC0gc2FsYXJ5ICogMC4yICMgSmlrYSBraW5lcmphbnlhICJ2ZXJ5IGdvb2QiLCBtYWthIGJvbnVzIG55YSAyMCUNCiAgfSBlbHNlIGlmIChwZXJmb3JtYW5jZSA9PSAiR29vZCIpIHsNCiAgICBib251cyA8LSBzYWxhcnkgKiAwLjEgIyBKaWthIGtpbmVyamFueWEgImdvb2QiLCBtYWthIGJvbnVzIG55YSAxMCUNCiAgfSBlbHNlIGlmIChwZXJmb3JtYW5jZSA9PSAiQXZlcmFnZSIpIHsNCiAgICBib251cyA8LSBzYWxhcnkgKiAwLjA1ICMgSmlrYSBraW5lcmphbnlhICJhdmVyYWdlIiwgbWFrYSBib251cyBueWEgNSUNCiAgfSBlbHNlIHsNCiAgICBib251cyA8LSAwICAjIEppa2Ega2F0ZWdvcmkgbGFpbiwgYm9udXMgMA0KICB9DQogIHJldHVybihib251cykNCn0NCg0KIyBNZW5naGl0dW5nIGRhbiBtZW5hbXBpbGthbiBib251cw0KZm9yIChpIGluIDE6bnJvdyhlbXBsb3llZXMpKSB7DQogIGJvbnVzIDwtIGNhbGN1bGF0ZV9ib251cyhlbXBsb3llZXMkU2FsYXJ5W2ldLCBlbXBsb3llZXMkUGVyZm9ybWFuY2VbaV0pDQogIGNhdChzcHJpbnRmKCJOYW1lOiAlcywgQm9udXM6ICVkXG4iLCBlbXBsb3llZXMkTmFtZVtpXSwgYm9udXMpKQ0KfQ0KDQpgYGANClByb2dyYW0gZGlhdGFzIG1lbmdndW5ha2FuICJpZi10aGVuLWVsc2UiIHVudHVrIG1lbWJlcmlrYW4gYm9udXMgcGFkYSBrYXJ5YXdhbiBzZXN1YWkgZGVuZ2FuIGtpbmVyamEtbnlhIG1hc2luZyBtYXNpbmcuIEppa2Ega2luZXJqYSBrYXJ5YXdhbiBhZGFsYWggInZlcnkgZ29vZCIsIG1ha2EgYm9udXMgeWFuZyBkaWRhcGF0IGFkYWxhaCBzZWJlc2FyIDIwJS4gSmlrYSBraW5lcmphIGthcnlhd2FuIGFkYWxhaCAiZ29vZCIsIG1ha2EgYm9udXMgeWFuZyBkaWRhcGF0IGFkYWxhaCBzZWJlc2FyIDEwJS4gSmlrYSBraW5lcmphIGthcnlhd2FuIGFkYWxhaCAiYXZlcmFnZSIsIG1ha2EgYm9udXMgeWFuZyBkaWRhcGF0IGFkYWxhaCBzZWJlc2FyIDUlLg0KDQojICoqTG9vcHMgKEZvciAmIFdoaWxlKSoqICANCg0KIyMgKipVc2UgYSBmb3IgbG9vcCB0byBsaXN0IGVtcGxveWVlcyB3aXRoIGEgc2FsYXJ5IGdyZWF0ZXIgdGhhbiA2MDAwLioqICANCg0KKipFeHBlY3RlZCBPdXRwdXQ6KiogIA0KYGBgDQpOYW1lOiBKb2FuLCBTYWxhcnk6IDcwMDAgIA0KTmFtZTogQWx5YSwgU2FsYXJ5OiA2NTAwICANCk5hbWU6IER3aSwgU2FsYXJ5OiAxMDAwMCAgDQpOYW1lOiBOYWJpbCwgU2FsYXJ5OiAxMjAwMCAgDQpgYGANCmBgYHtyfQ0KIyBtZW11YXQgZGF0YSBrYXJ5YXdhbiBzZWJhZ2FpIGRhdGEgZnJhbWUNCmVtcGxveWVlcyA8LSBkYXRhLmZyYW1lKA0KICBOYW1lID0gYygiQmFnYXMiLCAiSm9hbiIsICJBbHlhIiwgIkR3aSIsICJOYWJpbCIpLA0KICBTYWxhcnkgPSBjKDUwMDAsIDcwMDAsIDY1MDAsIDEwMDAwLCAxMjAwMCkNCikNCg0KIyBNZW5nZ3VuYWthbiBmb3IgbG9vcCB1bnR1ayBtZW5jZXRhayBrYXJ5YXdhbiBkZW5nYW4gZ2FqaSBsZWJpaCBkYXJpIDYwMDANCmZvciAoaSBpbiAxOm5yb3coZW1wbG95ZWVzKSkgew0KICBpZiAoZW1wbG95ZWVzJFNhbGFyeVtpXSA+IDYwMDApIHsNCiAgICBjYXQoIk5hbWU6IiwgZW1wbG95ZWVzJE5hbWVbaV0sICIsIFNhbGFyeToiLCBlbXBsb3llZXMkU2FsYXJ5W2ldLCAiXG4iKQ0KICB9DQp9DQoNCmBgYA0KcHJvZ3JhbSBkaWF0YXMgbWVuZ2d1bmFrYW4gImZvci1sb29wIiB1bnR1ayBtZW5hbXBpbGthbiBsaXN0IHlhbmcgYmVyaXNpa2FuIGthcnlhd2FuIGRlbmdhbiBnYWppIChzYWxhcnkpIHlhbmcgbGViaWggYmVzYXIgZGFyaSA2MDAwLCBkaWplbGFza2FuIGRhbGFtIGhhc2lsIGFkYWxhaCBKb2FuLCBBbHlhLCBEd2ksIGRhbiBOYWJpbA0KDQojIyAqKlVzZSBhIHdoaWxlIGxvb3AgdG8gZGlzcGxheSBlbXBsb3llZXMgdW50aWwgYSAiTWFuYWdlciIgaXMgZm91bmQuKiogIA0KDQoqKkV4cGVjdGVkIE91dHB1dDoqKiAgDQpgYGANCk5hbWU6IEJhZ2FzLCBQb3NpdGlvbjogU3RhZmYgIA0KTmFtZTogSm9hbiwgUG9zaXRpb246IFN1cGVydmlzb3IgIA0KTmFtZTogQWx5YSwgUG9zaXRpb246IFN0YWZmICANCk5hbWU6IER3aSwgUG9zaXRpb246IE1hbmFnZXIgKFN0b3AgaGVyZSkgIA0KYGBgDQpgYGB7cn0NCiMgbWVtdWF0IGRhdGEga2FyeWF3YW4gc2ViYWdhaSBkYXRhIGZyYW1lDQplbXBsb3llZXMgPC0gZGF0YS5mcmFtZSgNCiAgTmFtZSA9IGMoIkJhZ2FzIiwgIkpvYW4iLCAiQWx5YSIsICJEd2kiLCAiTmFiaWwiKSwNCiAgUG9zaXRpb24gPSBjKCJTdGFmZiIsICJTdXBlcnZpc29yIiwgIlN0YWZmIiwgIk1hbmFnZXIiLCAiRGlyZWN0b3IiKQ0KKQ0KDQojIEluaXNpYWxpc2FzaSB2YXJpYWJlbCBpbmRla3MNCmkgPC0gMQ0KDQojIE1lbmdndW5ha2FuIHdoaWxlIGxvb3AgdW50dWsgbWVuY2V0YWsga2FyeWF3YW4gc2FtcGFpIG1lbmVtdWthbiAiTWFuYWdlciINCndoaWxlIChpIDw9IG5yb3coZW1wbG95ZWVzKSkgew0KICBpZiAoZW1wbG95ZWVzJFBvc2l0aW9uW2ldID09ICJNYW5hZ2VyIikgew0KICAgIGNhdCgiTmFtZToiLCBlbXBsb3llZXMkTmFtZVtpXSwgIiwgUG9zaXRpb246IiwgZW1wbG95ZWVzJFBvc2l0aW9uW2ldLCAiKFN0b3AgaGVyZSlcbiIpDQogICAgYnJlYWsNCiAgfSBlbHNlIHsNCiAgICBjYXQoIk5hbWU6IiwgZW1wbG95ZWVzJE5hbWVbaV0sICIsIFBvc2l0aW9uOiIsIGVtcGxveWVlcyRQb3NpdGlvbltpXSwgIlxuIikNCiAgfQ0KICBpIDwtIGkgKyAxDQp9DQoNCmBgYA0KUHJvZ3JhbSBkaWF0YXMgbWVuZ2d1bmFrYW4gIndoaWxlLWxvb3AiIHVudHVrIG1lbmFtcGlsa2FuIGthcnlhd2FuIGhpbmdnYSBtdW5jdWwgIm1hbmFnZXIiLiBEZW5nYW4gY2FyYSBkaSBtYXN1a2FuIGF3YWwgZGF0YSBtZW5nZW5haSBuYW1hIGthcnlhd2FuIGRhbiBwb3Npc2kgbnlhIChwb3NpdGlvbiksIGxhbHUgZGlndW5ha2FuICJ3aGlsZSIgdW50dWsgbWVsYWt1a2FuIHBlbmd1bGFuZ2FuLCBkaXNlcnRhaSBkZW5nYW4gImlmIiB1bnR1ayBtZW5hbmRha2FuIGtvbmRpc2kgYmFod2EgIm1hbmFnZXIiIHN1ZGFoIGRpdGVtdWthbiBhdGF1IHRpZGFrLg0KDQoNCiMjICoqVXNlIGBicmVha2AgdG8gc3RvcCB0aGUgbG9vcCB3aGVuIGFuIGVtcGxveWVlIHdpdGggYSBzYWxhcnkgYWJvdmUgMTAsMDAwIGlzIGZvdW5kLioqDQoNCioqRXhwZWN0ZWQgT3V0cHV0OioqDQpgYGANCk5hbWU6IEJhZ2FzLCBTYWxhcnk6IDUwMDAgIA0KTmFtZTogSm9hbiwgU2FsYXJ5OiA3MDAwICANCk5hbWU6IEFseWEsIFNhbGFyeTogNjUwMCAgDQpOYW1lOiBEd2ksIFNhbGFyeTogMTAwMDAgIA0KKFN0b3BwZWQgYmVjYXVzZSBOYWJpbCBoYXMgYSBzYWxhcnkgYWJvdmUgMTAsMDAwKQ0KYGBgDQpgYGB7cn0NCiMgbWVtYnVhdCBkYXRhIGZyYW1lIGRhcmkga2FyeWF3YW4gKGVtcGxveWVlcykgZGVuZ2FuIHNhbGFyeS1ueWENCmVtcGxveWVlcyA8LSBkYXRhLmZyYW1lKA0KICBOYW1lID0gYygiQmFnYXMiLCAiSm9hbiIsICJBbHlhIiwgIkR3aSIsICJOYWJpbCIpLA0KICBTYWxhcnkgPSBjKDUwMDAsIDcwMDAsIDY1MDAsIDEwMDAwLCAxMjAwMCkNCikNCg0KIyBMb29wIHRocm91Z2ggZW1wbG95ZWVzDQpmb3IgKGkgaW4gMTpucm93KGVtcGxveWVlcykpIHsNCiAgbmFtZSA8LSBlbXBsb3llZXMkTmFtZVtpXQ0KICBzYWxhcnkgPC0gZW1wbG95ZWVzJFNhbGFyeVtpXQ0KICANCiAgaWYgKHNhbGFyeSA+IDEwMDAwKSB7DQogICAgY2F0KCIoU3RvcHBlZCBiZWNhdXNlIiwgbmFtZSwgImhhcyBhIHNhbGFyeSBhYm92ZSAxMCwwMDApXG4iKQ0KICAgIGJyZWFrICAjIFN0b3AvaGVudGlrYW4gbG9vcCBzYWF0IHNhbGFyeSA+IDEwLDAwMA0KICB9DQogIA0KICBjYXQoIk5hbWU6IiwgbmFtZSwgIiwgU2FsYXJ5OiIsIHNhbGFyeSwgIlxuIikNCn0NCg0KYGBgDQpQcm9ncmFtIGRpYXRhcyBtZW5nZ3VuYWthbiAiZm9yLWxvb3BpbmciIHVudHVrIG1lbmFtcGlsa2FuIHNlbHVydWgga2FyeWF3YW4gYmVzZXJ0YSBnYWppIG55YSAoc2FsYXJ5KSwgbGFsdSBkaWd1bmFrYW4gImJyZWFrIiB1bnR1ayBtZW5naGVudGlrYW4gbG9vcCBzYWF0IGdhamkgKHNhbGFyeSkgc3VkYWggbWVsZWJpaGkgMTAuMDAwLg0KDQojIyAqKlVzZSBgY29udGludWVgIHRvIHNraXAgZW1wbG95ZWVzIHdpdGggIkF2ZXJhZ2UiIHBlcmZvcm1hbmNlLioqDQoNCioqRXhwZWN0ZWQgT3V0cHV0OioqDQpgYGANCk5hbWU6IEJhZ2FzLCBQZXJmb3JtYW5jZTogR29vZCAgDQpOYW1lOiBKb2FuLCBQZXJmb3JtYW5jZTogVmVyeSBHb29kICANCk5hbWU6IER3aSwgUGVyZm9ybWFuY2U6IEdvb2QgIA0KTmFtZTogTmFiaWwsIFBlcmZvcm1hbmNlOiBWZXJ5IEdvb2QgIA0KKEFseWEgaXMgc2tpcHBlZCBiZWNhdXNlIHRoZSBwZXJmb3JtYW5jZSBpcyAiQXZlcmFnZSIpDQpgYGANCg0KYGBge3J9DQojIG1lbWJ1YXQgZGF0YSBmcmFtZSBkYXRpIGthcnlhd2FuIChlbXBsb3llZXMpIGRlbmdhbiBraW5lcmphbnlhDQplbXBsb3llZXMgPC0gZGF0YS5mcmFtZSgNCiAgTmFtZSA9IGMoIkJhZ2FzIiwgIkpvYW4iLCAiQWx5YSIsICJEd2kiLCAiTmFiaWwiKSwNCiAgUGVyZm9ybWFuY2UgPSBjKCJHb29kIiwgIlZlcnkgR29vZCIsICJBdmVyYWdlIiwgIkdvb2QiLCAiVmVyeSBHb29kIikNCikNCg0KIyBMb29wIHBhZGEgZW1wbG95ZWVzDQpmb3IgKGkgaW4gMTpucm93KGVtcGxveWVlcykpIHsNCiAgbmFtZSA8LSBlbXBsb3llZXMkTmFtZVtpXQ0KICBwZXJmb3JtYW5jZSA8LSBlbXBsb3llZXMkUGVyZm9ybWFuY2VbaV0NCiAgDQogIGlmIChwZXJmb3JtYW5jZSA9PSAiQXZlcmFnZSIpIHsNCiAgICBjYXQoIigiLCBuYW1lLCAiaXMgc2tpcHBlZCBiZWNhdXNlIHRoZSBwZXJmb3JtYW5jZSBpcyAnQXZlcmFnZScpXG4iKQ0KICAgIG5leHQgICMgbWVsZXdhdGkgZW1wbG95ZWVzIGRlbmdhbiBraW5lcmphICJBdmVyYWdlIg0KICB9DQogIA0KICBjYXQoIk5hbWU6IiwgbmFtZSwgIiwgUGVyZm9ybWFuY2U6IiwgcGVyZm9ybWFuY2UsICJcbiIpDQp9DQoNCmBgYA0KUHJvZ3JhbSBkaWF0YXMgbWVuZ2d1bmFrYW4gImZvci1sb29wIiB1bnR1ayBtZW5hbXBpbGthbiBsaXN0IGthcnlhd2FuIGJlc2VydGEga2luZXJqYW55YSwgbGFsdSBkaWd1bmFrYW4gY29udGludWUgKCJuZXh0IiB1bnR1ayBSKSB1bnR1ayBtZWxld2F0aSBrYXJ5YXdhbiBkZW5nYW4ga2luZXJqYSAiYXZlcmFnZSIuDQoNCg==