gecoder-with-gecode 0.7.1 → 0.8.0

data/ext/gecode-2.1.1/gecode/int/element.cc

@@ -0,0 +1,156 @@
+/* -*- mode: C++; c-basic-offset: 2; indent-tabs-mode: nil -*- */
+/*
+ *  Main authors:
+ *     Christian Schulte <schulte@gecode.org>
+ *
+ *  Copyright:
+ *     Christian Schulte, 2004
+ *
+ *  Last modified:
+ *     $Date: 2008-02-06 20:23:59 +0100 (Wed, 06 Feb 2008) $ by $Author: schulte $
+ *     $Revision: 6103 $
+ *
+ *  This file is part of Gecode, the generic constraint
+ *  development environment:
+ *     http://www.gecode.org
+ *
+ *  Permission is hereby granted, free of charge, to any person obtaining
+ *  a copy of this software and associated documentation files (the
+ *  "Software"), to deal in the Software without restriction, including
+ *  without limitation the rights to use, copy, modify, merge, publish,
+ *  distribute, sublicense, and/or sell copies of the Software, and to
+ *  permit persons to whom the Software is furnished to do so, subject to
+ *  the following conditions:
+ *
+ *  The above copyright notice and this permission notice shall be
+ *  included in all copies or substantial portions of the Software.
+ *
+ *  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+ *  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+ *  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+ *  NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+ *  LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+ *  OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+ *  WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+ *
+ */
+
+#include "gecode/int/element.hh"
+
+namespace Gecode {
+
+  using namespace Int;
+
+  void
+  element(Space* home, const IntArgs& c, IntVar x0, IntVar x1,
+          IntConLevel, PropKind) {
+    if (home->failed()) return;
+    Element::IntSharedArray cs(c.size());
+    for (int i = c.size(); i--; ) {
+      Limits::check(c[i],"Int::element");
+      cs[i] = c[i];
+    }
+    GECODE_ES_FAIL(home,(Element::Int<IntView,IntView>::post(home,cs,x0,x1)));
+  }
+
+  void
+  element(Space* home, const IntArgs& c, IntVar x0, BoolVar x1,
+          IntConLevel, PropKind) {
+    if (home->failed()) return;
+    Element::IntSharedArray cs(c.size());
+    for (int i = c.size(); i--; ) {
+      Limits::check(c[i],"Int::element");
+      cs[i] = c[i];
+    }
+    GECODE_ES_FAIL(home,
+                   (Element::Int<IntView,BoolView>::post(home,cs,x0,x1)));
+  }
+
+  void
+  element(Space* home, const IntArgs& c, IntVar x0, int x1,
+          IntConLevel, PropKind) {
+    Limits::check(x1,"Int::element");
+    if (home->failed()) return;
+    Element::IntSharedArray cs(c.size());
+    for (int i = c.size(); i--; ) {
+      Limits::check(c[i],"Int::element");
+      cs[i] = c[i];
+    }
+    ConstIntView cx1(x1);
+    GECODE_ES_FAIL(home,(Element::Int<IntView,ConstIntView>
+                         ::post(home,cs,x0,cx1)));
+  }
+
+  void
+  element(Space* home, const IntVarArgs& c, IntVar x0, IntVar x1,
+          IntConLevel icl, PropKind) {
+    if (home->failed()) return;
+    Element::IdxView<IntView>* iv = 
+      Element::IdxView<IntView>::init(home,c);
+    if ((icl == ICL_DOM) || (icl == ICL_DEF)) {
+      GECODE_ES_FAIL(home,(Element::ViewDom<IntView,IntView,IntView>
+                           ::post(home,iv,c.size(),x0,x1)));
+    } else {
+      GECODE_ES_FAIL(home,(Element::ViewBnd<IntView,IntView,IntView>
+                           ::post(home,iv,c.size(),x0,x1)));
+    }
+  }
+
+  void
+  element(Space* home, const IntVarArgs& c, IntVar x0, int x1,
+          IntConLevel icl, PropKind) {
+    Limits::check(x1,"Int::element");
+    if (home->failed()) return;
+    Element::IdxView<IntView>* iv = 
+      Element::IdxView<IntView>::init(home,c);
+    ConstIntView v1(x1);
+    if ((icl == ICL_DOM) || (icl == ICL_DEF)) {
+      GECODE_ES_FAIL(home,(Element::ViewDom<IntView,IntView,ConstIntView>
+                           ::post(home,iv,c.size(),x0,v1)));
+    } else {
+      GECODE_ES_FAIL(home,(Element::ViewBnd<IntView,IntView,ConstIntView>
+                           ::post(home,iv,c.size(),x0,v1)));
+    }
+  }
+
+  void
+  element(Space* home, const BoolVarArgs& c, IntVar x0, BoolVar x1,
+          IntConLevel, PropKind) {
+    if (home->failed()) return;
+    Element::IdxView<BoolView>* iv = 
+      Element::IdxView<BoolView>::init(home,c);
+    GECODE_ES_FAIL(home,(Element::ViewBnd<BoolView,IntView,BoolView>
+                         ::post(home,iv,c.size(),x0,x1)));
+  }
+
+  void
+  element(Space* home, const BoolVarArgs& c, IntVar x0, int x1,
+          IntConLevel, PropKind) {
+    Limits::check(x1,"Int::element");
+    if (home->failed()) return;
+    Element::IdxView<BoolView>* iv = 
+      Element::IdxView<BoolView>::init(home,c);
+    ConstIntView v1(x1);
+    GECODE_ES_FAIL(home,(Element::ViewBnd<BoolView,IntView,ConstIntView>
+                         ::post(home,iv,c.size(),x0,v1)));
+  }
+
+  namespace {
+    using namespace Int;
+    GECODE_REGISTER2(Element::Int<IntView,ConstIntView>);
+    GECODE_REGISTER2(Element::Int<IntView,BoolView>);
+    GECODE_REGISTER2(Element::Int<IntView,IntView>);
+
+    GECODE_REGISTER3(Element::ViewBnd<IntView,IntView,ConstIntView>);
+    GECODE_REGISTER3(Element::ViewBnd<IntView,IntView,IntView>);
+    GECODE_REGISTER3(Element::ViewBnd<BoolView,IntView,ConstIntView>);
+    GECODE_REGISTER3(Element::ViewBnd<BoolView,IntView,BoolView>);
+
+    GECODE_REGISTER3(Element::ViewDom<IntView,IntView,ConstIntView>);
+    GECODE_REGISTER3(Element::ViewDom<IntView,IntView,IntView>);
+  }
+
+}
+
+// STATISTICS: int-post
+

data/ext/gecode-2.1.1/gecode/int/element.hh

@@ -0,0 +1,239 @@
+/* -*- mode: C++; c-basic-offset: 2; indent-tabs-mode: nil -*- */
+/*
+ *  Main authors:
+ *     Christian Schulte <schulte@gecode.org>
+ *     Guido Tack <tack@gecode.org>
+ *
+ *  Copyright:
+ *     Christian Schulte, 2004
+ *     Guido Tack, 2004
+ *
+ *  Last modified:
+ *     $Date: 2008-01-29 13:37:51 +0100 (Tue, 29 Jan 2008) $ by $Author: tack $
+ *     $Revision: 5993 $
+ *
+ *  This file is part of Gecode, the generic constraint
+ *  development environment:
+ *     http://www.gecode.org
+ *
+ *  Permission is hereby granted, free of charge, to any person obtaining
+ *  a copy of this software and associated documentation files (the
+ *  "Software"), to deal in the Software without restriction, including
+ *  without limitation the rights to use, copy, modify, merge, publish,
+ *  distribute, sublicense, and/or sell copies of the Software, and to
+ *  permit persons to whom the Software is furnished to do so, subject to
+ *  the following conditions:
+ *
+ *  The above copyright notice and this permission notice shall be
+ *  included in all copies or substantial portions of the Software.
+ *
+ *  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+ *  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+ *  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+ *  NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+ *  LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+ *  OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+ *  WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+ *
+ */
+
+#ifndef __GECODE_INT_ELEMENT_HH__
+#define __GECODE_INT_ELEMENT_HH__
+
+#include "gecode/int.hh"
+#include "gecode/int/rel.hh"
+
+/**
+ * \namespace Gecode::Int::Element
+ * \brief %Element propagators
+ */
+
+namespace Gecode { namespace Int { namespace Element {
+
+  /*
+   * Element constraint for array of integers
+   *
+   */
+
+  typedef SharedArray<int> IntSharedArray;
+
+  /// Class for index-value ma
+  class IdxValMap;
+
+  /**
+   * \brief %Element propagator for array of integers
+   *
+   * Requires \code #include "gecode/int/element.hh" \endcode
+   * \ingroup FuncIntProp
+   */
+  template <class ViewA, class ViewB>
+  class Int : public Propagator {
+  protected:
+    /// View for index
+    ViewA          x0;
+    /// View for result
+    ViewB          x1;
+    /// Shared array of integer values
+    IntSharedArray c;
+    /// Cache for index-value map
+    IdxValMap*     ivm;
+    /// Constructor for cloning \a p
+    Int(Space* home, bool shared, Int& p);
+    /// Constructor for creation
+    Int(Space* home, IntSharedArray& i, ViewA x0, ViewB x1);
+  public:
+    /// Perform copying during cloning
+    virtual Actor* copy(Space* home, bool share);
+    /// Const function (return PC_BINARY_HI)
+    virtual PropCost cost(ModEventDelta med) const;
+    /// Perform propagation
+    virtual ExecStatus propagate(Space* home, ModEventDelta med);
+    /// Specification for this propagator
+    virtual Reflection::ActorSpec spec(const Space* home,
+                                        Reflection::VarMap& m) const;
+    /// Post propagator according to specification
+    static void post(Space* home, Reflection::VarMap& vars,
+                     const Reflection::ActorSpec& spec);
+    /// Mangled name of this propagator
+    static Support::Symbol ati(void);
+    /// Post propagator for \f$i_{x_0}=x_1\f$
+    static  ExecStatus post(Space* home, IntSharedArray& i,
+                            ViewA x0, ViewB x1);
+    /// Return size of index-value map
+    virtual size_t allocated(void) const;
+    /// Delete propagator and return its size
+    virtual size_t dispose(Space* home);
+  };
+
+
+
+  /**
+   * \brief Class for index-view map
+   *
+   */
+  template <class ViewB> class IdxView;
+
+  /**
+   * \brief Base-class for element propagator for array of views
+   *
+   */
+  template <class VA, class VB, class VC, PropCond pc_ac>
+  class View : public Propagator {
+  protected:
+    /// Current index-view map
+    IdxView<VA>* iv;
+    /// Number of elements in index-view map
+    int n;
+    /// View for index
+    VB x0;
+    /// View for result
+    VC x1;
+    /// Constructor for cloning \a p
+    View(Space* home, bool share, View& p);
+    /// Constructor for creation
+    View(Space* home, IdxView<VA>* iv, int n, VB x0, VC x1);
+    /// Specification for this propagator
+    Reflection::ActorSpec spec(const Space* home, Reflection::VarMap& m,
+                                const Support::Symbol& name) const;
+  public:
+    // Cost function (defined as dynamic PC_LINEAR_LO)
+    virtual PropCost cost(ModEventDelta med) const;
+    /// Delete propagator and return its size
+    virtual size_t dispose(Space* home);
+  };
+
+
+  /**
+   * \brief Bounds-consistent element propagator for array of views
+   *
+   * Requires \code #include "gecode/int/element.hh" \endcode
+   * \ingroup FuncIntProp
+   */
+  template <class VA, class VB, class VC>
+  class ViewBnd : public View<VA,VB,VC,PC_INT_BND> {
+  protected:
+    using View<VA,VB,VC,PC_INT_BND>::iv;
+    using View<VA,VB,VC,PC_INT_BND>::n;
+    using View<VA,VB,VC,PC_INT_BND>::x0;
+    using View<VA,VB,VC,PC_INT_BND>::x1;
+
+    /// Constructor for cloning \a p
+    ViewBnd(Space* home, bool share, ViewBnd& p);
+    /// Constructor for creation
+    ViewBnd(Space* home, IdxView<VA>* iv, int n, VB x0, VC x1);
+  public:
+    /// Perform copying during cloning
+    virtual Actor* copy(Space* home, bool share);
+    /// Perform propagation
+    virtual ExecStatus propagate(Space* home, ModEventDelta med);
+    /// Specification for this propagator
+    virtual Reflection::ActorSpec spec(const Space* home,
+                                        Reflection::VarMap& m) const;
+    /// Post propagator according to specification
+    static void post(Space* home, Reflection::VarMap& vars,
+                     const Reflection::ActorSpec& spec);
+    /// Name of this propagator
+    static Support::Symbol ati(void);
+    /// Post propagator for \f$iv_{x_0}=x_1\f$
+    static  ExecStatus post(Space* home, IdxView<VA>* iv, int n,
+                            VB x0, VC x1);
+  };
+
+  /**
+   * \brief Domain-consistent element propagator for array of views
+   *
+   * The propagator uses staging: first it uses
+   * bounds-propagation on the array of views and the uses
+   * domain-propagation on the array of views.
+   *
+   * Requires \code #include "gecode/int/element.hh" \endcode
+   * \ingroup FuncIntProp
+   */
+  template <class VA, class VB, class VC>
+  class ViewDom : public View<VA,VB,VC,PC_INT_DOM> {
+  protected:
+    using View<VA,VB,VC,PC_INT_DOM>::iv;
+    using View<VA,VB,VC,PC_INT_DOM>::n;
+    using View<VA,VB,VC,PC_INT_DOM>::x0;
+    using View<VA,VB,VC,PC_INT_DOM>::x1;
+
+    /// Constructor for cloning \a p
+    ViewDom(Space* home, bool share, ViewDom& p);
+    /// Constructor for creation
+    ViewDom(Space* home, IdxView<VA>* iv, int n, VB x0, VC x1);
+  public:
+    /// Perform copying during cloning
+    virtual Actor* copy(Space* home, bool share);
+    /**
+     * \brief Cost function
+     *
+     * If in stage for bounds-propagation defined as dynamic PC_LINEAR_LO,
+     * otherwise as dynamic PC_LINEAR_HI.
+     *
+     */
+    virtual PropCost cost(ModEventDelta med) const;
+    /// Perform propagation
+    virtual ExecStatus propagate(Space* home, ModEventDelta med);
+    /// Specification for this propagator
+    virtual Reflection::ActorSpec spec(const Space* home,
+                                        Reflection::VarMap& m) const;
+    /// Post propagator according to specification
+    static void post(Space* home, Reflection::VarMap& vars,
+                     const Reflection::ActorSpec& spec);
+    /// Name of this propagator
+    static Support::Symbol ati(void);
+    /// Post propagator for \f$iv_{x_0}=x_1\f$
+    static  ExecStatus post(Space* home, IdxView<VA>* iv, int n,
+                            VB x0, VC x1);
+  };
+
+}}}
+
+#include "gecode/int/element/int.icc"
+#include "gecode/int/element/view.icc"
+
+#endif
+
+
+// STATISTICS: int-prop
+

data/ext/gecode-2.1.1/gecode/int/element/int.icc

@@ -0,0 +1,441 @@
+/* -*- mode: C++; c-basic-offset: 2; indent-tabs-mode: nil -*- */
+/*
+ *  Main authors:
+ *     Christian Schulte <schulte@gecode.org>
+ *
+ *  Copyright:
+ *     Christian Schulte, 2004
+ *
+ *  Last modified:
+ *     $Date: 2008-01-31 18:29:16 +0100 (Thu, 31 Jan 2008) $ by $Author: tack $
+ *     $Revision: 6017 $
+ *
+ *  This file is part of Gecode, the generic constraint
+ *  development environment:
+ *     http://www.gecode.org
+ *
+ *  Permission is hereby granted, free of charge, to any person obtaining
+ *  a copy of this software and associated documentation files (the
+ *  "Software"), to deal in the Software without restriction, including
+ *  without limitation the rights to use, copy, modify, merge, publish,
+ *  distribute, sublicense, and/or sell copies of the Software, and to
+ *  permit persons to whom the Software is furnished to do so, subject to
+ *  the following conditions:
+ *
+ *  The above copyright notice and this permission notice shall be
+ *  included in all copies or substantial portions of the Software.
+ *
+ *  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+ *  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+ *  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+ *  NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+ *  LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+ *  OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+ *  WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+ *
+ */
+
+namespace Gecode { namespace Int { namespace Element {
+
+  /**
+   * \brief Links for index-value map
+   *
+   * Data structure linking pairs of index and value (index,value)
+   * where pairs are linked in order of both index and
+   * value (to allow for easy removal while keeping both index and
+   * value sorted).
+   *
+   */
+  class IdxValLink  {
+  public:
+    IdxValLink* idx_next;
+    IdxValLink* val_next;
+    int idx, val;
+
+    void mark(void);
+    bool marked(void) const;
+  };
+
+  forceinline void
+  IdxValLink::mark(void) {
+    idx = -1;
+  }
+  forceinline bool
+  IdxValLink::marked(void) const {
+    return idx<0;
+  }
+
+
+
+  /**
+   * \brief Value iterator for indices in index-value map
+   *
+   * The iterator also removes marked index-value pairs.
+   *
+   */
+  class IterIdx {
+  private:
+    IdxValLink* l;
+  public:
+    IterIdx(void);
+    IterIdx(IdxValLink&);
+    void init(IdxValLink&);
+    bool operator()(void) const;
+    void operator++(void);
+    int  val(void) const;
+  };
+
+  forceinline
+  IterIdx::IterIdx(void) {}
+  forceinline
+  IterIdx::IterIdx(IdxValLink& ivl) {
+    IdxValLink* p=&ivl;
+    l = p->idx_next;
+    while ((l != NULL) && l->marked())
+      l=l->idx_next;
+    p->idx_next=l;
+  }
+  forceinline void
+  IterIdx::init(IdxValLink& ivl) {
+    IdxValLink* p=&ivl;
+    l = p->idx_next;
+    while ((l != NULL) && l->marked())
+      l=l->idx_next;
+    p->idx_next=l;
+  }
+  forceinline bool
+  IterIdx::operator()(void) const {
+    return l != NULL;
+  }
+  forceinline void
+  IterIdx::operator++(void) {
+    IdxValLink* p=l;
+    l = p->idx_next;
+    while ((l != NULL) && l->marked())
+      l=l->idx_next;
+    p->idx_next=l;
+  }
+  forceinline int
+  IterIdx::val(void) const {
+    assert(!l->marked());
+    return l->idx;
+  }
+
+
+
+  /**
+   * \brief Value iterator for values in index-value map
+   *
+   * Note that the iterated value sequence is not strictly
+   * increasing (might contain duplicates).
+   */
+  class IterVal {
+  private:
+    const IdxValLink* l;
+  public:
+    IterVal(void);
+    IterVal(const IdxValLink&);
+    void init(const IdxValLink&);
+    bool operator()(void) const;
+    void operator++(void);
+    int  val(void) const;
+  };
+
+  forceinline
+  IterVal::IterVal(void) {}
+  forceinline
+  IterVal::IterVal(const IdxValLink& ivl)
+    : l(ivl.val_next) {}
+  forceinline void
+  IterVal::init(const IdxValLink& ivl) {
+    l = ivl.val_next;
+  }
+  forceinline bool
+  IterVal::operator()(void) const {
+    return l != NULL;
+  }
+  forceinline void
+  IterVal::operator++(void) {
+    l=l->val_next;
+  }
+  forceinline int
+  IterVal::val(void) const {
+    assert(!l->marked());
+    return l->val;
+  }
+
+
+
+
+  /**
+   * \brief Class for index-value map
+   *
+   */
+  class IdxValMap {
+  private:
+    /// Sorting pointers to (index,value) pairs in value order
+    class ByVal {
+    public:
+      bool operator()(IdxValLink*&, IdxValLink*&);
+    };
+    size_t _size;
+    IdxValLink iv[1];
+  public:
+    /// Allocating and initializing the data structure
+    static IdxValMap* allocate(int);
+    template <class ViewA> void init(int*,ViewA);
+
+    /// Pruning from variables on data structure
+    template <class ViewA> void prune_idx(ViewA);
+    template <class ViewB> void prune_val(ViewB);
+
+    /// Telling data structure to variables: returns true if at fixpoint
+    template <class ViewA, class ViewB>
+    ExecStatus tell(Space*,ViewA,ViewB);
+
+    size_t size(void) const;
+    static void operator delete(void* p,size_t);
+  private:
+    static void* operator new(size_t);
+  };
+
+  forceinline bool
+  IdxValMap::ByVal::operator()(IdxValLink*& x, IdxValLink*& y) {
+    return x->val < y->val;
+  }
+
+  forceinline IdxValMap*
+  IdxValMap::allocate(int n) {
+    size_t s = sizeof(IdxValMap)+n*sizeof(IdxValLink);
+    IdxValMap* ivm = static_cast<IdxValMap*>(Memory::malloc(s));
+    ivm->_size = s;
+    return ivm;
+  }
+
+  forceinline size_t
+  IdxValMap::size(void) const {
+    return _size;
+  }
+
+  template <class ViewA>
+  inline void
+  IdxValMap::init(int* a, ViewA ix) {
+    // The first element in iv[0] is used as sentinel
+    // Enter information sorted by idx
+    IdxValLink* by_idx = &iv[1];
+    {
+      int i = 0;
+      ViewValues<ViewA> v(ix);
+      while (v()) {
+        by_idx[i].idx = v.val();
+        by_idx[i].val = a[v.val()];
+        ++i; ++v;
+      }
+    }
+    int size = ix.size();
+    // Create val links sorted by val
+    GECODE_AUTOARRAY(IdxValLink*,by_val,size);
+    for (int i = size; i--; )
+      by_val[i] = &iv[i+1];
+    ByVal lt;
+    Support::quicksort<IdxValLink*>(by_val,size,lt);
+    // Create idx and val links
+    for (int i = size-1; i--; ) {
+      by_idx[i].idx_next  = by_idx+i+1;
+      by_val[i]->val_next = by_val[i+1];
+    }
+    by_idx[size-1].idx_next  = NULL;
+    by_val[size-1]->val_next = NULL;
+    // Set up sentinel element: iv[0]
+    iv[0].idx_next = &by_idx[0];
+    iv[0].val_next = by_val[0];
+  }
+
+  template <class ViewA>
+  forceinline void
+  IdxValMap::prune_idx(ViewA x0) {
+    IdxValLink* p = &iv[0];
+    IdxValLink* l = p->idx_next;
+    ViewRanges<ViewA> i(x0);
+    while (i() && (l != NULL)) {
+      assert(!l->marked());
+      if (l->idx < i.min()) {
+        l->mark(); l=l->idx_next; p->idx_next=l;
+      } else if (l->idx > i.max()) {
+        ++i;
+      } else {
+        p=l; l=l->idx_next;
+      }
+    }
+    p->idx_next = NULL;
+    while (l != NULL) { l->mark(); l=l->idx_next; }
+  }
+
+  template <class ViewB>
+  forceinline void
+  IdxValMap::prune_val(ViewB x1) {
+    IdxValLink* p = &iv[0];
+    IdxValLink* l = p->val_next;
+    ViewRanges<ViewB> v(x1);
+    while (v() && (l != NULL)) {
+      if (l->marked()) {
+        l=l->val_next; p->val_next=l;
+      } else if (l->val < v.min()) {
+        l->mark(); l=l->val_next; p->val_next=l;
+      } else if (l->val > v.max()) {
+        ++v;
+      } else {
+        p=l; l=l->val_next;
+      }
+    }
+    p->val_next = NULL;
+    while (l != NULL) { l->mark(); l=l->val_next; }
+  }
+
+  template <class ViewA, class ViewB>
+  forceinline ExecStatus
+  IdxValMap::tell(Space* home, ViewA x0, ViewB x1) {
+    IterIdx i(iv[0]);
+    GECODE_ME_CHECK(x0.narrow_v(home,i,false));
+    IterVal v(iv[0]);
+    if (shared(x0,x1)) {
+      GECODE_ME_CHECK(x1.inter_v(home,v,false));
+      return ES_NOFIX;
+    } else {
+      GECODE_ME_CHECK(x1.narrow_v(home,v,false));
+      return ES_FIX;
+    }
+  }
+
+  forceinline void
+  IdxValMap::operator delete(void* p,size_t) {
+    Memory::free(p);
+  }
+
+
+
+
+  /*
+   * Element propagator proper
+   *
+   */
+
+
+  template <class ViewA, class ViewB>
+  forceinline
+  Int<ViewA,ViewB>::Int(Space* home, IntSharedArray& c0, ViewA y0, ViewB y1)
+    : Propagator(home), x0(y0), x1(y1), c(c0), ivm(NULL) {
+    force(home);
+    x0.subscribe(home,this,PC_INT_DOM);
+    x1.subscribe(home,this,PC_INT_DOM);
+  }
+
+  template <class ViewA, class ViewB>
+  forceinline size_t
+  Int<ViewA,ViewB>::dispose(Space* home) {
+    unforce(home);
+    if (!home->failed()) {
+      x0.cancel(home,this,PC_INT_DOM);
+      x1.cancel(home,this,PC_INT_DOM);
+    }
+    c.~IntSharedArray();
+    delete ivm;
+    (void) Propagator::dispose(home);
+    return sizeof(*this);
+  }
+
+  template <class ViewA, class ViewB>
+  ExecStatus
+  Int<ViewA,ViewB>::post(Space* home, IntSharedArray& c, ViewA x0, ViewB x1) {
+    GECODE_ME_CHECK(x0.gq(home,0));
+    GECODE_ME_CHECK(x0.le(home,c.size()));
+    if (x0.assigned()) {
+      GECODE_ME_CHECK(x1.eq(home,c[x0.val()]));
+    } else {
+      (void) new (home) Int<ViewA,ViewB>(home,c,x0,x1);
+    }
+    return ES_OK;
+  }
+
+
+  template <class ViewA, class ViewB>
+  size_t
+  Int<ViewA,ViewB>::allocated(void) const {
+    return (ivm != NULL) ? ivm->size() : 0;
+  }
+
+  template <class ViewA, class ViewB>
+  forceinline
+  Int<ViewA,ViewB>::Int(Space* home, bool share, Int& p)
+    : Propagator(home,share,p), ivm(NULL) {
+    c.update(home,share,p.c);
+    x0.update(home,share,p.x0);
+    x1.update(home,share,p.x1);
+  }
+
+  template <class ViewA, class ViewB>
+  Actor*
+  Int<ViewA,ViewB>::copy(Space* home, bool share) {
+    return new (home) Int<ViewA,ViewB>(home,share,*this);
+  }
+
+  template <class ViewA, class ViewB>
+  PropCost
+  Int<ViewA,ViewB>::cost(ModEventDelta) const {
+    return PC_BINARY_HI;
+  }
+
+  template <class ViewA, class ViewB>
+  inline Support::Symbol
+  Int<ViewA,ViewB>::ati(void) {
+    return Reflection::mangle<ViewA,ViewB>("Gecode::Int::Element::Int");
+  }
+
+  template <class ViewA, class ViewB>
+  Reflection::ActorSpec
+  Int<ViewA,ViewB>::spec(const Space* home, Reflection::VarMap& m) const {
+    Reflection::ActorSpec s(ati());
+    return s << x0.spec(home, m)
+             << x1.spec(home, m)
+             << Reflection::Arg::newIntArray(c);
+  }
+
+  template <class ViewA, class ViewB>
+  void
+  Int<ViewA,ViewB>::post(Space* home, Reflection::VarMap& vars,
+                         const Reflection::ActorSpec& spec) {
+    spec.checkArity(3);
+    ViewA x0(home, vars, spec[0]);
+    ViewB x1(home, vars, spec[1]);
+    Reflection::IntArrayArg* a = spec[2]->toIntArray();
+    IntSharedArray is(a->size());
+    for (int i=a->size(); i--; ) {
+      is[i] = (*a)[i];
+    }
+    (void) new (home) Int<ViewA,ViewB>(home, is, x0, x1);
+  }
+
+  template <class ViewA, class ViewB>
+  ExecStatus
+  Int<ViewA,ViewB>::propagate(Space* home, ModEventDelta) {
+    if (ivm == NULL) {
+      ivm = IdxValMap::allocate(x0.size());
+      ivm->init(&c[0],x0);
+    } else {
+      ivm->prune_idx(x0);
+    }
+    ivm->prune_val(x1);
+
+    ExecStatus es = ivm->tell(home,x0,x1);
+    if (es == ES_FAILED)
+      return ES_FAILED;
+
+    return (x0.assigned() || x1.assigned()) ? 
+      ES_SUBSUMED(this,home) : es;
+  }
+
+}}}
+
+
+// STATISTICS: int-prop
+