Rcpp Version 1.0.9
setdiff.h
Go to the documentation of this file.
1 // -*- mode: C++; c-indent-level: 4; c-basic-offset: 4; tab-width: 8 -*-
2 //
3 // setdiff.h: Rcpp R/C++ interface class library -- setdiff
4 //
5 // Copyright (C) 2012 - 2014 Dirk Eddelbuettel and Romain Francois
6 //
7 // This file is part of Rcpp.
8 //
9 // Rcpp is free software: you can redistribute it and/or modify it
10 // under the terms of the GNU General Public License as published by
11 // the Free Software Foundation, either version 2 of the License, or
12 // (at your option) any later version.
13 //
14 // Rcpp is distributed in the hope that it will be useful, but
15 // WITHOUT ANY WARRANTY; without even the implied warranty of
16 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 // GNU General Public License for more details.
18 //
19 // You should have received a copy of the GNU General Public License
20 // along with Rcpp. If not, see <http://www.gnu.org/licenses/>.
21 
22 #ifndef Rcpp__sugar__setdiff_h
23 #define Rcpp__sugar__setdiff_h
24 
25 namespace Rcpp{
26 namespace sugar{
27 
28  template <typename SET>
29  class RemoveFromSet {
30  public:
31  RemoveFromSet( SET& set_) : set(set_){}
32 
33  template <typename T>
34  void operator()(T value){
35  set.erase( value );
36  }
37 
38  private:
39  SET& set ;
40  } ;
41 
42  template <int RTYPE, bool LHS_NA, typename LHS_T, bool RHS_NA, typename RHS_T>
43  class SetDiff {
44  public:
46 
47  SetDiff( const LHS_T& lhs, const RHS_T& rhs) :
50  {
51 
52  std::for_each( rhs_set.begin(), rhs_set.end(), RemoveFromSet<SET>(lhs_set) ) ;
53  }
54 
55  Vector<RTYPE> get() const {
56  R_xlen_t n = lhs_set.size() ;
57  Vector<RTYPE> out = no_init(n) ;
58  std::copy( lhs_set.begin(), lhs_set.end(), out.begin() ) ;
59  return out ;
60  }
61 
62  private:
63  typedef RCPP_UNORDERED_SET<STORAGE> SET ;
64  typedef typename SET::const_iterator ITERATOR ;
67 
68  } ;
69 
70  template <int RTYPE, bool LHS_NA, typename LHS_T, bool RHS_NA, typename RHS_T>
71  class SetEqual {
72  public:
74 
75  SetEqual( const LHS_T& lhs, const RHS_T& rhs) :
78  {
79  }
80 
81  bool get() const {
82  if( lhs_set.size() != rhs_set.size() ) return false ;
83 
84  ITERATOR it = lhs_set.begin(), end = lhs_set.end(), rhs_end = rhs_set.end() ;
85  for( ; it != end; ){
86  if( rhs_set.find(*it++) == rhs_end ) return false ;
87  }
88  return true ;
89  }
90 
91  private:
92  typedef RCPP_UNORDERED_SET<STORAGE> SET ;
93  typedef typename SET::const_iterator ITERATOR ;
96 
97  } ;
98 
99  template <int RTYPE, bool LHS_NA, typename LHS_T, bool RHS_NA, typename RHS_T>
100  class Intersect {
101  public:
103 
104  Intersect( const LHS_T& lhs, const RHS_T& rhs) :
105  intersect()
106  {
107 
108  SET lhs_set( get_const_begin(lhs), get_const_end(lhs) ) ;
109  SET rhs_set( get_const_begin(rhs), get_const_end(rhs) ) ;
110 
111  ITERATOR end = lhs_set.end() ;
112  ITERATOR rhs_end = rhs_set.end() ;
113  for( ITERATOR it=lhs_set.begin(); it != end; it++){
114  if( rhs_set.find(*it) != rhs_end ) intersect.insert(*it) ;
115  }
116  }
117 
118  Vector<RTYPE> get() const {
119  R_xlen_t n = intersect.size() ;
120  Vector<RTYPE> out = no_init(n) ;
121  std::copy( intersect.begin(), intersect.end(), out.begin() ) ;
122  return out ;
123  }
124 
125  private:
126  typedef RCPP_UNORDERED_SET<STORAGE> SET ;
127  typedef typename SET::const_iterator ITERATOR ;
129 
130  } ;
131 
132  template <int RTYPE, bool LHS_NA, typename LHS_T, bool RHS_NA, typename RHS_T>
133  class Union {
134  public:
136 
137  Union( const LHS_T& lhs, const RHS_T& rhs) :
138  result( get_const_begin(lhs), get_const_end(lhs) )
139  {
140  result.insert( get_const_begin(rhs), get_const_end(rhs) ) ;
141  }
142 
143  Vector<RTYPE> get() const {
144  R_xlen_t n = result.size() ;
145  Vector<RTYPE> out = no_init(n) ;
146  std::copy( result.begin(), result.end(), out.begin() ) ;
147  return out ;
148  }
149 
150  private:
151  typedef RCPP_UNORDERED_SET<STORAGE> SET ;
152  typedef typename SET::const_iterator ITERATOR ;
154 
155  } ;
156 
157 
158 } // sugar
159 
160 template <int RTYPE, bool LHS_NA, typename LHS_T, bool RHS_NA, typename RHS_T>
163 }
164 
165 template <int RTYPE, bool LHS_NA, typename LHS_T, bool RHS_NA, typename RHS_T>
168 }
169 
170 template <int RTYPE, bool LHS_NA, typename LHS_T, bool RHS_NA, typename RHS_T>
173 }
174 
175 // we cannot use "union" because it is a keyword
176 template <int RTYPE, bool LHS_NA, typename LHS_T, bool RHS_NA, typename RHS_T>
179 }
180 
181 
182 
183 } // Rcpp
184 #endif
185 
VECTOR & get_ref()
Definition: VectorBase.h:37
iterator begin()
Definition: Vector.h:334
Intersect(const LHS_T &lhs, const RHS_T &rhs)
Definition: setdiff.h:104
RCPP_UNORDERED_SET< STORAGE > SET
Definition: setdiff.h:126
Vector< RTYPE > get() const
Definition: setdiff.h:118
Rcpp::traits::storage_type< RTYPE >::type STORAGE
Definition: setdiff.h:102
SET::const_iterator ITERATOR
Definition: setdiff.h:127
RemoveFromSet(SET &set_)
Definition: setdiff.h:31
void operator()(T value)
Definition: setdiff.h:34
Vector< RTYPE > get() const
Definition: setdiff.h:55
RCPP_UNORDERED_SET< STORAGE > SET
Definition: setdiff.h:63
Rcpp::traits::storage_type< RTYPE >::type STORAGE
Definition: setdiff.h:45
SetDiff(const LHS_T &lhs, const RHS_T &rhs)
Definition: setdiff.h:47
SET::const_iterator ITERATOR
Definition: setdiff.h:64
SetEqual(const LHS_T &lhs, const RHS_T &rhs)
Definition: setdiff.h:75
RCPP_UNORDERED_SET< STORAGE > SET
Definition: setdiff.h:92
SET::const_iterator ITERATOR
Definition: setdiff.h:93
bool get() const
Definition: setdiff.h:81
Rcpp::traits::storage_type< RTYPE >::type STORAGE
Definition: setdiff.h:73
Vector< RTYPE > get() const
Definition: setdiff.h:143
RCPP_UNORDERED_SET< STORAGE > SET
Definition: setdiff.h:151
Union(const LHS_T &lhs, const RHS_T &rhs)
Definition: setdiff.h:137
Rcpp::traits::storage_type< RTYPE >::type STORAGE
Definition: setdiff.h:135
SET::const_iterator ITERATOR
Definition: setdiff.h:152
sugar_const_iterator_type< T >::type get_const_end(const T &obj)
Definition: iterator.h:148
sugar_const_iterator_type< T >::type get_const_begin(const T &obj)
Definition: iterator.h:138
Rcpp API.
Definition: algo.h:28
Vector< RTYPE > union_(const VectorBase< RTYPE, LHS_NA, LHS_T > &lhs, const VectorBase< RTYPE, RHS_NA, RHS_T > &rhs)
Definition: setdiff.h:177
Vector< RTYPE > setdiff(const VectorBase< RTYPE, LHS_NA, LHS_T > &lhs, const VectorBase< RTYPE, RHS_NA, RHS_T > &rhs)
Definition: setdiff.h:161
no_init_vector no_init(R_xlen_t size)
Definition: no_init.h:77
bool setequal(const VectorBase< RTYPE, LHS_NA, LHS_T > &lhs, const VectorBase< RTYPE, RHS_NA, RHS_T > &rhs)
Definition: setdiff.h:166
Vector< RTYPE > intersect(const VectorBase< RTYPE, LHS_NA, LHS_T > &lhs, const VectorBase< RTYPE, RHS_NA, RHS_T > &rhs)
Definition: setdiff.h:171