R4fun之文字竖排

在Crossin的编程教室中看到一则文字竖排的题目(http://chuansong.me/n/265078)

于是思量着应该如何实现，就顺手写了个R实现的demo以供借鉴

<span style="font-size:18px;">verticalP<-function(str,row){
  len=nchar(str)
  if(len%%row!=0){
    column=len%/%row+1
  }else{
    column=len%/%row
  }
  sum=column*row
  chars=c(strsplit(str,"")[[1]],rep(' ',sum-len))
  mat=matrix(chars,ncol=column)
  pivot=column%/%2
  for(i in seq(pivot)){
    temp=mat[,i]
    mat[,i]=mat[,column-i+1]
    mat[,column-i+1]=temp
  }
  result=apply(mat,1,paste,collapse='|')
  cat(result,sep='\n')
}</span>

经测试尚可运行良好