Skip to content

Instantly share code, notes, and snippets.

{:annotate
{primes
{:valid
{:mean 4.860282258038319E-7,
:standard-deviation 6.097754690438942E-9},
:invalid
{:mean 1.2555852237438726E-6,
:standard-deviation 3.019330319888297E-8}},
three-tuple
{:valid
{:annotate
{primes
{:valid
{:mean 4.856232779937338E-7,
:standard-deviation 1.5997084848864744E-9},
:invalid
{:mean 1.2696593861712255E-6,
:standard-deviation 1.6076660356439223E-8}},
three-tuple
{:valid
{:annotate
{primes
{:valid
{:mean 4.849979434217899E-7,
:standard-deviation 3.5828103780605274E-9},
:invalid
{:mean 1.3445674940553988E-6,
:standard-deviation 3.724672853161518E-8}},
three-tuple
{:valid
{:annotate
{primes
{:valid
{:mean 4.865182524150026E-7,
:standard-deviation 6.445755433610459E-9},
:invalid
{:mean 1.2786883787192442E-6,
:standard-deviation 2.2318424478200078E-8}},
three-tuple
{:valid
#!/usr/bin/env stack
-- stack runghc --package random
import Control.Monad (replicateM)
import System.Random (randomRIO)
main :: IO ()
main = do
{:annotate
{primes
{:valid
{:mean 4.820534711103185E-7,
:standard-deviation 9.984283196656258E-9},
:invalid
{:mean 1.2976111932429677E-6,
:standard-deviation 3.61735309763455E-8}},
three-tuple
{:valid
{:annotate
{primes
{:valid
{:mean 4.693637409123251E-7,
:standard-deviation 1.9990240013057638E-8},
:invalid
{:mean 1.2545136902552452E-6,
:standard-deviation 3.9669680055537027E-8}},
three-tuple
{:valid
{:annotate
{primes
{:valid
{:mean 1.2993937317147914E-6,
:standard-deviation 3.668840448042201E-8},
:invalid
{:mean 2.124752983868259E-6,
:standard-deviation 6.49538490721053E-8}},
three-tuple
{:valid
{:annotate
{primes
{:valid
{:mean 1.2816047973998841E-6,
:standard-deviation 3.534435241453241E-8},
:invalid
{:mean 2.140320284532378E-6,
:standard-deviation 5.985309309499257E-8}},
three-tuple
{:valid
{:annotate
{primes
{:valid
{:mean 1.3530624928993202E-6,
:standard-deviation 5.173101529850127E-8},
:invalid
{:mean 2.1596623473232427E-6,
:standard-deviation 4.421107471052838E-8}},
three-tuple
{:valid