random: Get rid of uniform_distribution (non-portable).

* src/misc/random.cc, src/misc/random.hh,
src/tgbaalgos/randomgraph.cc, src/tgbatest/randaut.test,
src/tgbatest/randomize.test, src/tgbatest/readsave.test,
src/ltlvisit/simplify.cc, src/tgbaalgos/randomize.cc,
src/graph/graph.hh, src/tgbatest/randpsl.test: here.

src/misc/random.hh

@@ -1,5 +1,5 @@
 // -*- coding: utf-8 -*-
-// Copyright (C) 2013 Laboratoire de Recherche et Développement
+// Copyright (C) 2015 Laboratoire de Recherche et Développement
 // de l'Epita (LRDE).
 // Copyright (C) 2004  Laboratoire d'Informatique de Paris 6 (LIP6),
 // département Systèmes Répartis Coopératifs (SRC), Université Pierre
@@ -24,7 +24,8 @@
 # define SPOT_MISC_RANDOM_HH
 
 # include "common.hh"
-# include <random>
+# include <cmath>
+# include <vector>
 
 namespace spot
 {
@@ -55,18 +56,86 @@ namespace spot
   /// \see mrand, rrand, srand
   SPOT_API double drand();
 
+  /// \brief Compute a pseudo-random double value
+  /// following a standard normal distribution.  (Odeh & Evans)
+  ///
+  /// This uses a polynomial approximation of the inverse cumulated
+  /// density function from Odeh & Evans, Journal of Applied
+  /// Statistics, 1974, vol 23, pp 96-97.
+  SPOT_API double nrand();
+
+  /// \brief Compute a pseudo-random double value
+  /// following a standard normal distribution.  (Box-Muller)
+  ///
+  /// This uses the polar form of the Box-Muller transform
+  /// to generate random values.
+  SPOT_API double bmrand();
+
   /// \brief Compute pseudo-random integer value between 0
   /// and \a n included, following a binomial distribution
   /// for probability \a p.
-  class SPOT_API barand : protected std::binomial_distribution<>
+  ///
+  /// \a gen must be a random function computing a pseudo-random
+  /// double value following a standard normal distribution.
+  /// Use nrand() or bmrand().
+  ///
+  /// Usually approximating a binomial distribution using a normal
+  /// distribution and is accurate only if <code>n*p</code> and
+  /// <code>n*(1-p)</code> are greater than 5.
+  template<double (*gen)()>
+  class barand
   {
   public:
-    barand(int n, double p) : binomial_distribution(n, p)
+    barand(int n, double p)
+      : n_(n), m_(n * p), s_(sqrt(n * p * (1 - p)))
     {
     }
 
-    int rand();
+    int
+    rand() const
+    {
+      int res;
+
+      for (;;)
+	{
+	  double x = gen() * s_ + m_;
+	  if (x < 0.0)
+	    continue;
+	  res = static_cast<int> (x);
+          if (res <= n_)
+	    break;
+        }
+      return res;
+    }
+  protected:
+    const int n_;
+    const double m_;
+    const double s_;
   };
+
+  /// \brief Return a pseudo-random positive integer value
+  /// following a Poisson distribution with parameter \a p.
+  ///
+  /// \pre <code>p > 0</code>
+  SPOT_API int prand(double p);
+
+  /// \brief Shuffle the container using mrand function above.
+  /// This allows to get rid off shuffle or random_shuffle that use
+  /// uniform_distribution and RandomIterator that are not portables.
+  template<class iterator_type>
+  SPOT_API void mrandom_shuffle(iterator_type&& first, iterator_type&& last)
+  {
+    auto d = std::distance(first, last);
+    if (d > 1)
+      {
+	for (--last; first < last; ++first, --d)
+	  {
+	    auto i = mrand(d);
+	    std::swap(*first, *(first + i));
+	  }
+      }
+  }
+  /// @}
 }
 
 #endif // SPOT_MISC_RANDOM_HH