Changeset 584 for library/bdm/itpp_ext.cpp

Timestamp:

08/27/09 15:39:33 (15 years ago)

Author:

smidl

Message:

new function unique(ivec) and its test in RV_test

Files:

• library/bdm/itpp_ext.cpp (modified) (1 diff)

library/bdm/itpp_ext.cpp

@@ -398 +398 @@
 vec randun(int n){vec res(n); for(int i=0;i<n;i++){res(i)=randun();}; return res;};
 mat randun(int n, int m){mat res(n,m); for(int i=0;i<n*m;i++){res(i)=randun();}; return res;};
-
-}
+ivec unique (const ivec &in)
+{
+        ivec uniq (0);
+        int j = 0;
+        bool found = false;
+        for (int i = 0;i < in.length(); i++) {
+                found = false;
+                j = 0;
+                while ( (!found) && (j < uniq.length())) {
+                        if (in (i) == uniq (j)) found = true;
+                        j++;
+                }
+                if (!found) uniq = concat (uniq, in (i));
+        }
+        return uniq;
+}
+
+}