[R] 재미삼아 푸는 문제

###연습 문제 4
#for 반복문과 문자열 연산, if 조건문을 사용하여 다음과 같이 인쇄한다.
  #      * 
  #     ***
  #    *****
  #   *******
  #  *********
  # ***********
  #  *********
  #   *******
  #    *****
  #     ***
  #      *

 

 

답안

 

#case 1
 for(t in c(0:4,5:0)){
  k=paste0(rep(' ',11),collapse = '')
  substr(k,6-3,6+3)=paste0(rep('*',seq(1,11,2)[3+1]),collapse = '')
  print(k)
}

#case 2
t=-5:5
for(tt in c(0:4,5:0)){
  k=rep(' ',11)
  k[abs(t)<=tt]='*'
  print(paste0(k,collapse = ''))
}

#case 3

 

t=-5:5;k=0
for(k in c(0:5,4:0))
print(paste0(
  paste0(paste0(rep(' ',abs(t)[1]-k),collapse = ''),paste0(rep('*',k),collapse = ''),collapse = ''),'*',
  paste0(paste0(rep('*',k),collapse = ''),paste0(rep(' ',abs(t)[1]-k),collapse = ''),collapse = '')
))

 

#case 4

 

for(t in -5:5){
  temp=rep(' ',abs(t))
  while(length(temp)<5){
    temp=c(temp,'*')
  }
  print(paste0(c(paste0(temp,collapse =''),'*',paste0(rev(temp),collapse ='')),collapse = ''))
}