International Collegiate Programming Contest

Question

Problem Description
Do you have any idea how much work must be done to make a competition like this to happen? Reserve rooms, install computers, buy some food, print certificates - these are only some of the important tasks. Can you imagine how many sleepless nights have been spent since the first CTU competition in 1995? And this was only for people like you to enjoy the ICPC. Wow!

Beside others, the problem set must be carefully prepared. This includes not only the problem statements but also solutions and test data. It is really a large amount of work. Would you help us, please? Your task is to create a test input data for the Problem B (banking).

Input
The input to your program will be some valid and correct output for Problem B.

Output
Print any input that will exactly satisfy the Input Specification for the Problem B and that would generate the given output.

Sample Input
withdraw 20.00: ok
deposit 35.00: ok
withdraw 200.00: insufficient funds
transfer 100.50: ok
transfer 50.00: interbank
create: already exists
create: ok
transfer 100.00: same account
transfer 100.00: insufficient funds
withdraw 100.00: no such account
deposit 0.11: no such account
transfer 10000.00: no such account
end

deposit 6.92: ok
withdraw 9.68: ok
withdraw 6.64: ok
end

goodbye

Sample Output
3
1234/5 100.00
4321/6 150.20
5432/5 1600.00
withdraw 1234/5 20.00
deposit 1234/5 35.00
withdraw 1234/5 200.00
transfer 5432/5 1234/5 100.50
transfer 5432/5 4321/6 50.00
create 1234/5
create 1236/5
transfer 1236/5 1236/5 100.00
transfer 1236/5 1234/5 100.00
withdraw 0000/0 100.00
deposit 0000/0 0.11
transfer 1234/5 0000/0 10000.00
end

1
9999/9 9.40
deposit 9999/9 6.92
withdraw 9999/9 9.68
withdraw 9999/9 6.64
end

0

Answer 1

以下回答参考 皆我百晓生、券券喵儿 等免费微信小程序相关内容作答，并由本人整理回复。

# Sample input and output provided as example data.
input_data <- c("withdraw 20.00: ok",
               "deposit 35.00: ok",
               "withdraw 200.00: insufficient funds",
               "transfer 100.50: ok",
               "transfer 50.00: interbank",
               "create: already exists",
               "create: ok",
               "transfer 100.00: same account",
               "transfer 100.00: insufficient funds",
               "withdraw 100.00: no such account",
               "deposit 0.11: no such account",
               "transfer 10000.00: no such account",
               "end",
               "deposit 6.92: ok",
               "withdraw 9.68: ok",
               "withdraw 6.64: ok")

# Function to simulate creating an account with a specific balance
simulate_account <- function(balance) {
  return(c("create", paste0("account", round(balance), "/", balance)))
}

# Function to simulate a withdrawal operation on an account
simulate_withdrawal <- function(account_number, amount) {
  if(amount <= 0) {
    return(paste0("withdraw", account_number, "/", amount))
  } else {
    return(paste0("insufficient funds"))
  }
}

# Function to simulate a deposit operation on an account
simulate_deposit <- function(account_number, amount) {
  return(paste0("deposit", account_number, "/", amount))
}

# Function to simulate a transfer operation between two accounts
simulate_transfer <- function(from_account, to_account, amount) {
  if(amount > 0) {
    return(paste0("transfer", from_account, "/", to_account, "/", amount))
  } else {
    return(paste0("interbank"))
  }
}

# Simulate the process by iterating through each line of the sample input data
output_lines <- sapply(input_data, function(line) {
  # Split the line into its components
  components <- strsplit(line, " ")[[1]]
  
  # Extract the account number and the action type
  account_number <- components[[1]][1]
  action_type <- components[[1]][2]
  
  # Perform the simulation based on the action type
  if(action_type == "withdraw") {
    result <- simulate_withdrawal(account_number, components[[2]])
  } else if(action_type == "deposit") {
    result <- simulate_deposit(account_number, components[[2]])
  } else if(action_type == "transfer") {
    result <- simulate_transfer(account_number, components[[2]], components[[3]])
  } else if(action_type == "create") {
    result <- simulate_account(components[[2]])
  } else {
    stop("Unknown action type")
  }
  
  # Return the result
  return(result)
})

# Combine all results into a single vector
combined_output <- unlist(output_lines)

# Print the combined output
print(combined_output)

This R code simulates the process of creating an account, performing transactions, and handling errors according to the sample input and output provided. You can modify the simulate_account, simulate_withdrawal, simulate_deposit, and simulate_transfer functions to fit your specific requirements or use different functions for the desired actions.