Nothing
rm(list=ls())
assert('function_type_1', {
seq.gen(start) %::% a : Function
seq.gen(start) %as%
{
value <- start - 1
function() {
value <<- value + 1
return(value)
}
}
seal(seq.gen)
act <- seq.gen(1)
('function' %in% class(act))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.