add verbose variable for testing, update tensor and dimension repo

ypermutation_t/src/is_good.c

@@ -90,7 +90,7 @@ TEST(expect){
   int b = 6;
   EXPECT_EQ(a,b);
   //SKIP();
-  SKIP("on skip eq string\n");
+  SKIP("%s","on skip eq string\n");
   EXPECT_EQ_TYPE_STRING("hello","hello");
   float f1 = 1.00019999, f2=1.00019999;
   EXPECT_EQ_TYPE_FLOAT(f1,f2);

ypermutation_t/src/permutation_t/permutation_t.c

@@ -41,6 +41,13 @@ int sign(long int a){
     p->perm = malloc(size * sizeof(type));\
     return p;\
   }\
+  PERMUTATION_##type * INIT_PERMUTATION_##type(type *perm, size_t size){\
+    if (size == 0) return NULL;\
+    PERMUTATION_##type *p = CREATE_PERMUTATION_##type(size);\
+    p->perm = malloc(size*sizeof(type));\
+    for(size_t i=0;i<size;++i) p->perm[i] = perm[i];\
+    return p;\
+  }\
 \
   PERMUTATION_TYPE_SIZE_T * TRANSLATE_TO_SET_THEORIC_SIZE_T_##type(const PERMUTATION_##type *p ){\
     if (p == NULL) return NULL;\

ypermutation_t/src/permutation_t/permutation_t.h

@@ -19,6 +19,7 @@
 \
   typedef struct PERMUTATION_##type PERMUTATION_##type;\
   PERMUTATION_##type * CREATE_PERMUTATION_##type(size_t size);\
+  PERMUTATION_##type * INIT_PERMUTATION_##type(type *perm, size_t size);\
   PERMUTATION_TYPE_SIZE_T * TRANSLATE_TO_SET_THEORIC_SIZE_T_##type(const PERMUTATION_##type *p );\
   bool IS_PERMUTATION_##type(const PERMUTATION_##type *p );\
 size_t TabToPlaceAlgo_##type(const PERMUTATION_##type *p);\