f <- function(a=0){ ifelse(a<10,a+f(a+1),a); } (f())
Standard input is empty
[1] 55
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!