From ad27a79a2e6bc380e68ec77ae961917a9fb402d3 Mon Sep 17 00:00:00 2001
From: Adrian Kummerlaender
Date: Thu, 12 Feb 2015 10:16:54 +0100
Subject: Revamped partial function application * moved internals into separate
 header i.e. the `detail` namespace relating to `Apply` * implemented
 automatic alias selection by implementing aliae of the basic variadic `type`
 template alias in different base classes ** variadic partial application is
 implemented in `detail::apply_variadic` *** `detail::apply_single` and
 `detail::apply_pair` define aliae to `detail::apply_variadic`'s `type`
 template alias *** both restricted aliae derive from `detail::apply_variadic`
 ** `Apply` derives from any of the aliae defining base classes depending on
 the count of placeholders as determined by `detail::count_placeholders` ***
 `Apply` is guaranteed to always be derived from `detail::apply_variadic` one
 way or the other * changed functions, test cases and examples depending on
 `Apply` accordingly ** `Length` had to be reimplemented without `Apply` as it
 doesn't allow usage of aliae expecting a different count of arguments anymore
 *** this is a advantage in the sense that core functionality of _TypeAsValue_
 now doesn't depend on this complex partial application implementation anymore
 *** such functionality may be reimplemented separately from `Apply` * removed
 unnecessary `tav` namespace prefixes

---
 src/list/operation/basic.h | 21 ++++++++++++++-------
 1 file changed, 14 insertions(+), 7 deletions(-)

(limited to 'src/list/operation/basic.h')

diff --git a/src/list/operation/basic.h b/src/list/operation/basic.h
index cbbe22c..b4aa35a 100644
--- a/src/list/operation/basic.h
+++ b/src/list/operation/basic.h
@@ -2,17 +2,24 @@
 #define TYPEASVALUE_SRC_LIST_OPERATION_BASIC_H_
 
 #include "higher/fold.h"
-#include "function/apply.h"
 #include "operation/math.h"
 
 namespace tav {
 
-template <typename Pair>
-using Length = Fold<
-	Apply<Add, Size<1>, _1>::pair_type,
-	Size<0>,
-	Pair
->;
+template <typename Cons>
+class Length {
+	private:
+		template <typename, typename Accumulated>
+		using accumulate = Add<Size<1>, Accumulated>;
+
+	public:
+		typedef typename Fold<
+			accumulate,
+			Size<0>,
+			Cons
+		>::type type;
+
+};
 
 }
 
-- 
cgit v1.2.3