fork download 
  1. Q <- list(
  2.     c(1, 100, 10, 10000, 1000),
  3.     c(3, 1, 4, 1, 5, 9, 2),
  4.     c(0, 4, 1, 5, 2, 6, 3, 7)
  5. )
  6.  
  7. for (q in Q) {
  8.     cat("入力:", q, "\n")
  9.     cat("出力:", rank(q, ties.method = "first") - 1, "\n")
  10.     cat("\n")
  11. }
Success #stdin #stdout 0.3s 41000KB
comments (?)
stdin 
Standard input is empty
stdout 
入力: 1 100 10 10000 1000 
出力: 0 2 1 4 3 

入力: 3 1 4 1 5 9 2 
出力: 3 0 4 1 5 6 2 

入力: 0 4 1 5 2 6 3 7 
出力: 0 4 1 5 2 6 3 7
https://ideone.com/ctaQC5
language:
R (R 3.5.2)
created:
55 days ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!