UTS

Data Science Programming

Logo

SOAL 1

Buat program sederhana dalam R dan Python yang melakukan hal berikut:

Menerima dua bilangan dari pengguna
Menghitung dan menampilkan hasil:

Penjumlahan
Perkalian
Pembagian
Bilangan pertama pangkat bilangan kedua

Menampilkan tipe data masing-masing hasil operasi

# 1. Menerima input dua bilangan (pakai readline())
num1 <- as.numeric(readline(prompt = "Masukkan bilangan pertama: "))

## Masukkan bilangan pertama:

num2 <- as.numeric(readline(prompt = "Masukkan bilangan kedua: "))

## Masukkan bilangan kedua:

# 2. Operasi matematika
penjumlahan <- num1 + num2
perkalian <- num1 * num2
pembagian <- num1 / num2
pangkat <- num1 ^ num2  # atau num1 ** num2

# 3. Menampilkan hasil + tipe data
cat("\nHasil Operasi:\n")

## 
## Hasil Operasi:

cat("Penjumlahan:", penjumlahan, "(Tipe:", class(penjumlahan), ")\n")

## Penjumlahan: NA (Tipe: numeric )

cat("Perkalian:", perkalian, "(Tipe:", class(perkalian), ")\n")

## Perkalian: NA (Tipe: numeric )

cat("Pembagian:", pembagian, "(Tipe:", class(pembagian), ")\n")

## Pembagian: NA (Tipe: numeric )

cat("Pangkat:", pangkat, "(Tipe:", class(pangkat), ")\n")

## Pangkat: NA (Tipe: numeric )

SOAL 2

Tulislah program dalam R dan Python yang:

Menerima input nilai ujian dari pengguna (0–100)
Menampilkan keterangan berdasarkan ketentuan berikut:

Nilai ≥ 85: “Sangat Baik”
Nilai 70–84: “Baik”
Nilai 60–69: “Cukup”
Nilai < 60: “Perlu Perbaikan”

# 1. Menerima input nilai (0-100)
nilai <- as.numeric(readline(prompt = "Masukkan nilai ujian (0-100): "))

## Masukkan nilai ujian (0-100):

# 2. Validasi input (0-100)
if (is.na(nilai)) {  # Handle jika input bukan angka
  cat("Error: Input harus angka!\n")
} else if (nilai < 0 | nilai > 100) {
  cat("Error: Nilai harus antara 0-100!\n")
} else {
  # 3. Cek kategori nilai
  if (nilai >= 85) {
    keterangan <- "Sangat Baik"
  } else if (nilai >= 70) {
    keterangan <- "Baik"
  } else if (nilai >= 60) {
    keterangan <- "Cukup"
  } else {
    keterangan <- "Perlu Perbaikan"
  }
  
  # 4. Output hasil
  cat("Kategori nilai:", keterangan, "\n")
}

## Error: Input harus angka!

SOAL 3

Buatlah fungsi dalam R dan Python bernama kelipatan_genap(n) yang:

Menerima input integer n
Menggunakan loop untuk mencetak semua bilangan genap kelipatan 4 dari 1 hingga n
Contoh output jika n = 20: 4, 8, 12, 16, 20

kelipatan_genap <- function(n) {
    # Fungsi untuk mencetak bilangan genap kelipatan 4 dari 1 hingga n.
    # Args:
    #   n (integer): Batas atas range.
    
    hasil <- c()  # Vektor untuk menyimpan hasil
    for (i in 1:n) {  # Loop dari 1 sampai n
        if (i %% 4 == 0) {  # Cek apakah i kelipatan 4
            hasil <- c(hasil, i)  # Tambahkan ke vektor hasil
        }
    }
    
    # Gabungkan hasil dengan koma dan print
    cat(paste(hasil, collapse = ", "), "\n")
}

# Contoh pemanggilan
kelipatan_genap(20)  # Output: 4, 8, 12, 16, 20

## 4, 8, 12, 16, 20

SOAL 4:Data Wrangling & Analisis Penjualan E-Commerce

1. Data Collection

Pada tahap awal, dilakukan proses penggabungan data dari tiga file transaksi penjualan yang terpisah, yaitu data bulan Januari, Februari, dan Maret. Setiap file dibaca menggunakan fungsi read_csv() dari library readr, kemudian digabung menjadi satu dataset utuh menggunakan fungsi bind_rows() dari dplyr. Hasil penggabungan ini membentuk dataset yang lebih komprehensif, mencakup seluruh transaksi selama kuartal pertama. Setelah penggabungan, dilakukan pengecekan jumlah baris dan kolom untuk memastikan bahwa seluruh data telah berhasil diintegrasikan dengan baik.

library(dplyr)

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

library(readr)

## Warning: package 'readr' was built under R version 4.4.3

# Baca file
jan <- read_csv("data_penjualan_kuartal1_full - Januari.csv")

## Rows: 50 Columns: 9

## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr (7): Tanggal, Produk, Kategori, Harga, Jumlah, Pembeli, Kota
## dbl (1): OrderID
## lgl (1): Total
## 
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

feb <- read_csv("data_penjualan_kuartal1_full - Februari.csv")

## Rows: 50 Columns: 9
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr (7): Tanggal, Produk, Kategori, Harga, Jumlah, Pembeli, Kota
## dbl (1): OrderID
## lgl (1): Total
## 
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

mar <- read_csv("data_penjualan_kuartal1_full - Maret.csv")

## Rows: 50 Columns: 9
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr (7): Tanggal, Produk, Kategori, Harga, Jumlah, Pembeli, Kota
## dbl (1): OrderID
## lgl (1): Total
## 
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

# Gabungkan
data <- bind_rows(jan, feb, mar)

# Lihat jumlah baris dan kolom
dim(data)

## [1] 150   9

2. Data Cleaning

Setelah pengumpulan data, tahap berikutnya adalah pembersihan data. Pembersihan ini bertujuan untuk memastikan data dalam format yang sesuai dan siap untuk dianalisis. Beberapa langkah yang dilakukan termasuk mengubah format tanggal, memastikan kolom numerik benar, serta menghapus data yang tidak valid atau kosong.

library(dplyr)
library(readr)
library(lubridate)

## Warning: package 'lubridate' was built under R version 4.4.3

## 
## Attaching package: 'lubridate'

## The following objects are masked from 'package:base':
## 
##     date, intersect, setdiff, union

# Baca file
jan <- read_csv("data_penjualan_kuartal1_full - Januari.csv")

## Rows: 50 Columns: 9

## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr (7): Tanggal, Produk, Kategori, Harga, Jumlah, Pembeli, Kota
## dbl (1): OrderID
## lgl (1): Total
## 
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

feb <- read_csv("data_penjualan_kuartal1_full - Februari.csv")

## Rows: 50 Columns: 9
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr (7): Tanggal, Produk, Kategori, Harga, Jumlah, Pembeli, Kota
## dbl (1): OrderID
## lgl (1): Total
## 
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

mar <- read_csv("data_penjualan_kuartal1_full - Maret.csv")

## Rows: 50 Columns: 9
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr (7): Tanggal, Produk, Kategori, Harga, Jumlah, Pembeli, Kota
## dbl (1): OrderID
## lgl (1): Total
## 
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

# Gabungkan
data <- bind_rows(jan, feb, mar)

# 1. Ubah format tanggal ke YYYY-MM-DD
data <- data %>%
  mutate(Tanggal = dmy(Tanggal))

# 2. Ubah Harga & Jumlah ke numeric
data <- data %>%
  mutate(
    Harga = parse_number(Harga),
    Jumlah = parse_number(Jumlah)
  )

## Warning: There was 1 warning in `mutate()`.
## ℹ In argument: `Jumlah = parse_number(Jumlah)`.
## Caused by warning:
## ! 57 parsing failures.
## row col expected actual
##   1  -- a number  empat
##   4  -- a number  dua  
##   6  -- a number  empat
##   8  -- a number  dua  
##   9  -- a number  empat
## ... ... ........ ......
## See problems(...) for more details.

# 3. Hitung ulang kolom Total
data <- data %>%
  mutate(Total = Harga * Jumlah)

# 4. Bersihkan nilai tidak valid
nilai_tidak_valid <- c("-", "dua", "Rp", "_anonymous_", "", NA)

data <- data %>%
  mutate(
    Produk = ifelse(Produk %in% nilai_tidak_valid, NA, Produk),
    Kategori = ifelse(Kategori %in% nilai_tidak_valid, NA, Kategori),
    Kota = ifelse(Kota %in% nilai_tidak_valid, NA, Kota)
  )

# 5. Hapus baris tanpa nama produk
data <- data %>%
  filter(!is.na(Produk) & Produk != "")

# Cek hasil akhir
glimpse(data)

## Rows: 122
## Columns: 9
## $ OrderID  <dbl> 1001, 1002, 1003, 1004, 1006, 1007, 1009, 1010, 1012, 1013, 1…
## $ Tanggal  <date> 2024-01-01, 2024-01-02, 2024-01-03, 2024-01-04, 2024-01-06, …
## $ Produk   <chr> "Laptop A", "Tas Branded", "Tas Branded", "Kemeja", "Smartpho…
## $ Kategori <chr> NA, "Fashion", "Aksesoris", NA, "Fashion", "Elektronik", "Ele…
## $ Harga    <dbl> 1.5e+07, 1.5e+07, 1.5e+07, 1.5e+07, 1.5e+07, 1.2e+00, 1.5e+07…
## $ Jumlah   <dbl> NA, 2, 3, NA, NA, 3, NA, 2, NA, 2, NA, 2, NA, NA, NA, 1, 1, 2…
## $ Total    <dbl> NA, 3.00e+07, 4.50e+07, NA, NA, 3.60e+00, NA, 1.50e+03, NA, 1…
## $ Pembeli  <chr> "Budi@", "Budi@", "_anonymous_", "Andi123", "Sinta99", "_anon…
## $ Kota     <chr> "Bandung", "Surabaya", "Bandung", "Bandung", "Bandung", "Band…

3. Data Transformation

Tujuan:

Setelah data dibersihkan, kita bisa mulai melakukan transformasi untuk menyiapkan data ke tahap analisis. Di tahap ini, kita akan:

Menambahkan kolom bulan transaksi
Mengelompokkan total penjualan per kategori
Mengelompokkan jumlah transaksi per kota
Meringkas total penjualan per bulan

Transformasi Data

library(lubridate)
library(dplyr)

# Transformasi data
data <- data %>%
  mutate(Bulan = month(Tanggal, label = TRUE, abbr = FALSE))  # Tambahkan kolom Bulan

# Total penjualan per kategori
penjualan_per_kategori <- data %>%
  group_by(Kategori) %>%
  summarise(Total_Penjualan = sum(Total, na.rm = TRUE)) %>%
  arrange(desc(Total_Penjualan))

# Jumlah transaksi per kota
transaksi_per_kota <- data %>%
  group_by(Kota) %>%
  summarise(Jumlah_Transaksi = n()) %>%
  arrange(desc(Jumlah_Transaksi))

Visualisasi Data

1. Total Penjualan per Bulan

Grafik ini menunjukkan total penjualan dari masing-masing kategori produk berdasarkan data penjualan gabungan dari bulan Januari sampai Maret.

Setiap batang mewakili satu kategori, dan panjangnya menunjukkan seberapa besar total penjualan dari kategori tersebut. Kategori dengan batang paling panjang berarti memiliki jumlah penjualan tertinggi selama kuartal pertama.

Dengan tampilan horizontal dan warna yang berbeda, grafik ini memudahkan kita untuk melihat dan membandingkan kategori mana yang paling laris dan mana yang penjualannya masih rendah.

# Muat library yang dibutuhkan
# Pastikan library ggplot2 telah dimuat
library(ggplot2)

# Visualisasi total penjualan per kategori
ggplot(penjualan_per_kategori, aes(x = reorder(Kategori, Total_Penjualan), 
                                   y = Total_Penjualan, fill = Kategori)) +
  geom_bar(stat = "identity", width = 0.6) +              
  coord_flip() +                                         
  scale_fill_brewer(palette = "Set2") +                  
  labs(title = "Total Penjualan per Kategori",
       subtitle = "Gabungan Data Penjualan Januari–Maret",
       x = "Kategori Produk",
       y = "Total Penjualan (Rp)") +
  theme_minimal(base_size = 16) +                         
  theme(
    plot.title = element_text(face = "bold", size = 22),   
    plot.subtitle = element_text(size = 16, margin = margin(b = 10)),
    axis.title = element_text(face = "bold", size = 16),
    legend.position = "none"                              
  )

LS0tDQp0aXRsZTogIlVUUyINCnN1YnRpdGxlOiAiRGF0YSBTY2llbmNlIFByb2dyYW1taW5nIg0KYXV0aG9yOiAiTXVoYW1tYWQgTmFiaWwgUHJhdGFtYSINCmRhdGU6ICJgciBmb3JtYXQoU3lzLkRhdGUoKSwgJyVCICVkLCAlWScpYCINCm91dHB1dDoNCiAgcm1kZm9ybWF0czo6cmVhZHRoZWRvd246DQogICAgc2VsZl9jb250YWluZWQ6IHRydWUNCiAgICB0aHVtYm5haWxzOiB0cnVlDQogICAgbGlnaHRib3g6IHRydWUNCiAgICBnYWxsZXJ5OiB0cnVlDQogICAgbGliX2RpcjogbGlicw0KICAgIGRmX3ByaW50OiAicGFnZWQiDQogICAgY29kZV9mb2xkaW5nOiAic2hvdyINCiAgICBjb2RlX2Rvd25sb2FkOiB5ZXMNCiAgICBjc3M6ICJzdHlsZS5jc3MiDQotLS0NCg0KPGltZyBpZD0iaXNpX25hbWEiIHNyYz0iQzovVXNlcnMvTSBOYWJpbCBQcmF0YW1hL09uZURyaXZlL1BpY3R1cmVzL1NjcmVlbnNob3RzL0dhbWJhciBXaGF0c0FwcCAyMDI0LTEyLTA2IHB1a3VsIDEzLjMzLjE1X2MzZmQwZmM3LmpwZyIgYWx0PSJMb2dvIiBzdHlsZT0id2lkdGg6MjAwcHg7IGRpc3BsYXk6IGJsb2NrOyBtYXJnaW46IGF1dG87Ij4NCg0KIyAqKlNPQUwgMSoqDQpCdWF0IHByb2dyYW0gc2VkZXJoYW5hIGRhbGFtIFIgZGFuIFB5dGhvbiB5YW5nIG1lbGFrdWthbiBoYWwgYmVyaWt1dDoNCg0KYS4gTWVuZXJpbWEgZHVhIGJpbGFuZ2FuIGRhcmkgcGVuZ2d1bmENCg0KYi4gTWVuZ2hpdHVuZyBkYW4gbWVuYW1waWxrYW4gaGFzaWw6DQotIFBlbmp1bWxhaGFuDQotIFBlcmthbGlhbg0KLSBQZW1iYWdpYW4NCi0gQmlsYW5nYW4gcGVydGFtYSBwYW5na2F0IGJpbGFuZ2FuIGtlZHVhDQoNCmMuIE1lbmFtcGlsa2FuIHRpcGUgZGF0YSBtYXNpbmctbWFzaW5nIGhhc2lsIG9wZXJhc2kNCmBgYHtyfQ0KIyAxLiBNZW5lcmltYSBpbnB1dCBkdWEgYmlsYW5nYW4gKHBha2FpIHJlYWRsaW5lKCkpDQpudW0xIDwtIGFzLm51bWVyaWMocmVhZGxpbmUocHJvbXB0ID0gIk1hc3Vra2FuIGJpbGFuZ2FuIHBlcnRhbWE6ICIpKQ0KbnVtMiA8LSBhcy5udW1lcmljKHJlYWRsaW5lKHByb21wdCA9ICJNYXN1a2thbiBiaWxhbmdhbiBrZWR1YTogIikpDQoNCiMgMi4gT3BlcmFzaSBtYXRlbWF0aWthDQpwZW5qdW1sYWhhbiA8LSBudW0xICsgbnVtMg0KcGVya2FsaWFuIDwtIG51bTEgKiBudW0yDQpwZW1iYWdpYW4gPC0gbnVtMSAvIG51bTINCnBhbmdrYXQgPC0gbnVtMSBeIG51bTIgICMgYXRhdSBudW0xICoqIG51bTINCg0KIyAzLiBNZW5hbXBpbGthbiBoYXNpbCArIHRpcGUgZGF0YQ0KY2F0KCJcbkhhc2lsIE9wZXJhc2k6XG4iKQ0KY2F0KCJQZW5qdW1sYWhhbjoiLCBwZW5qdW1sYWhhbiwgIihUaXBlOiIsIGNsYXNzKHBlbmp1bWxhaGFuKSwgIilcbiIpDQpjYXQoIlBlcmthbGlhbjoiLCBwZXJrYWxpYW4sICIoVGlwZToiLCBjbGFzcyhwZXJrYWxpYW4pLCAiKVxuIikNCmNhdCgiUGVtYmFnaWFuOiIsIHBlbWJhZ2lhbiwgIihUaXBlOiIsIGNsYXNzKHBlbWJhZ2lhbiksICIpXG4iKQ0KY2F0KCJQYW5na2F0OiIsIHBhbmdrYXQsICIoVGlwZToiLCBjbGFzcyhwYW5na2F0KSwgIilcbiIpDQpgYGANCiMgKipTT0FMIDIqKg0KVHVsaXNsYWggcHJvZ3JhbSBkYWxhbSBSIGRhbiBQeXRob24geWFuZzoNCg0KYS4gTWVuZXJpbWEgaW5wdXQgbmlsYWkgdWppYW4gZGFyaSBwZW5nZ3VuYSAoMOKAkzEwMCkNCg0KYi4gTWVuYW1waWxrYW4ga2V0ZXJhbmdhbiBiZXJkYXNhcmthbiBrZXRlbnR1YW4gYmVyaWt1dDoNCi0gTmlsYWkg4omlIDg1OiDigJxTYW5nYXQgQmFpa+KAnQ0KLSBOaWxhaSA3MOKAkzg0OiDigJxCYWlr4oCdDQotIE5pbGFpIDYw4oCTNjk6IOKAnEN1a3Vw4oCdDQotIE5pbGFpIDwgNjA6IOKAnFBlcmx1IFBlcmJhaWthbuKAnQ0KDQpgYGB7cn0NCiMgMS4gTWVuZXJpbWEgaW5wdXQgbmlsYWkgKDAtMTAwKQ0KbmlsYWkgPC0gYXMubnVtZXJpYyhyZWFkbGluZShwcm9tcHQgPSAiTWFzdWtrYW4gbmlsYWkgdWppYW4gKDAtMTAwKTogIikpDQoNCiMgMi4gVmFsaWRhc2kgaW5wdXQgKDAtMTAwKQ0KaWYgKGlzLm5hKG5pbGFpKSkgeyAgIyBIYW5kbGUgamlrYSBpbnB1dCBidWthbiBhbmdrYQ0KICBjYXQoIkVycm9yOiBJbnB1dCBoYXJ1cyBhbmdrYSFcbiIpDQp9IGVsc2UgaWYgKG5pbGFpIDwgMCB8IG5pbGFpID4gMTAwKSB7DQogIGNhdCgiRXJyb3I6IE5pbGFpIGhhcnVzIGFudGFyYSAwLTEwMCFcbiIpDQp9IGVsc2Ugew0KICAjIDMuIENlayBrYXRlZ29yaSBuaWxhaQ0KICBpZiAobmlsYWkgPj0gODUpIHsNCiAgICBrZXRlcmFuZ2FuIDwtICJTYW5nYXQgQmFpayINCiAgfSBlbHNlIGlmIChuaWxhaSA+PSA3MCkgew0KICAgIGtldGVyYW5nYW4gPC0gIkJhaWsiDQogIH0gZWxzZSBpZiAobmlsYWkgPj0gNjApIHsNCiAgICBrZXRlcmFuZ2FuIDwtICJDdWt1cCINCiAgfSBlbHNlIHsNCiAgICBrZXRlcmFuZ2FuIDwtICJQZXJsdSBQZXJiYWlrYW4iDQogIH0NCiAgDQogICMgNC4gT3V0cHV0IGhhc2lsDQogIGNhdCgiS2F0ZWdvcmkgbmlsYWk6Iiwga2V0ZXJhbmdhbiwgIlxuIikNCn0NCmBgYA0KIyAqKlNPQUwgMyoqDQpCdWF0bGFoIGZ1bmdzaSBkYWxhbSBSIGRhbiBQeXRob24gYmVybmFtYSBrZWxpcGF0YW5fZ2VuYXAobikgeWFuZzoNCg0KYS4gTWVuZXJpbWEgaW5wdXQgaW50ZWdlciBuDQoNCmIuIE1lbmdndW5ha2FuIGxvb3AgdW50dWsgbWVuY2V0YWsgc2VtdWEgYmlsYW5nYW4gZ2VuYXAga2VsaXBhdGFuIDQgZGFyaSAxDQpoaW5nZ2Egbg0KDQpjLiBDb250b2ggb3V0cHV0IGppa2EgbiA9IDIwOiA0LCA4LCAxMiwgMTYsIDIwDQoNCmBgYHtyfQ0Ka2VsaXBhdGFuX2dlbmFwIDwtIGZ1bmN0aW9uKG4pIHsNCiAgICAjIEZ1bmdzaSB1bnR1ayBtZW5jZXRhayBiaWxhbmdhbiBnZW5hcCBrZWxpcGF0YW4gNCBkYXJpIDEgaGluZ2dhIG4uDQogICAgIyBBcmdzOg0KICAgICMgICBuIChpbnRlZ2VyKTogQmF0YXMgYXRhcyByYW5nZS4NCiAgICANCiAgICBoYXNpbCA8LSBjKCkgICMgVmVrdG9yIHVudHVrIG1lbnlpbXBhbiBoYXNpbA0KICAgIGZvciAoaSBpbiAxOm4pIHsgICMgTG9vcCBkYXJpIDEgc2FtcGFpIG4NCiAgICAgICAgaWYgKGkgJSUgNCA9PSAwKSB7ICAjIENlayBhcGFrYWggaSBrZWxpcGF0YW4gNA0KICAgICAgICAgICAgaGFzaWwgPC0gYyhoYXNpbCwgaSkgICMgVGFtYmFoa2FuIGtlIHZla3RvciBoYXNpbA0KICAgICAgICB9DQogICAgfQ0KICAgIA0KICAgICMgR2FidW5na2FuIGhhc2lsIGRlbmdhbiBrb21hIGRhbiBwcmludA0KICAgIGNhdChwYXN0ZShoYXNpbCwgY29sbGFwc2UgPSAiLCAiKSwgIlxuIikNCn0NCg0KIyBDb250b2ggcGVtYW5nZ2lsYW4NCmtlbGlwYXRhbl9nZW5hcCgyMCkgICMgT3V0cHV0OiA0LCA4LCAxMiwgMTYsIDIwDQpgYGANCiMgKipTT0FMIDQ6RGF0YSBXcmFuZ2xpbmcgJiBBbmFsaXNpcyBQZW5qdWFsYW4gRS1Db21tZXJjZSoqDQojIyAxLiBEYXRhIENvbGxlY3Rpb24NClBhZGEgdGFoYXAgYXdhbCwgZGlsYWt1a2FuIHByb3NlcyBwZW5nZ2FidW5nYW4gZGF0YSBkYXJpIHRpZ2EgZmlsZSB0cmFuc2Frc2kgcGVuanVhbGFuIHlhbmcgdGVycGlzYWgsIHlhaXR1IGRhdGEgYnVsYW4gSmFudWFyaSwgRmVicnVhcmksIGRhbiBNYXJldC4NClNldGlhcCBmaWxlIGRpYmFjYSBtZW5nZ3VuYWthbiBmdW5nc2kgcmVhZF9jc3YoKSBkYXJpIGxpYnJhcnkgcmVhZHIsIGtlbXVkaWFuIGRpZ2FidW5nIG1lbmphZGkgc2F0dSBkYXRhc2V0IHV0dWggbWVuZ2d1bmFrYW4gZnVuZ3NpIGJpbmRfcm93cygpIGRhcmkgZHBseXIuDQpIYXNpbCBwZW5nZ2FidW5nYW4gaW5pIG1lbWJlbnR1ayBkYXRhc2V0IHlhbmcgbGViaWgga29tcHJlaGVuc2lmLCBtZW5jYWt1cCBzZWx1cnVoIHRyYW5zYWtzaSBzZWxhbWEga3VhcnRhbCBwZXJ0YW1hLg0KU2V0ZWxhaCBwZW5nZ2FidW5nYW4sIGRpbGFrdWthbiBwZW5nZWNla2FuIGp1bWxhaCBiYXJpcyBkYW4ga29sb20gdW50dWsgbWVtYXN0aWthbiBiYWh3YSBzZWx1cnVoIGRhdGEgdGVsYWggYmVyaGFzaWwgZGlpbnRlZ3Jhc2lrYW4gZGVuZ2FuIGJhaWsuIA0KDQpgYGB7cn0NCmxpYnJhcnkoZHBseXIpDQpsaWJyYXJ5KHJlYWRyKQ0KDQojIEJhY2EgZmlsZQ0KamFuIDwtIHJlYWRfY3N2KCJkYXRhX3Blbmp1YWxhbl9rdWFydGFsMV9mdWxsIC0gSmFudWFyaS5jc3YiKQ0KZmViIDwtIHJlYWRfY3N2KCJkYXRhX3Blbmp1YWxhbl9rdWFydGFsMV9mdWxsIC0gRmVicnVhcmkuY3N2IikNCm1hciA8LSByZWFkX2NzdigiZGF0YV9wZW5qdWFsYW5fa3VhcnRhbDFfZnVsbCAtIE1hcmV0LmNzdiIpDQoNCiMgR2FidW5na2FuDQpkYXRhIDwtIGJpbmRfcm93cyhqYW4sIGZlYiwgbWFyKQ0KDQojIExpaGF0IGp1bWxhaCBiYXJpcyBkYW4ga29sb20NCmRpbShkYXRhKSAgDQpgYGANCiMjIDIuIERhdGEgQ2xlYW5pbmcNClNldGVsYWggcGVuZ3VtcHVsYW4gZGF0YSwgdGFoYXAgYmVyaWt1dG55YSBhZGFsYWggcGVtYmVyc2loYW4gZGF0YS4NClBlbWJlcnNpaGFuIGluaSBiZXJ0dWp1YW4gdW50dWsgbWVtYXN0aWthbiBkYXRhIGRhbGFtIGZvcm1hdCB5YW5nIHNlc3VhaSBkYW4gc2lhcCB1bnR1ayBkaWFuYWxpc2lzLg0KQmViZXJhcGEgbGFuZ2thaCB5YW5nIGRpbGFrdWthbiB0ZXJtYXN1ayBtZW5ndWJhaCBmb3JtYXQgdGFuZ2dhbCwgbWVtYXN0aWthbiBrb2xvbSBudW1lcmlrIGJlbmFyLCBzZXJ0YSBtZW5naGFwdXMgZGF0YSB5YW5nIHRpZGFrIHZhbGlkIGF0YXUga29zb25nLg0KYGBge3J9DQpsaWJyYXJ5KGRwbHlyKQ0KbGlicmFyeShyZWFkcikNCmxpYnJhcnkobHVicmlkYXRlKQ0KDQojIEJhY2EgZmlsZQ0KamFuIDwtIHJlYWRfY3N2KCJkYXRhX3Blbmp1YWxhbl9rdWFydGFsMV9mdWxsIC0gSmFudWFyaS5jc3YiKQ0KZmViIDwtIHJlYWRfY3N2KCJkYXRhX3Blbmp1YWxhbl9rdWFydGFsMV9mdWxsIC0gRmVicnVhcmkuY3N2IikNCm1hciA8LSByZWFkX2NzdigiZGF0YV9wZW5qdWFsYW5fa3VhcnRhbDFfZnVsbCAtIE1hcmV0LmNzdiIpDQoNCiMgR2FidW5na2FuDQpkYXRhIDwtIGJpbmRfcm93cyhqYW4sIGZlYiwgbWFyKQ0KDQojIDEuIFViYWggZm9ybWF0IHRhbmdnYWwga2UgWVlZWS1NTS1ERA0KZGF0YSA8LSBkYXRhICU+JQ0KICBtdXRhdGUoVGFuZ2dhbCA9IGRteShUYW5nZ2FsKSkNCg0KIyAyLiBVYmFoIEhhcmdhICYgSnVtbGFoIGtlIG51bWVyaWMNCmRhdGEgPC0gZGF0YSAlPiUNCiAgbXV0YXRlKA0KICAgIEhhcmdhID0gcGFyc2VfbnVtYmVyKEhhcmdhKSwNCiAgICBKdW1sYWggPSBwYXJzZV9udW1iZXIoSnVtbGFoKQ0KICApDQoNCiMgMy4gSGl0dW5nIHVsYW5nIGtvbG9tIFRvdGFsDQpkYXRhIDwtIGRhdGEgJT4lDQogIG11dGF0ZShUb3RhbCA9IEhhcmdhICogSnVtbGFoKQ0KDQojIDQuIEJlcnNpaGthbiBuaWxhaSB0aWRhayB2YWxpZA0KbmlsYWlfdGlkYWtfdmFsaWQgPC0gYygiLSIsICJkdWEiLCAiUnAiLCAiX2Fub255bW91c18iLCAiIiwgTkEpDQoNCmRhdGEgPC0gZGF0YSAlPiUNCiAgbXV0YXRlKA0KICAgIFByb2R1ayA9IGlmZWxzZShQcm9kdWsgJWluJSBuaWxhaV90aWRha192YWxpZCwgTkEsIFByb2R1ayksDQogICAgS2F0ZWdvcmkgPSBpZmVsc2UoS2F0ZWdvcmkgJWluJSBuaWxhaV90aWRha192YWxpZCwgTkEsIEthdGVnb3JpKSwNCiAgICBLb3RhID0gaWZlbHNlKEtvdGEgJWluJSBuaWxhaV90aWRha192YWxpZCwgTkEsIEtvdGEpDQogICkNCg0KIyA1LiBIYXB1cyBiYXJpcyB0YW5wYSBuYW1hIHByb2R1aw0KZGF0YSA8LSBkYXRhICU+JQ0KICBmaWx0ZXIoIWlzLm5hKFByb2R1aykgJiBQcm9kdWsgIT0gIiIpDQoNCiMgQ2VrIGhhc2lsIGFraGlyDQpnbGltcHNlKGRhdGEpDQpgYGANCg0KIyMgMy4gRGF0YSBUcmFuc2Zvcm1hdGlvbg0KDQojIyMgVHVqdWFuOg0KU2V0ZWxhaCBkYXRhIGRpYmVyc2loa2FuLCBraXRhIGJpc2EgbXVsYWkgbWVsYWt1a2FuIHRyYW5zZm9ybWFzaSB1bnR1ayBtZW55aWFwa2FuIGRhdGEga2UgdGFoYXAgYW5hbGlzaXMuIERpIHRhaGFwIGluaSwga2l0YSBha2FuOg0KDQotIE1lbmFtYmFoa2FuIGtvbG9tIGJ1bGFuIHRyYW5zYWtzaQ0KLSBNZW5nZWxvbXBva2thbiB0b3RhbCBwZW5qdWFsYW4gcGVyIGthdGVnb3JpDQotIE1lbmdlbG9tcG9ra2FuIGp1bWxhaCB0cmFuc2Frc2kgcGVyIGtvdGENCi0gTWVyaW5na2FzIHRvdGFsIHBlbmp1YWxhbiBwZXIgYnVsYW4NCg0KIyMjIFRyYW5zZm9ybWFzaSBEYXRhDQoNCmBgYHtyIGRhdGEtdHJhbnNmb3JtYXRpb259DQpsaWJyYXJ5KGx1YnJpZGF0ZSkNCmxpYnJhcnkoZHBseXIpDQoNCiMgVHJhbnNmb3JtYXNpIGRhdGENCmRhdGEgPC0gZGF0YSAlPiUNCiAgbXV0YXRlKEJ1bGFuID0gbW9udGgoVGFuZ2dhbCwgbGFiZWwgPSBUUlVFLCBhYmJyID0gRkFMU0UpKSAgIyBUYW1iYWhrYW4ga29sb20gQnVsYW4NCg0KIyBUb3RhbCBwZW5qdWFsYW4gcGVyIGthdGVnb3JpDQpwZW5qdWFsYW5fcGVyX2thdGVnb3JpIDwtIGRhdGEgJT4lDQogIGdyb3VwX2J5KEthdGVnb3JpKSAlPiUNCiAgc3VtbWFyaXNlKFRvdGFsX1Blbmp1YWxhbiA9IHN1bShUb3RhbCwgbmEucm0gPSBUUlVFKSkgJT4lDQogIGFycmFuZ2UoZGVzYyhUb3RhbF9QZW5qdWFsYW4pKQ0KDQojIEp1bWxhaCB0cmFuc2Frc2kgcGVyIGtvdGENCnRyYW5zYWtzaV9wZXJfa290YSA8LSBkYXRhICU+JQ0KICBncm91cF9ieShLb3RhKSAlPiUNCiAgc3VtbWFyaXNlKEp1bWxhaF9UcmFuc2Frc2kgPSBuKCkpICU+JQ0KICBhcnJhbmdlKGRlc2MoSnVtbGFoX1RyYW5zYWtzaSkpDQpgYGANCg0KIyMgVmlzdWFsaXNhc2kgRGF0YQ0KIyMjIDEuIFRvdGFsIFBlbmp1YWxhbiBwZXIgQnVsYW4NCkdyYWZpayBpbmkgbWVudW5qdWtrYW4gdG90YWwgcGVuanVhbGFuIGRhcmkgbWFzaW5nLW1hc2luZyBrYXRlZ29yaSBwcm9kdWsgYmVyZGFzYXJrYW4gZGF0YSBwZW5qdWFsYW4gZ2FidW5nYW4gZGFyaSBidWxhbiBKYW51YXJpIHNhbXBhaSBNYXJldC4NCg0KU2V0aWFwIGJhdGFuZyBtZXdha2lsaSBzYXR1IGthdGVnb3JpLCBkYW4gcGFuamFuZ255YSBtZW51bmp1a2thbiBzZWJlcmFwYSBiZXNhciB0b3RhbCBwZW5qdWFsYW4gZGFyaSBrYXRlZ29yaSB0ZXJzZWJ1dC4gS2F0ZWdvcmkgZGVuZ2FuIGJhdGFuZyBwYWxpbmcgcGFuamFuZyBiZXJhcnRpIG1lbWlsaWtpIGp1bWxhaCBwZW5qdWFsYW4gdGVydGluZ2dpIHNlbGFtYSBrdWFydGFsIHBlcnRhbWEuDQoNCkRlbmdhbiB0YW1waWxhbiBob3Jpem9udGFsIGRhbiB3YXJuYSB5YW5nIGJlcmJlZGEsIGdyYWZpayBpbmkgbWVtdWRhaGthbiBraXRhIHVudHVrIG1lbGloYXQgZGFuIG1lbWJhbmRpbmdrYW4ga2F0ZWdvcmkgbWFuYSB5YW5nIHBhbGluZyBsYXJpcyBkYW4gbWFuYSB5YW5nIHBlbmp1YWxhbm55YSBtYXNpaCByZW5kYWguDQpgYGB7cn0NCiMgTXVhdCBsaWJyYXJ5IHlhbmcgZGlidXR1aGthbg0KIyBQYXN0aWthbiBsaWJyYXJ5IGdncGxvdDIgdGVsYWggZGltdWF0DQpsaWJyYXJ5KGdncGxvdDIpDQoNCiMgVmlzdWFsaXNhc2kgdG90YWwgcGVuanVhbGFuIHBlciBrYXRlZ29yaQ0KZ2dwbG90KHBlbmp1YWxhbl9wZXJfa2F0ZWdvcmksIGFlcyh4ID0gcmVvcmRlcihLYXRlZ29yaSwgVG90YWxfUGVuanVhbGFuKSwgDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHkgPSBUb3RhbF9QZW5qdWFsYW4sIGZpbGwgPSBLYXRlZ29yaSkpICsNCiAgZ2VvbV9iYXIoc3RhdCA9ICJpZGVudGl0eSIsIHdpZHRoID0gMC42KSArICAgICAgICAgICAgICANCiAgY29vcmRfZmxpcCgpICsgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIA0KICBzY2FsZV9maWxsX2JyZXdlcihwYWxldHRlID0gIlNldDIiKSArICAgICAgICAgICAgICAgICAgDQogIGxhYnModGl0bGUgPSAiVG90YWwgUGVuanVhbGFuIHBlciBLYXRlZ29yaSIsDQogICAgICAgc3VidGl0bGUgPSAiR2FidW5nYW4gRGF0YSBQZW5qdWFsYW4gSmFudWFyaeKAk01hcmV0IiwNCiAgICAgICB4ID0gIkthdGVnb3JpIFByb2R1ayIsDQogICAgICAgeSA9ICJUb3RhbCBQZW5qdWFsYW4gKFJwKSIpICsNCiAgdGhlbWVfbWluaW1hbChiYXNlX3NpemUgPSAxNikgKyAgICAgICAgICAgICAgICAgICAgICAgICANCiAgdGhlbWUoDQogICAgcGxvdC50aXRsZSA9IGVsZW1lbnRfdGV4dChmYWNlID0gImJvbGQiLCBzaXplID0gMjIpLCAgIA0KICAgIHBsb3Quc3VidGl0bGUgPSBlbGVtZW50X3RleHQoc2l6ZSA9IDE2LCBtYXJnaW4gPSBtYXJnaW4oYiA9IDEwKSksDQogICAgYXhpcy50aXRsZSA9IGVsZW1lbnRfdGV4dChmYWNlID0gImJvbGQiLCBzaXplID0gMTYpLA0KICAgIGxlZ2VuZC5wb3NpdGlvbiA9ICJub25lIiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIA0KICApDQpgYGANCg==