| 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)
|