fork download
copy 
  1. c <- c("赤黒黄", "緑白青")
  2. s <- "緑のカバンに500万入れて白の紙で黄色のカバン言うて書きながら赤のカバン言いながら置いてくれたら俺黒のカバン言いながら取りに行くわ"
  3. cat(sprintf("入力: %s\n", s))
  4. cat(sprintf("出力: %s\n", chartr(paste(c, collapse = ""), paste(rev(c), collapse = ""), s)))
Success #stdin #stdout 0.25s 39320KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
入力: 緑のカバンに500万入れて白の紙で黄色のカバン言うて書きながら赤のカバン言いながら置いてくれたら俺黒のカバン言いながら取りに行くわ
出力: 赤のカバンに500万入れて黒の紙で青色のカバン言うて書きながら緑のカバン言いながら置いてくれたら俺白のカバン言いながら取りに行くわ
https://ideone.com/FCPqvY
language:
R (R 3.5.2)
created:
233 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!