aihc-parser-1.0.0.2: test/Test/Fixtures/oracle/Hackage/splitmix-distributions-negation-parens.hs

{- ORACLE_TEST pass -}
module SplitmixDistributionsNegationParens where

zipfLike a u =
  let xInt = floor (u ** (- 1 / (a - 1)))
   in xInt

weibullLike a b x =
  return $ (- 1 / a * log (1 - x)) ** 1 / b