From e317b6c9318766eabda53d9dc6e9cdac55aae34b Mon Sep 17 00:00:00 2001 From: Adrian Kummerlaender Date: Sun, 1 Feb 2015 12:57:22 +0100 Subject: Added `TakeWhile` higher order list operation * as its name implies this function returns the longest initial prefix of a list that satisfies a given _Predicate_ * added appropriate test case --- test.cc | 38 +++++++++++++++++++++++++++++++++++++- 1 file changed, 37 insertions(+), 1 deletion(-) (limited to 'test.cc') diff --git a/test.cc b/test.cc index 014a974..6accc0e 100644 --- a/test.cc +++ b/test.cc @@ -12,6 +12,7 @@ #include "list/operation/higher/partition.h" #include "list/operation/higher/query.h" #include "list/operation/higher/find.h" +#include "list/operation/higher/take_while.h" #include "list/generator/iota.h" #include "list/generator/make_list.h" #include "list/generator/higher/list_tabulate.h" @@ -683,7 +684,7 @@ static_assert( "(count even? (list 1 3 5)) != 0" ); -//list find +// list find static_assert( std::is_same< @@ -718,6 +719,41 @@ static_assert( "(find even? (list 1 3 5)) != #f" ); +// list take while + +static_assert( + std::is_same< + tav::List, tav::Int<4>>::type, + tav::TakeWhile< + tav::Even, + tav::List, tav::Int<4>, tav::Int<5>, tav::Int<6>>::type + >::type + >::value, + "(take-while even? (list 2 4 5 6)) != (list 2 4)" +); + +static_assert( + std::is_same< + tav::List, tav::Int<4>, tav::Int<6>>::type, + tav::TakeWhile< + tav::Even, + tav::List, tav::Int<4>, tav::Int<6>>::type + >::type + >::value, + "(take-while even? (list 2 4 6)) != (list 2 4 6)" +); + +static_assert( + std::is_same< + void, + tav::TakeWhile< + tav::Odd, + tav::List, tav::Int<4>, tav::Int<5>, tav::Int<6>>::type + >::type + >::value, + "(take-while odd? (list 2 4 5 6)) != void" +); + // function apply static_assert( -- cgit v1.2.3