life <- function( luck=10 , ... ) {
if ( runif(1) > 1/(luck+1.001) ) {
cat( "push stone uphill... " )
} else {
cat( "\nstone rolls to bottom\n" )
}
life( luck , ... )
}
Or maybe you prefer a life with less hard labor, and with more philosophy:
life <- function( luck=10 , ... ) {
if (runif(1)>1/(luck+1.001)){cat("?")}else{cat("\n")}
life( luck , ... )
}
life()
Either way, R replies with wisdom:
Error: evaluation nested too deeply
Suitable for framing?
