1. Bryan O'Sullivan
  2. math-functions

Commits

Aleksey Khudyakov  committed 2f2dbd8

Add benchmark for incompleteBeta

Area where p and q are large and x≈0.5 is benchmarked. Performance
degreades as p and q grow.

  • Participants
  • Parent commits 0f2e489
  • Branches default

Comments (0)

Files changed (1)

File benchmark/bench.hs

View file
            , 20, 30, 40, 50, 60, 70, 80, 90, 100
            ]
     ]
+  , bgroup "incompleteBeta"
+    [ bench (show (p,q,x)) $ nf (incompleteBeta p q) x
+    | (p,q,x) <- [ (10,      10,      0.5)
+                 , (101,     101,     0.5)
+                 , (1010,    1010,    0.5)
+                 , (10100,   10100,   0.5)
+                 , (100100,  100100,  0.5)
+                 , (1001000, 1001000, 0.5)
+                 , (10010000,10010000,0.5)
+                 ]
+    ]
   ]