Joe Kerrigan joek13

I hereby claim:

To claim this, I am signing this object:

	library(shiny)

	ui <- fluidPage(
	numericInput(inputId = "n", "Sample size", value = 25),
	plotOutput(outputId="hist")
	)

	server <- function (input, output) {
	output$hist <- renderPlot ({hist(rnorm(input$n))})
	}

	public class MyProgram
	{
	public static void main(String[] args) throws RuntimeException
	{
	Triangle[] triangles = new Triangle[] {
	new Triangle(1,1,1),
	new Triangle(3,3,5),
	new Triangle(8,9,8),
	new Triangle(2,2,2),
	};

	if let Some(value_or_func) = scope.find(&expression.function) {
	if let &ValueOrFunc::Func(ref func) = value_or_func {
	match *func {
	Func::Builtin(f) => {
	return f(scope, expression.parameters);
	}
	Func::UserDefined(ref block) => Ok(Value::Nil),
	}
	} else {
	return Err(format!("'{}' is not callable", expression.function));