summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/plain/gustlib/licz/licz-tst.mex
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