subsets.cc File Reference

#include "Singular/libsingular.h"
#include <vector>

Go to the source code of this file.

Functions
static void	s_subset (std::vector< int > &arr, int size, int left, int index, std::vector< int > &l, std::vector< std::vector< int > > &L)
static BOOLEAN	subsets (leftv res, leftv args)
int SI_MOD_INIT()	subsets (SModulFunctions *p)

Function Documentation

s_subset()

static void s_subset ( std::vector< int > &  arr, int  size, int  left, int  index, std::vector< int > &  l, std::vector< std::vector< int > > &  L  )

static

Definition at line 11 of file subsets.cc.

{
  if(left==0)
  {
    L.push_back(l);
    return;
  }
 
  for(int i=index; i<size;i++)
  {
    l.push_back(arr[i]);
    s_subset(arr,size,left-1,i+1,l,L);
    l.pop_back();
  }
}

subsets() [1/2]

static BOOLEAN subsets ( leftv  res, leftv  args  )

static

Definition at line 32 of file subsets.cc.

{
  leftv u = args;
  if ((u!=NULL) && (u->Typ()==INT_CMD))
  {
    leftv v = u->next;
    if ((v!=NULL) && (v->Typ()==INT_CMD) && (v->next==NULL))
    {
      int n = (int)(long) u->Data();
      int k = (int)(long) v->Data();
      std::vector<int> array(n);
      for (int i=0; i<n; i++)
        array[i]=i+1;
      std::vector<int> ltemp;
      std::vector<std::vector<int> > lt;
      s_subset(array,n,k,0,ltemp,lt);
 
      lists Lt = (lists) omAllocBin(slists_bin);
      Lt->Init(lt.size());
      for (unsigned i=0; i<lt.size(); i++)
      {
        std::vector<int> lti = lt[i];
        lists Lti = (lists) omAllocBin(slists_bin);
        Lti->Init(k);
        for(unsigned j=0; j<lti.size(); j++)
        {
          Lti->m[j].rtyp = INT_CMD;
          Lti->m[j].data = (void*)(long)lti[j];
        }
        Lt->m[i].rtyp = LIST_CMD;
        Lt->m[i].data = (void*) Lti;
      }
 
      res->rtyp = LIST_CMD;
      res->data = (void*) Lt;
      return FALSE;
    }
  }
  WerrorS("subsets: unexpected parameter");
  return TRUE;
}

subsets() [2/2]

int SI_MOD_INIT() subsets

(

SModulFunctions *

p

)

Definition at line 76 of file subsets.cc.

{
  p->iiAddCproc("subsets.so","subsets",FALSE,subsets);
  return (MAX_TOK);
}