Select Code to Download

module ScientificFormat (sciformat) where

...

digits n d =
    let (q,r) = n `quotRem` d in q : digits (10*r) d

module Main (main) where
import FishersExactTest
import ScientificFormat
main = interact $ sciformat 60 . pCutoff . map (map read . words) . li
+nes

[thor@arinmir fishers-exact-test]$ time ./fet < ex1.dat
+8.070604647867604097576877675243109941729476950993498765160880e-7030
real    0m0.839s
user    0m0.819s
sys     0m0.016s