algebrite/sources/prime.coffee

Computer Algebra System in Coffeescript

#-----------------------------------------------------------------------------
#
#	Look up the nth prime
#
#	Input:		n on stack (0 < n < 10001)
#
#	Output:		nth prime on stack
#
#-----------------------------------------------------------------------------

Eval_prime = ->
	push(cadr(p1))
	Eval()
	prime()

prime = ->
	n = 0
	n = pop_integer()
	if (n < 1 || n > MAXPRIMETAB)
		stop("prime: Argument out of range.")
	n = primetab[n - 1]
	push_integer(n)