pract2c.R

factorial=function(n)
{
  fact=1
  for(i in 1:n){
    fact=fact*i}
  paste("factorial",fact)
}

  reverse=function(n){
    r=0
    while(as.integer(n)>0){
      r=r*10 + as.integer(n)%%10  
      n=as.integer(n)/10
      print(r)
    }
    paste("Reverse",r)}
reverse(123)

## [1] 3
## [1] 32
## [1] 321

## [1] "Reverse 321"