is-ambiguous.hh

Go to the documentation of this file.

#ifndef VCSN_ALGOS_IS_AMBIGUOUS_HH
# define VCSN_ALGOS_IS_AMBIGUOUS_HH

# include <vcsn/algos/accessible.hh>
# include <vcsn/algos/distance.hh>
# include <vcsn/algos/product.hh>
# include <vcsn/algos/scc.hh>
# include <vcsn/dyn/fwd.hh>

namespace vcsn
{

  /*---------------.
  | is_ambiguous.  |
  `---------------*/

  template <typename Aut>
  bool is_ambiguous(const Aut& aut,
                    std::tuple<state_t_of<Aut>, state_t_of<Aut>>& witness)
  {
    auto prod = product(aut, aut);
    // Check if there useful states outside of the diagonal.  Since
    // the product is accessible, check only for coaccessibles states.
    auto coaccessible = coaccessible_states(prod);
    for (const auto& o: prod->origins())
      if (std::get<0>(o.second) != std::get<1>(o.second)
          && has(coaccessible, o.first))
        {
          witness = o.second;
          return true;
        }
    return false;
  }

  template <typename Aut>
  bool is_ambiguous(const Aut& aut)
  {
    std::tuple<state_t_of<Aut>, state_t_of<Aut>> dummy;
    return is_ambiguous(aut, dummy);
  }

  namespace dyn
  {
    namespace detail
    {
      template <class Aut>
      bool is_ambiguous(const automaton& aut)
      {
        return is_ambiguous(aut->as<Aut>());
      }

      REGISTER_DECLARE(is_ambiguous,
                       (const automaton&) -> bool);
    }
  }


  /*-----------------.
  | ambiguous_word.  |
  `-----------------*/

  template <typename Aut>
  typename labelset_t_of<Aut>::word_t ambiguous_word(const Aut& aut)
  {
    std::tuple<state_t_of<Aut>, state_t_of<Aut>> witness;
    require(is_ambiguous(aut, witness),
            "automaton is unambiguous");
    const auto& ls = *aut->labelset();
    typename labelset_t_of<Aut>::word_t res;
    // Find the shortest word from initial to the witness.
    auto s = std::get<0>(witness);
    for (auto t: path_bfs(aut, aut->pre(), s))
      {
        auto l = aut->label_of(t);
        if (!ls.is_special(l))
          res = ls.concat(res, l);
      }
    for (auto t: path_bfs(aut, s, aut->post()))
      {
        auto l = aut->label_of(t);
        if (!ls.is_special(l))
          res = ls.concat(res, l);
      }
    return res;
  }


  namespace dyn
  {
    namespace detail
    {
      template <typename Aut>
      label
      ambiguous_word(const automaton& aut)
      {
        const auto& a = aut->as<Aut>();
        auto word = vcsn::ambiguous_word(a);
        return make_label(make_wordset(*a->labelset()), word);
      }

      REGISTER_DECLARE(ambiguous_word,
                       (const automaton&) -> label);
    }
  }



  /*---------------------.
  | is_cycle_ambiguous.  |
  `---------------------*/

  template <typename Aut>
  bool is_cycle_ambiguous(const Aut& aut)
  {
    // Find all strongly connected components.
    const auto& coms = scc(aut);
    if (getenv("VCSN_DEBUG"))
      {
        std::cerr << "number states of automaton: " <<
          aut->num_states() << std::endl;
        std::cerr << "number components: " <<
          coms.size() << std::endl;
      }

    // Check each component if it is cycle-ambiguous.
    if (coms.size() == 1)
      return is_cycle_ambiguous_scc(aut);
    for (const auto &c : coms)
      {
        const auto& a = aut_of_component(c, aut);
        if (is_cycle_ambiguous_scc(a))
          return true;
      }
    return false;
  }

  template <typename Aut>
  bool is_cycle_ambiguous_scc(const Aut& aut)
  {
    auto prod = product(aut, aut);
    auto coms = scc(prod);
    const auto& origins = prod->origins();
    // In one SCC of prod = aut & aut, if there exist two states (s0,
    // s0) (on the diagonal) and (s1, s2) with s1 != s2 (off the
    // diagonal) then aut has two cycles with the same label:
    // s0->s1->s0 and s0->s2->s0.
    for (auto c : coms)
      {
        bool on = false;
        bool off = false;
        for (auto s : c)
          {
            auto p = origins.at(s);
            if (std::get<0>(p) == std::get<1>(p))
              on = true;
            else
              off = true;
            if (on && off)
              return true;
          }
      }
    return false;
  }

  namespace dyn
  {
    namespace detail
    {
      // Bridge.
      template <typename Aut>
      bool
      is_cycle_ambiguous(const automaton& aut)
      {
        const auto& a = aut->as<Aut>();
        return ::vcsn::is_cycle_ambiguous(a);
      }

      REGISTER_DECLARE(is_cycle_ambiguous,
                       (const automaton&) -> bool);
    }
  }


}

#endif // !VCSN_ALGOS_IS_AMBIGUOUS_HH