32 lines
530 B
C++
32 lines
530 B
C++
|
//-----------------------------------------------------------------------------
|
||
|
//
|
||
|
// Look up the nth prime
|
||
|
//
|
||
|
// Input: n on stack (0 < n < 10001)
|
||
|
//
|
||
|
// Output: nth prime on stack
|
||
|
//
|
||
|
//-----------------------------------------------------------------------------
|
||
|
|
||
|
#include "stdafx.h"
|
||
|
#include "defs.h"
|
||
|
|
||
|
void
|
||
|
eval_prime(void)
|
||
|
{
|
||
|
push(cadr(p1));
|
||
|
eval();
|
||
|
prime();
|
||
|
}
|
||
|
|
||
|
void
|
||
|
prime(void)
|
||
|
{
|
||
|
int n;
|
||
|
n = pop_integer();
|
||
|
if (n < 1 || n > MAXPRIMETAB)
|
||
|
stop("prime: Argument out of range.");
|
||
|
n = primetab[n - 1];
|
||
|
push_integer(n);
|
||
|
}
|