Tekrar - Hisse Senedi Masası

Coddy'nin R Journey'sinin Mantık ve Akış bölümünün bir parçası. Ders 11 / 64.

Görev

Orta

process_orders(stock, orders) işlevini tamamla. Siparişleri sırayla işle ve her biri için bir satır döndür:

Ürün stock içinde olmadığında unknown <item>
Miktarı 0 olduğunda out of <item>
Diğer durumlarda sold <item> ve miktarı 1 azalır

Siparişlerden sonra, stoktaki her ürün için alfabetik sırayla bir satır ekle: <item>: <quantity>.

Sağlanan kod, stoğu name=quantity çiftleri olarak ve siparişleri virgülle ayrılmış bir satır olarak okur ve döndürülen her satırı yazdırır.

Kendin dene

process_orders <- function(stock, orders) {
  # Kodunuzu buraya yazın
  character(0)
}

# Sağlanan girdi/çıktı kodu: olduğu gibi bırakın
input <- suppressWarnings(readLines(file("stdin")))
stock <- c()
for (pair in strsplit(input[1], ",")[[1]]) {
  kv <- strsplit(pair, "=")[[1]]
  stock[kv[1]] <- as.numeric(kv[2])
}
cat(process_orders(stock, strsplit(input[2], ",")[[1]]), sep = "\n")