blob: dc20aa7dc77d7d11f010e7ec1cc103959bac397e (
plain)
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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
|
% Test zestawu makr LICZ (Mazovia)
% wersja 4.0
% 27.04.96 19:49
\input licz.mex
\let\ad\advance
\def\tl
% testline
#1%
{%
\edef\s’ownie{\licz{#1}}%
\item{\bf\number#1}(\s’ownie)\endgraf
\immediate\write16{\number#1}%
}
\def\tloop
#1% from
#2% step
#3% to
{{%
\n #1\relax
\k #3\relax \ad\k1
\loop
\tl\n
\ad\n#2\relax
\ifnum\n<\k
\repeat
}}
\newcount\n
\newcount\k
\let\rm\fiverm
\font\bf plbx5
\baselineskip7pt
\rm
\raggedright
\nopagenumbers
\raggedbottom
\vsize9.9in
\parindent1.5cm
\def\test
{%
\liczspace{ }
\tl{1}
\tl{12}
\tl{20}
\tl{21}
\tl{34}
\tl{234}
\tl{123}
\tl{1234}
\tl{12345}
\tl{1234546}
\tl{12345678}
\tl{123456789}
\tl{1234567891}
\bigskip
najmniejsza liczba w \TeX-u:
\tl{-2147483647}
najwi‘ksza liczba w \TeX-u:
\tl{2147483647}
\bigskip
{%
\tloop
{1}
{1}
{250}
}
\bigskip
\liczspace{\=}
\tl{1001001001}
\tl{1000000001}
\tl{1000000000}
\tl{1000030000}
\bigskip
{\liczspace{\hrulefill}
\line{\licz{174568}}}
\liczspace{ }
\message{12345 = \licz{12345}}
\vfill
\eject
}
\prefixing
\test
\nonprefixing
\test
\end
|