blob: 5566dd66d12453508117ffb32820149f772c7a59 (
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
|
@(bind logs @(tuples 4 ^(0.0 0.0 ,*(take 63 (mapcar* [chain log2 /] (range 2))))))
@(do (set *pprint-flo-format* "~0,9f"))
@(output)
/*
* A table of the logs of 2 for various bases (the 0 and 1 entries of
* this table are meaningless and should not be referenced).
*
* This table is used to compute output lengths for the mp_toradix()
* function. Since a number n in radix r takes up about log_r(n)
* digits, we estimate the output size by taking the least integer
* greater than log_r(n), where:
*
* log_r(n) = log_2(n) * log_r(2)
*
* This table, therefore, is a table of log_r(2) for 2 <= r <= 36,
* which are the output bases supported.
*/
const double s_logv_2[] = {
@ (repeat)
@(rep)@logs, @(last)@logs,@(end)
@ (last)
@(rep)@logs, @(last)@logs@(end)
@ (end)
};
@(end)
|
