From 1d7023c368d68a983faaee4c22fa6700a89393f8 Mon Sep 17 00:00:00 2001 From: Adrian Kummerlaender Date: Thu, 22 Jan 2015 18:27:20 +0100 Subject: Implemented Scheme like `Concatenate` in terms of `Fold` and `Append` * added appropriate test case --- src/list/list.h | 1 + src/list/operation/concatenate.h | 18 ++++++++++++++++++ 2 files changed, 19 insertions(+) create mode 100644 src/list/operation/concatenate.h (limited to 'src/list') diff --git a/src/list/list.h b/src/list/list.h index b89e1ca..5c67872 100644 --- a/src/list/list.h +++ b/src/list/list.h @@ -31,5 +31,6 @@ using Tail = Cdr; #include "operation/basic.h" #include "operation/append.h" +#include "operation/concatenate.h" #endif // TYPEASVALUE_SRC_LIST_LIST_H_ diff --git a/src/list/operation/concatenate.h b/src/list/operation/concatenate.h new file mode 100644 index 0000000..944470b --- /dev/null +++ b/src/list/operation/concatenate.h @@ -0,0 +1,18 @@ +#ifndef TYPEASVALUE_SRC_LIST_OPERATION_CONCATENATE_H_ +#define TYPEASVALUE_SRC_LIST_OPERATION_CONCATENATE_H_ + +#include "append.h" +#include "higher/fold.h" + +namespace tav { + +template +using Concatenate = Fold< + Append, + void, + ListOfLists +>; + +} + +#endif // TYPEASVALUE_SRC_LIST_OPERATION_CONCATENATE_H_ -- cgit v1.2.3