blob: f00a2e8c8f7011419ce8ad101d18c12051a3529b (
plain) (
blame)
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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
\newcount\a
\newcount\b
\newcount\c
\newcount\n
\newcount\p
\newcount\q
\def\div#1#2#3{%
\ifnum#1>#2 %
\advance#1 by-#2 %
\div{#1}{#2}{#3}%
\else%
\ifnum#1=#2 %
#3=1%
\else%
#3=0%
\fi%
\fi%
}
\long\def\isprime#1#2#3{%
#3=0%
\ifnum#1>#2 %
\a=#1 %
\div{\a}{#2}{\c} %
\ifnum\c=0 %
\b=#2 %
\advance\b by 1 %
\isprime{#1}{\the\b}{#3}%
\fi%
\else%
#1\par%
#3=1%
\fi%
}
\def\listprimes#1#2#3#4{%
\isprime{\the#1}{2}{#4} %
\ifnum#4=1 %
\the#1\par %
\advance#2 by 1 %
\fi
\ifnum#2<#3 %
\advance#1 by 1 %
\listprimes{#1}{#2}{#3}{#4} %
\fi
}
\n=0
\p=2
\listprimes{\p}{\n}{10}{\q}
\end
|
