fork download
copy 
  1.  
  2.  
  3. # ＆演算子の定義
  4. "&" <- function(e1, e2) {
  5.     if (is.character(c(e1, e2))) {
  6.         paste(e1, e2, sep = "")
  7.     } else {
  8.         base::"&"(e1, e2)
  9.     }
  10. }
  11.  
  12. A<-list("hana","bitai","kai")
  13.  
  14. do.call(function(u){
  15.   f<-character()
  16.   for(i in u){
  17.  
  18.  
  19. # 普通は、以下のようにして結合します
  20. #    f<-paste(f , i,sep ="")
  21.  
  22. # & 演算子を定義すればこれでもOK
  23.     f<-f & i
  24.  
  25. # +　は文字列に対しては未定義の演算子なので使えない
  26. #    f<-f + i
  27.   }
  28. return(f)
  29. },list(A)
  30. )
  31.  
  32. # your code goes here
Success #stdin #stdout 0.21s 39464KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
[1] "hanabitaikai"
https://ideone.com/5dsowm
language:
R (R 3.5.2)
created:
2 years ago
visibility:
public

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!