Skip to main content
deleted 83 characters in body; deleted 2 characters in body; edited body
Source Link
RGS
  • 14.1k
  • 1
  • 57
  • 116

Mathematica, \$\approx\$ 7.67 score

25 23 bytes, arbitrary precision, final score \$ \frac{23}{3}\$

N[#/Log[#]Log@#,PrimePi[#]+1]&PrimePi@#+1]&

-2 bytes, courtesy of @ExpiredData

Here is a benchmarking solution. The TIO link has funny-looking output but the function works just fine when ran locally with Mathematica's softwareTry it online!.

Mathematica, \$\approx\$ 7.67 score

25 23 bytes, arbitrary precision, final score \$ \frac{23}{3}\$

N[#/Log[#],PrimePi[#]+1]&

-2 bytes, courtesy of @ExpiredData

Here is a benchmarking solution. The TIO link has funny-looking output but the function works just fine when ran locally with Mathematica's software.

Mathematica, \$\approx\$ 7.67 score

25 23 bytes, arbitrary precision, final score \$ \frac{23}{3}\$

N[#/Log@#,PrimePi@#+1]&

-2 bytes, courtesy of @ExpiredData

Here is a benchmarking solution. Try it online!.

added 48 characters in body
Source Link
RGS
  • 14.1k
  • 1
  • 57
  • 116

Mathematica, \$\approx\$ 87.3367 score

2525 23 bytes, arbitrary precision, final score \$ \frac{25}{3}\$\$ \frac{23}{3}\$

N[#/Log[#],PrimePi[#]+1]&

-2 bytes, courtesy of @ExpiredData

Here is a benchmarking solution. The TIO link has funny-looking output but the function works just fine when ran locally with Mathematica's software.

Mathematica, \$\approx\$ 8.33 score

25 bytes, arbitrary precision, final score \$ \frac{25}{3}\$

N[#/Log[#],PrimePi[#]+1]&

Here is a benchmarking solution. The TIO link has funny-looking output but the function works just fine when ran locally with Mathematica's software.

Mathematica, \$\approx\$ 7.67 score

25 23 bytes, arbitrary precision, final score \$ \frac{23}{3}\$

N[#/Log[#],PrimePi[#]+1]&

-2 bytes, courtesy of @ExpiredData

Here is a benchmarking solution. The TIO link has funny-looking output but the function works just fine when ran locally with Mathematica's software.

added 4 characters in body
Source Link
RGS
  • 14.1k
  • 1
  • 57
  • 116

Mathematica, \$\approx\$ 78.6733 score

2325 bytes, arbitrary precision, final score \$ \frac{23}{3}\$\$ \frac{25}{3}\$

N[#/Log[#],PrimePi[#]]&PrimePi[#]+1]&

Here is a benchmarking solution. The TIO linkTIO link has funny-looking output but the function works just fine when ran locally with Mathematica's software.

Mathematica, \$\approx\$ 7.67 score

23 bytes, arbitrary precision, final score \$ \frac{23}{3}\$

N[#/Log[#],PrimePi[#]]&

Here is a benchmarking solution. The TIO link has funny-looking output but the function works just fine when ran locally with Mathematica's software.

Mathematica, \$\approx\$ 8.33 score

25 bytes, arbitrary precision, final score \$ \frac{25}{3}\$

N[#/Log[#],PrimePi[#]+1]&

Here is a benchmarking solution. The TIO link has funny-looking output but the function works just fine when ran locally with Mathematica's software.

Source Link
RGS
  • 14.1k
  • 1
  • 57
  • 116
Loading