2log (problem 3.3.6)

Average Accuracy: 54.2% → 100.0%

Time: 8.9s

Precision: binary64

Cost: 6592

Math

\[\log \left(N + 1\right) - \log N \]

↓

\[\mathsf{log1p}\left(\frac{1}{N}\right) \]

FPCore

(FPCore (N) :precision binary64 (- (log (+ N 1.0)) (log N)))

↓

(FPCore (N) :precision binary64 (log1p (/ 1.0 N)))

C

double code(double N) {
	return log((N + 1.0)) - log(N);
}

↓

double code(double N) {
	return log1p((1.0 / N));
}

Java

public static double code(double N) {
	return Math.log((N + 1.0)) - Math.log(N);
}

↓

public static double code(double N) {
	return Math.log1p((1.0 / N));
}

Python

def code(N):
	return math.log((N + 1.0)) - math.log(N)

↓

def code(N):
	return math.log1p((1.0 / N))

Julia

function code(N)
	return Float64(log(Float64(N + 1.0)) - log(N))
end

↓

function code(N)
	return log1p(Float64(1.0 / N))
end

Wolfram

code[N_] := N[(N[Log[N[(N + 1.0), $MachinePrecision]], $MachinePrecision] - N[Log[N], $MachinePrecision]), $MachinePrecision]

↓

code[N_] := N[Log[1 + N[(1.0 / N), $MachinePrecision]], $MachinePrecision]

Derivation

1. Initial program 54.2%

   \[\log \left(N + 1\right) - \log N \]

2. Simplified 54.2%

   \[\leadsto \color{blue}{\mathsf{log1p}\left(N\right) - \log N} \]
   Proof

   [Start] 54.2	\[ \log \left(N + 1\right) - \log N \]
   +-commutative [=>] 54.2	\[ \log \color{blue}{\left(1 + N\right)} - \log N \]
   log1p-def [=>] 54.2	\[ \color{blue}{\mathsf{log1p}\left(N\right)} - \log N \]

3. Applied egg-rr 54.4%

   \[\leadsto \color{blue}{\log \left(\frac{N + 1}{N}\right)} \]
   Proof

   [Start] 54.2	\[ \mathsf{log1p}\left(N\right) - \log N \]
   add-log-exp [=>] 54.2	\[ \color{blue}{\log \left(e^{\mathsf{log1p}\left(N\right) - \log N}\right)} \]
   exp-diff [=>] 54.2	\[ \log \color{blue}{\left(\frac{e^{\mathsf{log1p}\left(N\right)}}{e^{\log N}}\right)} \]
   log1p-udef [=>] 54.2	\[ \log \left(\frac{e^{\color{blue}{\log \left(1 + N\right)}}}{e^{\log N}}\right) \]
   add-exp-log [<=] 53.5	\[ \log \left(\frac{\color{blue}{1 + N}}{e^{\log N}}\right) \]
   +-commutative [=>] 53.5	\[ \log \left(\frac{\color{blue}{N + 1}}{e^{\log N}}\right) \]
   add-exp-log [<=] 54.4	\[ \log \left(\frac{N + 1}{\color{blue}{N}}\right) \]

4. Applied egg-rr 54.4%

   \[\leadsto \color{blue}{\mathsf{log1p}\left(\frac{N + 1}{N} - 1\right)} \]
   Proof

   [Start] 54.4	\[ \log \left(\frac{N + 1}{N}\right) \]
   log1p-expm1-u [=>] 54.4	\[ \color{blue}{\mathsf{log1p}\left(\mathsf{expm1}\left(\log \left(\frac{N + 1}{N}\right)\right)\right)} \]
   expm1-udef [=>] 54.4	\[ \mathsf{log1p}\left(\color{blue}{e^{\log \left(\frac{N + 1}{N}\right)} - 1}\right) \]
   add-exp-log [<=] 54.4	\[ \mathsf{log1p}\left(\color{blue}{\frac{N + 1}{N}} - 1\right) \]

5. Simplified 100.0%

   \[\leadsto \color{blue}{\mathsf{log1p}\left(\frac{1}{N} + 0\right)} \]
   Proof

   [Start] 54.4	\[ \mathsf{log1p}\left(\frac{N + 1}{N} - 1\right) \]
   *-lft-identity [<=] 54.4	\[ \mathsf{log1p}\left(\color{blue}{1 \cdot \frac{N + 1}{N}} - 1\right) \]
   associate-*r/ [=>] 54.4	\[ \mathsf{log1p}\left(\color{blue}{\frac{1 \cdot \left(N + 1\right)}{N}} - 1\right) \]
   associate-*l/ [<=] 54.1	\[ \mathsf{log1p}\left(\color{blue}{\frac{1}{N} \cdot \left(N + 1\right)} - 1\right) \]
   distribute-rgt-in [=>] 54.1	\[ \mathsf{log1p}\left(\color{blue}{\left(N \cdot \frac{1}{N} + 1 \cdot \frac{1}{N}\right)} - 1\right) \]
   +-commutative [=>] 54.1	\[ \mathsf{log1p}\left(\color{blue}{\left(1 \cdot \frac{1}{N} + N \cdot \frac{1}{N}\right)} - 1\right) \]
   rgt-mult-inverse [=>] 54.4	\[ \mathsf{log1p}\left(\left(1 \cdot \frac{1}{N} + \color{blue}{1}\right) - 1\right) \]
   *-lft-identity [=>] 54.4	\[ \mathsf{log1p}\left(\left(\color{blue}{\frac{1}{N}} + 1\right) - 1\right) \]
   associate--l+ [=>] 100.0	\[ \mathsf{log1p}\left(\color{blue}{\frac{1}{N} + \left(1 - 1\right)}\right) \]
   metadata-eval [=>] 100.0	\[ \mathsf{log1p}\left(\frac{1}{N} + \color{blue}{0}\right) \]

6. Applied egg-rr 54.4%

   \[\leadsto \color{blue}{\left(1 + \mathsf{log1p}\left(\frac{1}{N}\right)\right) - 1} \]
   Proof

   [Start] 100.0	\[ \mathsf{log1p}\left(\frac{1}{N} + 0\right) \]
   expm1-log1p-u [=>] 99.1	\[ \color{blue}{\mathsf{expm1}\left(\mathsf{log1p}\left(\mathsf{log1p}\left(\frac{1}{N} + 0\right)\right)\right)} \]
   expm1-udef [=>] 53.5	\[ \color{blue}{e^{\mathsf{log1p}\left(\mathsf{log1p}\left(\frac{1}{N} + 0\right)\right)} - 1} \]
   log1p-udef [=>] 53.5	\[ e^{\color{blue}{\log \left(1 + \mathsf{log1p}\left(\frac{1}{N} + 0\right)\right)}} - 1 \]
   add-exp-log [<=] 54.4	\[ \color{blue}{\left(1 + \mathsf{log1p}\left(\frac{1}{N} + 0\right)\right)} - 1 \]
   +-rgt-identity [=>] 54.4	\[ \left(1 + \mathsf{log1p}\left(\color{blue}{\frac{1}{N}}\right)\right) - 1 \]

7. Simplified 100.0%

   \[\leadsto \color{blue}{\mathsf{log1p}\left(\frac{1}{N}\right)} \]
   Proof

   [Start] 54.4	\[ \left(1 + \mathsf{log1p}\left(\frac{1}{N}\right)\right) - 1 \]
   +-commutative [=>] 54.4	\[ \color{blue}{\left(\mathsf{log1p}\left(\frac{1}{N}\right) + 1\right)} - 1 \]
   associate--l+ [=>] 100.0	\[ \color{blue}{\mathsf{log1p}\left(\frac{1}{N}\right) + \left(1 - 1\right)} \]
   metadata-eval [=>] 100.0	\[ \mathsf{log1p}\left(\frac{1}{N}\right) + \color{blue}{0} \]
   +-rgt-identity [=>] 100.0	\[ \color{blue}{\mathsf{log1p}\left(\frac{1}{N}\right)} \]

8. Final simplification 100.0%

   \[\leadsto \mathsf{log1p}\left(\frac{1}{N}\right) \]

Alternatives

Alternative 1
Accuracy	98.8%
Cost	6660

\[\begin{array}{l} \mathbf{if}\;N \leq 0.6:\\ \;\;\;\;-\log N\\ \mathbf{else}:\\ \;\;\;\;\frac{1}{N} + \frac{\frac{0.3333333333333333}{N} + -0.5}{N \cdot N}\\ \end{array} \]

Alternative 2
Accuracy	51.5%
Cost	192

\[\frac{1}{N} \]

Alternative 3
Accuracy	4.6%
Cost	64

\[N \]

Reproduce

herbie shell --seed 2023137 
(FPCore (N)
  :name "2log (problem 3.3.6)"
  :precision binary64
  (- (log (+ N 1.0)) (log N)))