BangPatterns instead of seq

Author: axman6

Statistics/Sample.hs

@@ -1,4 +1,5 @@
 {-# LANGUAGE FlexibleContexts #-}
+{-# LANGUAGE BangPatterns #-}
 -- |
 -- Module    : Statistics.Sample
 -- Copyright : (c) 2008 Don Stewart, 2009 Bryan O'Sullivan
@@ -459,8 +460,8 @@ x ^ 4 = (x * x) * (x * x)
 x ^ 5 = (x * x) * x * (x * x)
 -- x ^ n = x * (x ^ (n-1))
 x0 ^ n0 = go (n0-1) x0 where
-    go 0 acc = acc
-    go n acc = acc `seq` go (n-1) (acc*x0)
+    go 0 !acc = acc
+    go n  acc = go (n-1) (acc*x0)
 {-# INLINE (^) #-}
 
 -- don't support polymorphism, as we can't get unboxed returns if we use it.