upload ABC398

Author: yui-amai

ABC398/A_0322.R

@@ -0,0 +1,22 @@
+N <- scan("stdin", what = integer(), nmax=1, quiet = TRUE)
+moji <- function(){
+  if (N %% 2 == 1){
+   for (i in 1:N){
+      if (i == (N+1)/2) {
+        cat("=")
+      } else {
+        cat ("-")
+      }
+     } 
+  } else {
+     for (i in 1:N){
+     if (i == N/2 | i== N / 2 + 1){
+       cat("=")
+     } else {
+       cat("-")
+       }
+     }
+    }
+  cat("\n")
+}
+moji()

ABC398/B_0322.R

@@ -0,0 +1,15 @@
+input <- scan("stdin", what = integer(), nmax= 7, quiet = TRUE)
+full <- function(){
+  freq_input <- table(input)
+  freq <- as.numeric(freq_input)
+  if (any(freq == 3) && any(freq == 2) | 
+      any(freq == 4) && any(freq == 2) | 
+      any(freq == 5) && any(freq == 2) | 
+      sum(freq == 3) == 2 && any(freq == 1) | 
+      any(freq == 4) && any(freq == 3)){
+    cat("Yes\n")
+  } else {
+    cat("No\n")
+  }
+}
+full()

ABC398/C_0322.R

@@ -0,0 +1,17 @@
+input <- scan("stdin", what = integer(), quiet = TRUE)
+uniqueness <- function(){
+  n <- input[1]
+  n_list <- input[2:(n + 1)]
+  freq_nlist <- table(n_list)
+  freq <- as.numeric(freq_nlist)
+  if (any(freq == 1)){
+    unique <- as.numeric(names(freq_nlist[freq_nlist == 1]))
+    max_unique <- max(unique)
+    index_max <- which(n_list == max_unique)
+    cat(index_max,"\n")
+  } else{
+    cat("-1\n")
+  }
+}
+uniqueness()
+