1 | #-----------------------------------------------------------------------------
|
2 | #
|
3 | # Look up the nth prime
|
4 | #
|
5 | # Input: n on stack (0 < n < 10001)
|
6 | #
|
7 | # Output: nth prime on stack
|
8 | #
|
9 | #-----------------------------------------------------------------------------
|
10 |
|
11 | Eval_prime = ->
|
12 | push(cadr(p1))
|
13 | Eval()
|
14 | prime()
|
15 |
|
16 | prime = ->
|
17 | n = 0
|
18 | n = pop_integer()
|
19 | if (n < 1 || n > MAXPRIMETAB)
|
20 | stop("prime: Argument out of range.")
|
21 | n = primetab[n - 1]
|
22 | push_integer(n)
|