while loop

[jackdan (Sean)]

#Find maximum n such that 1+2+3+...+n≦S

tmp<-function(S)
{
  sum=0
  counter=1

  while(sum<=S)
  {
    sum=sum+counter
    if(sum<=S) counter=counter+1
  }

  cat(counter-1, "\n")
}

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 140.115.45.117