1 2 /* Include file lisp_bignum_io_data.incl.pl1 3 13 Jan 1973, dam 4 This files defines constant arrays needed by the bignum 5 reader and printer. 6 digsperwd is the maximum number of digits that can fit in 7 35 bits, indexed by the radix. 8 bigradix is the radix**digsperwd, indexed by the radix 9 It is used as the multiplier for converting an array 10 of small nums into a bignum, or the divisor for converting 11 a bignum into an array of small nums */ 12 13 dcl digsperwd (2:36) static fixed binary initial ( 14 34, 22, 17, 15, 13, 12, 11, 11, 10, 15 10, 9, 9, 9, 8, 8, 8, 8, 8, 8, 16 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 17 7, 6, 6, 6, 6, 6), 18 bigradix(2:36) fixed binary(35) static initial ( 19 17179869184, /* 2**34 */ 20 31381059609, /* 3**22 */ 21 17179869184, /* 4**17 */ 22 30517578125, /* 5**15 */ 23 13060694016, /* 6**13 */ 24 13841287201, /* 7**12 */ 25 8589934592, /* 8**11 */ 26 31381059609, /* 9**11 */ 27 10000000000, /* 10**10 */ 28 25937424601, /* 11**10 */ 29 5159780352, /* 12**9 */ 30 10604499373, /* 13**9 */ 31 20661046784, /* 14**9 */ 32 2562890625, /* 15**8 */ 33 4294967296, /* 16**8 */ 34 6975757441, /* 17**8 */ 35 11019960576, /* 18**8 */ 36 16983563041, /* 19**8 */ 37 25600000000, /* 20**8 */ 38 1801088541, /* 21**7 */ 39 2494357888, /* 22**7 */ 40 3404825447, /* 23**7 */ 41 4586471424, /* 24**7 */ 42 6103515625, /* 25**7 */ 43 8031810176, /* 26**7 */ 44 10460353203, /* 27**7 */ 45 13492928512, /* 28**7 */ 46 17249876309, /* 29**7 */ 47 21870000000, /* 30**7 */ 48 27512614111, /* 31**7 */ 49 1073741824, /* 32**6 */ 50 1291467969, /* 33**6 */ 51 1544804416, /* 34**6 */ 52 1838265625, /* 35**6 */ 53 2176782336 /* 36**6 */ 54 ); 55 /* End include file lisp_bignum_io_data.incl.pl1 */