1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
###
### $Id: primes.R 22 2022-05-30 18:03:47Z proebuck $
###
##-----------------------------------------------------------------------------
test.primes <- function(input, expected) {
output <- do.call(getFromNamespace("primes", "matlab"), input)
identical(output, expected)
}
primes.expected.101 <- c( 2, 3, 5, 7, 11,
13, 17, 19, 23, 29,
31, 37, 41, 43, 47,
53, 59, 61, 67, 71,
73, 79, 83, 89, 97, 101)
primes.expected.n37 <- primes.expected.101[1:12]
primes.expected.n13 <- primes.expected.101[1:6]
primes.expected.n8 <- c(2, 3, 5, 7)
primes.expected.n5 <- c(2, 3, 5)
primes.expected.n3 <- c(2, 3)
primes.expected.n2 <- 2
primes.expected.n1 <- NULL
test.primes(list(n=1), primes.expected.n1)
test.primes(list(n=2), primes.expected.n2)
test.primes(list(n=3), primes.expected.n3)
test.primes(list(n=5), primes.expected.n5)
test.primes(list(n=8), primes.expected.n8)
test.primes(list(n=13), primes.expected.n13)
test.primes(list(n=37), primes.expected.n37)
test.primes(list(n=101), primes.expected.101)
|
