xref: /freebsd/contrib/bc/tests/bc/print2.txt (revision 3aa99676)
1*3aa99676SStefan Eßerdefine prnt(i) {
2*3aa99676SStefan Eßer
3*3aa99676SStefan Eßer	obase = i - 1
4*3aa99676SStefan Eßer	a
5*3aa99676SStefan Eßer	b
6*3aa99676SStefan Eßer	c
7*3aa99676SStefan Eßer
8*3aa99676SStefan Eßer	obase = i
9*3aa99676SStefan Eßer	a
10*3aa99676SStefan Eßer	b
11*3aa99676SStefan Eßer	c
12*3aa99676SStefan Eßer
13*3aa99676SStefan Eßer	return i
14*3aa99676SStefan Eßer}
15*3aa99676SStefan Eßer
16*3aa99676SStefan Eßerdefine prnt2(i) {
17*3aa99676SStefan Eßer
18*3aa99676SStefan Eßer	obase = i + 1
19*3aa99676SStefan Eßer	a
20*3aa99676SStefan Eßer	b
21*3aa99676SStefan Eßer	c
22*3aa99676SStefan Eßer
23*3aa99676SStefan Eßer	print "\n"
24*3aa99676SStefan Eßer
25*3aa99676SStefan Eßer	return i * 10
26*3aa99676SStefan Eßer}
27*3aa99676SStefan Eßer
28*3aa99676SStefan Eßera = 999999999999999999999999999999999999
29*3aa99676SStefan Eßerb = a + 1
30*3aa99676SStefan Eßerc = b + 1
31*3aa99676SStefan Eßer
32*3aa99676SStefan Eßeri = 100
33*3aa99676SStefan Eßeri = prnt(i)
34*3aa99676SStefan Eßer
35*3aa99676SStefan Eßerif (i + 1 <= maxobase()) {
36*3aa99676SStefan Eßer	i = prnt2(i)
37*3aa99676SStefan Eßer}
38*3aa99676SStefan Eßerelse {
39*3aa99676SStefan Eßer	print " 084 044 021 047 096 073 015 052 088 014 072 097 047 021 094 051 083\e\n 000\n"
40*3aa99676SStefan Eßer	print " 084 044 021 047 096 073 015 052 088 014 072 097 047 021 094 051 083\e\n 001\n"
41*3aa99676SStefan Eßer	print " 084 044 021 047 096 073 015 052 088 014 072 097 047 021 094 051 083\e\n 002\n"
42*3aa99676SStefan Eßer	print "\n"
43*3aa99676SStefan Eßer	i *= 10
44*3aa99676SStefan Eßer}
45*3aa99676SStefan Eßer
46*3aa99676SStefan Eßerif (i <= maxobase()) {
47*3aa99676SStefan Eßer	i = prnt(i)
48*3aa99676SStefan Eßer}
49*3aa99676SStefan Eßerelse {
50*3aa99676SStefan Eßer	print " 001 012 066 220 495 792 924 792 495 220 066 012 000\n"
51*3aa99676SStefan Eßer	print " 001 012 066 220 495 792 924 792 495 220 066 012 001\n"
52*3aa99676SStefan Eßer	print " 001 012 066 220 495 792 924 792 495 220 066 012 002\n"
53*3aa99676SStefan Eßer	print " 999 999 999 999 999 999 999 999 999 999 999 999\n"
54*3aa99676SStefan Eßer	print " 001 000 000 000 000 000 000 000 000 000 000 000 000\n"
55*3aa99676SStefan Eßer	print " 001 000 000 000 000 000 000 000 000 000 000 000 001\n"
56*3aa99676SStefan Eßer}
57*3aa99676SStefan Eßer
58*3aa99676SStefan Eßerif (i + 1 <= maxobase()) {
59*3aa99676SStefan Eßer	i = prnt2(i)
60*3aa99676SStefan Eßer}
61*3aa99676SStefan Eßerelse {
62*3aa99676SStefan Eßer	print " 0989 0065 0781 0494 0209 0923 0209 0494 0781 0065 0989 0000\n"
63*3aa99676SStefan Eßer	print " 0989 0065 0781 0494 0209 0923 0209 0494 0781 0065 0989 0001\n"
64*3aa99676SStefan Eßer	print " 0989 0065 0781 0494 0209 0923 0209 0494 0781 0065 0989 0002\n"
65*3aa99676SStefan Eßer	print "\n"
66*3aa99676SStefan Eßer	i *= 10
67*3aa99676SStefan Eßer}
68*3aa99676SStefan Eßer
69*3aa99676SStefan Eßerif (i <= maxobase()) {
70*3aa99676SStefan Eßer	i = prnt(i)
71*3aa99676SStefan Eßer}
72*3aa99676SStefan Eßerelse {
73*3aa99676SStefan Eßer	print " 0001 0009 0036 0084 0126 0126 0084 0036 0009 0000\n"
74*3aa99676SStefan Eßer	print " 0001 0009 0036 0084 0126 0126 0084 0036 0009 0001\n"
75*3aa99676SStefan Eßer	print " 0001 0009 0036 0084 0126 0126 0084 0036 0009 0002\n"
76*3aa99676SStefan Eßer	print " 9999 9999 9999 9999 9999 9999 9999 9999 9999\n"
77*3aa99676SStefan Eßer	print " 0001 0000 0000 0000 0000 0000 0000 0000 0000 0000\n"
78*3aa99676SStefan Eßer	print " 0001 0000 0000 0000 0000 0000 0000 0000 0000 0001\n"
79*3aa99676SStefan Eßer}
80*3aa99676SStefan Eßer
81*3aa99676SStefan Eßerif (i + 1 <= maxobase()) {
82*3aa99676SStefan Eßer	i = prnt2(i)
83*3aa99676SStefan Eßer}
84*3aa99676SStefan Eßerelse {
85*3aa99676SStefan Eßer	print " 09992 00035 09917 00125 09875 00083 09965 00008 09999\n"
86*3aa99676SStefan Eßer	print " 09992 00035 09917 00125 09875 00083 09965 00008 10000\n"
87*3aa99676SStefan Eßer	print " 09992 00035 09917 00125 09875 00083 09965 00009 00000\n"
88*3aa99676SStefan Eßer	print "\n"
89*3aa99676SStefan Eßer	i *= 10
90*3aa99676SStefan Eßer}
91*3aa99676SStefan Eßer
92*3aa99676SStefan Eßerif (i <= maxobase()) {
93*3aa99676SStefan Eßer	i = prnt(i)
94*3aa99676SStefan Eßer}
95*3aa99676SStefan Eßerelse {
96*3aa99676SStefan Eßer	print " 00010 00070 00210 00350 00350 00210 00070 00009\n"
97*3aa99676SStefan Eßer	print " 00010 00070 00210 00350 00350 00210 00070 00010\n"
98*3aa99676SStefan Eßer	print " 00010 00070 00210 00350 00350 00210 00070 00011\n"
99*3aa99676SStefan Eßer	print " 00009 99999 99999 99999 99999 99999 99999 99999\n"
100*3aa99676SStefan Eßer	print " 00010 00000 00000 00000 00000 00000 00000 00000\n"
101*3aa99676SStefan Eßer	print " 00010 00000 00000 00000 00000 00000 00000 00001\n"
102*3aa99676SStefan Eßer}
103*3aa99676SStefan Eßer
104*3aa99676SStefan Eßerif (i + 1 <= maxobase()) {
105*3aa99676SStefan Eßer	i = prnt2(i)
106*3aa99676SStefan Eßer}
107*3aa99676SStefan Eßerelse {
108*3aa99676SStefan Eßer	print " 000009 099931 000209 099651 000349 099791 000069 099990\n"
109*3aa99676SStefan Eßer	print " 000009 099931 000209 099651 000349 099791 000069 099991\n"
110*3aa99676SStefan Eßer	print " 000009 099931 000209 099651 000349 099791 000069 099992\n"
111*3aa99676SStefan Eßer	print "\n"
112*3aa99676SStefan Eßer	i *= 10
113*3aa99676SStefan Eßer}
114*3aa99676SStefan Eßer
115*3aa99676SStefan Eßerif (i <= maxobase()) {
116*3aa99676SStefan Eßer	i = prnt(i)
117*3aa99676SStefan Eßer}
118*3aa99676SStefan Eßerelse {
119*3aa99676SStefan Eßer	print " 000001 000006 000015 000020 000015 000006 000000\n"
120*3aa99676SStefan Eßer	print " 000001 000006 000015 000020 000015 000006 000001\n"
121*3aa99676SStefan Eßer	print " 000001 000006 000015 000020 000015 000006 000002\n"
122*3aa99676SStefan Eßer	print " 999999 999999 999999 999999 999999 999999\n"
123*3aa99676SStefan Eßer	print " 000001 000000 000000 000000 000000 000000 000000\n"
124*3aa99676SStefan Eßer	print " 000001 000000 000000 000000 000000 000000 000001\n"
125*3aa99676SStefan Eßer}
126*3aa99676SStefan Eßer
127*3aa99676SStefan Eßerif (i + 1 <= maxobase()) {
128*3aa99676SStefan Eßer	i = prnt2(i)
129*3aa99676SStefan Eßer}
130*3aa99676SStefan Eßerelse {
131*3aa99676SStefan Eßer	print " 0999995 0000014 0999981 0000014 0999995 0000000\n"
132*3aa99676SStefan Eßer	print " 0999995 0000014 0999981 0000014 0999995 0000001\n"
133*3aa99676SStefan Eßer	print " 0999995 0000014 0999981 0000014 0999995 0000002\n"
134*3aa99676SStefan Eßer	print "\n"
135*3aa99676SStefan Eßer	i *= 10
136*3aa99676SStefan Eßer}
137*3aa99676SStefan Eßer
138*3aa99676SStefan Eßerif (i <= maxobase()) {
139*3aa99676SStefan Eßer	i = prnt(i)
140*3aa99676SStefan Eßer}
141*3aa99676SStefan Eßerelse {
142*3aa99676SStefan Eßer	print " 0000010 0000050 0000100 0000100 0000050 0000009\n"
143*3aa99676SStefan Eßer	print " 0000010 0000050 0000100 0000100 0000050 0000010\n"
144*3aa99676SStefan Eßer	print " 0000010 0000050 0000100 0000100 0000050 0000011\n"
145*3aa99676SStefan Eßer	print " 0000009 9999999 9999999 9999999 9999999 9999999\n"
146*3aa99676SStefan Eßer	print " 0000010 0000000 0000000 0000000 0000000 0000000\n"
147*3aa99676SStefan Eßer	print " 0000010 0000000 0000000 0000000 0000000 0000001\n"
148*3aa99676SStefan Eßer}
149*3aa99676SStefan Eßer
150*3aa99676SStefan Eßerif (i + 1 <= maxobase()) {
151*3aa99676SStefan Eßer	i = prnt2(i)
152*3aa99676SStefan Eßer}
153*3aa99676SStefan Eßerelse {
154*3aa99676SStefan Eßer	print " 00000009 09999951 00000099 09999901 00000049 09999990\n"
155*3aa99676SStefan Eßer	print " 00000009 09999951 00000099 09999901 00000049 09999991\n"
156*3aa99676SStefan Eßer	print " 00000009 09999951 00000099 09999901 00000049 09999992\n"
157*3aa99676SStefan Eßer	print "\n"
158*3aa99676SStefan Eßer	i *= 10
159*3aa99676SStefan Eßer}
160*3aa99676SStefan Eßer
161*3aa99676SStefan Eßerif (i <= maxobase()) {
162*3aa99676SStefan Eßer	i = prnt(i)
163*3aa99676SStefan Eßer}
164*3aa99676SStefan Eßerelse {
165*3aa99676SStefan Eßer	print " 00010000 00040000 00060000 00040000 00009999\n"
166*3aa99676SStefan Eßer	print " 00010000 00040000 00060000 00040000 00010000\n"
167*3aa99676SStefan Eßer	print " 00010000 00040000 00060000 00040000 00010001\n"
168*3aa99676SStefan Eßer	print " 00009999 99999999 99999999 99999999 99999999\n"
169*3aa99676SStefan Eßer	print " 00010000 00000000 00000000 00000000 00000000\n"
170*3aa99676SStefan Eßer	print " 00010000 00000000 00000000 00000000 00000001\n"
171*3aa99676SStefan Eßer}
172*3aa99676SStefan Eßer
173*3aa99676SStefan Eßerif (i + 1 <= maxobase()) {
174*3aa99676SStefan Eßer	i = prnt2(i)
175*3aa99676SStefan Eßer}
176*3aa99676SStefan Eßerelse {
177*3aa99676SStefan Eßer	print " 000009999 099960001 000059999 099960001 000009999\n"
178*3aa99676SStefan Eßer	print " 000009999 099960001 000059999 099960001 000010000\n"
179*3aa99676SStefan Eßer	print " 000009999 099960001 000059999 099960001 000010001\n"
180*3aa99676SStefan Eßer	print "\n"
181*3aa99676SStefan Eßer	i *= 10
182*3aa99676SStefan Eßer}
183*3aa99676SStefan Eßer
184*3aa99676SStefan Eßerif (i <= maxobase()) {
185*3aa99676SStefan Eßer	i = prnt(i)
186*3aa99676SStefan Eßer}
187*3aa99676SStefan Eßerelse {
188*3aa99676SStefan Eßer	print " 000000001 000000004 000000006 000000004 000000000\n"
189*3aa99676SStefan Eßer	print " 000000001 000000004 000000006 000000004 000000001\n"
190*3aa99676SStefan Eßer	print " 000000001 000000004 000000006 000000004 000000002\n"
191*3aa99676SStefan Eßer	print " 999999999 999999999 999999999 999999999\n"
192*3aa99676SStefan Eßer	print " 000000001 000000000 000000000 000000000 000000000\n"
193*3aa99676SStefan Eßer	print " 000000001 000000000 000000000 000000000 000000001\n"
194*3aa99676SStefan Eßer}
195