Возможно ли наличие шаблона посещения без гражданства на С++?

Я пытался перевести следующий код Haskell на С++:

data List t = Nil | Cons t (List t)

Прямой перевод типа алгебраических данных в шаблон Visitor без учета состояния дает следующий код Java

interface List<T> {
  <R> R accept(ListVisitor<T,R> v);
}

interface ListVisitor<T,R> {
  R visitNil();
  R visitCons(T head, List<T> tail);
}

class Nil<T> implements List<T> {
  @Override
  public <R> R accept(ListVisitor<T,R> v) {
    return v.visitNil();
  }
}

class Cons<T> implements List<T> {
  public final T head;
  public final List<T> tail;
  public Cons(T head, List<T> tail) {
    this.head = head;
    this.tail = tail;
  }
  @Override
  public <R> R accept(ListVisitor<T,R> v) {
    return v.visitCons(head, tail);
  }
}

Ниже приведен код С++, который у меня есть до сих пор:

template<class T> class List;

template<class T, class R> class ListVisitor {
  virtual R visitNil() = 0;
  virtual R visitCons(T head, List<T> tail) = 0;
};

template<class T> class List {
  template<class R> virtual R accept(ListVisitor<T,R> v) = 0;
};

Обратите внимание, что версия Java использует виртуальную общую функцию accept. Когда я переводил его на С++, я получаю функцию виртуального шаблона, которая не разрешена С++.

Есть ли решение для него, кроме как сделать accept return void и требовать, чтобы посетители были с сохранением состояния?

Update: В соответствии с запросом, вот несколько примеров того, как можно использовать интерфейсы (по модулю интеллектуальных указателей и возможных ошибок компиляции):

template<class T> struct LengthVisitor : ListVisitor<T, int> {
  bool visitNil() { return 0; }
  bool visitCons(const T&, const List<T> &tail) { return 1 + tail.accept(*this); }
};

template<class T> struct ConcatVisitor : ListVisitor<T, const List<T> *> {
  const List<T> *right;
  ConcatVisitor(const List<T> *right) : right(right) {} 
  List<T> * visitNil() { return right; }
  List<T> * visitCons(const T &head, const List<T> & tail) {
    return new Cons(head, tail.accept(*this));
  }
};

Другой пример: более высокая функция fold в Java может быть найдена здесь: http://hpaste.org/54650

Ответ 1

Это, безусловно, можно улучшить (например, использовать интеллектуальные указатели для владения хвостом), но основная идея:

template <typename T>
struct cons_list {
     T head;
     cons_list<T>* tail;

     explicit cons_list(T head, cons_list *tail = nullptr)
         : head(head), tail(tail) {}

     template <template<typename> class Visitor>
     typename Visitor<T>::return_type accept(const Visitor<T>& visitor) {
          return visitor.visit(head, tail);
     }
};

template <typename T>
struct some_visitor {
     typedef void return_type;

     return_type visit(T head, cons_list<T>* tail) const {
          std::cout << head << '\n';
          if (tail != nullptr) tail->accept(*this);
     }
};

Демо. Нет необходимости в виртуальной диспетчеризации и иерархиях классов. nullptr - это С++ 11, но он должен работать нормально на 03.

Возможно, было бы лучше реализовать accept как бесплатную функцию, а не использовать нулевые указатели как nil node, но, как я уже сказал, это основная вещь.

Примечание: это более или менее идея boost:: static_visitor.

Полная версия С++ 11 Boost.Variant(требует псевдонимов шаблонов). Не проверено, потому что у меня нет g++ 4.7 рядом.

struct nil_node {};
template <typename T> cons_node;

template <typename T>
using cons_list = boost::make_recursive_variant<
     nil_node, cons_node<T>
>::type;

template <typename T>
struct cons_node {
     T head;
     cons_list<T> tail;

     explicit cons_node(T head, const cons_list<T>& tail)
         : head(head), tail(tail)
     {}
};

template <typename T>
struct some_visitor : boost::static_visitor<T> {
     void operator()(nil_node&) {}
     void operator()(cons_node<T>& node) {
         std::cout << node.head << '\n';
         boost::apply_visitor(node.tail, *this);
     }
};

int main() {
    cons_node<int> x(1, cons_node<int>(2, cons_node<int>(3, nil_node())));
    boost::apply_visitor(some_visitor<int>(), x);
};