several extensions and convenience features are conceivable, but I'll postpone all of them for later, when actual need arises Note especially there is one recurring design challenge, when creating such a demand-driven tree evaluation: more often than not it turns out that "downstream" will need some information about the nested tree structure, even while, on the surfice, it looks as if the evaluation could be working completely "linearised". Often, such a need arises from diagnostic features, and sometimes we want to invoke another API, which in turn could benefit from knowing something about the original tree structure, even if just abstracted. I have no real solution for this problem, but implementing this pipeline builder leads to a pragmatic workaround: since the iterator already exposes a expandChildren(), it may as well expose a depth() call, even while keeping anything beyond that opaque. This is not the clean solution you'd like, but it comes without any overhead and does not really break the abstraction.
1010 lines
44 KiB
C++
1010 lines
44 KiB
C++
/*
|
|
IterTreeExplorer(Test) - verify tree expanding and backtracking iterator
|
|
|
|
Copyright (C) Lumiera.org
|
|
2017, Hermann Vosseler <Ichthyostega@web.de>
|
|
|
|
This program is free software; you can redistribute it and/or
|
|
modify it under the terms of the GNU General Public License as
|
|
published by the Free Software Foundation; either version 2 of
|
|
the License, or (at your option) any later version.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with this program; if not, write to the Free Software
|
|
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
|
|
|
* *****************************************************/
|
|
|
|
/** @file iter-tree-explorer-test.cpp
|
|
** The \ref IterTreeExplorer_test covers and demonstrates a generic mechanism
|
|
** to expand and evaluate tree like structures. In its current shape (as of 2017),
|
|
** it can be seen as an preliminary step towards retrofitting IterExplorer into
|
|
** a framework of building blocks for tree expanding and backtracking evaluations.
|
|
** Due to the nature of Lumiera's design, we repeatedly encounter this kind of
|
|
** algorithms, when it comes to matching configuration and parametrisation against
|
|
** a likewise hierarchical and rules based model. To keep the code base maintainable,
|
|
** we deem it crucial to reduce the inherent complexity in such algorithms by clearly
|
|
** separate the _mechanics of evaluation_ from the actual logic of the target domain.
|
|
**
|
|
** Similar to IterExplorer_test, the his test relies on a demonstration setup featuring
|
|
** a custom encapsulated state type: we rely on a counter with start and end value,
|
|
** embedded into an iterator. Basically, this running counter, when iterated, generates
|
|
** a descending sequence of numbers start ... end.
|
|
** So -- conceptually -- this counting iterator can be thought to represent this
|
|
** sequence of numbers. Note that this is a kind of abstract or conceptual
|
|
** representation, not a factual representation of the sequence in memory.
|
|
** The whole point is _not to represent_ this sequence in runtime state at once,
|
|
** rather to pull and expand it on demand.
|
|
**
|
|
** All these tests work by first defining these _functional structures_, which just
|
|
** yields an iterator entity. We get the whole structure it conceptually defines
|
|
** only if we "pull" this iterator until exhaustion -- which is precisely what
|
|
** the test does to verify proper operation. Real world code of course would
|
|
** just not proceed in this way, like pulling everything from such an iterator.
|
|
** Often, the very reason we're using such a setup is the ability to represent
|
|
** infinite structures. Like e.g. the evaluation graph of video passed through
|
|
** a complex processing pipeline.
|
|
*/
|
|
|
|
|
|
|
|
#include "lib/test/run.hpp"
|
|
#include "lib/test/test-helper.hpp"
|
|
#include "lib/iter-adapter-stl.hpp"
|
|
#include "lib/format-string.hpp"
|
|
#include "lib/format-cout.hpp"
|
|
#include "lib/format-util.hpp"
|
|
#include "lib/itertools.hpp"
|
|
#include "lib/util.hpp"
|
|
|
|
#include "lib/iter-tree-explorer.hpp"
|
|
#include "lib/meta/trait.hpp"
|
|
|
|
#include <utility>
|
|
#include <vector>
|
|
#include <limits>
|
|
#include <string>
|
|
#include <tuple>
|
|
|
|
|
|
namespace lib {
|
|
namespace test{
|
|
|
|
using ::Test;
|
|
using util::_Fmt;
|
|
using util::isnil;
|
|
using util::isSameObject;
|
|
using lib::iter_stl::eachElm;
|
|
using lumiera::error::LUMIERA_ERROR_ITER_EXHAUST;
|
|
using std::vector;
|
|
using std::string;
|
|
|
|
|
|
namespace { // test substrate: simple number sequence iterator
|
|
|
|
/**
|
|
* This iteration _"state core" type_ describes
|
|
* a descending sequence of numbers yet to be delivered.
|
|
*/
|
|
struct CountDown
|
|
{
|
|
uint p,e;
|
|
|
|
CountDown(uint start =0, uint end =0)
|
|
: p(start)
|
|
, e(end)
|
|
{ }
|
|
|
|
bool
|
|
checkPoint () const
|
|
{
|
|
return p > e;
|
|
}
|
|
|
|
uint&
|
|
yield () const
|
|
{
|
|
return util::unConst (checkPoint()? p : e);
|
|
}
|
|
|
|
void
|
|
iterNext ()
|
|
{
|
|
if (not checkPoint()) return;
|
|
--p;
|
|
}
|
|
};
|
|
|
|
|
|
/**
|
|
* A straight descending number sequence as basic test iterator.
|
|
* It is built wrapping an opaque "state core" (of type CountDown).
|
|
* @note the "state core" is not accessible from the outside
|
|
*/
|
|
class NumberSequence
|
|
: public IterStateWrapper<uint, CountDown>
|
|
{
|
|
|
|
public:
|
|
explicit
|
|
NumberSequence(uint start = 0)
|
|
: IterStateWrapper<uint,CountDown> (CountDown{start})
|
|
{ }
|
|
NumberSequence(uint start, uint end)
|
|
: IterStateWrapper<uint,CountDown> (CountDown(start,end))
|
|
{ }
|
|
};
|
|
|
|
|
|
|
|
/**
|
|
* Another iteration _"state core"_ to produce a sequence of random numbers.
|
|
* Used to build an infinite random search space...
|
|
*/
|
|
class RandomSeq
|
|
{
|
|
size_t lim_;
|
|
size_t cnt_;
|
|
char letter_;
|
|
|
|
static char
|
|
rndLetter()
|
|
{
|
|
return 'A' + rand() % 26;
|
|
}
|
|
|
|
public:
|
|
RandomSeq(int len =0)
|
|
: lim_{len>=0? len : std::numeric_limits<size_t>::max()}
|
|
, cnt_{0}
|
|
, letter_{rndLetter()}
|
|
{ }
|
|
|
|
bool
|
|
checkPoint () const
|
|
{
|
|
return cnt_ < lim_;
|
|
}
|
|
|
|
char&
|
|
yield () const
|
|
{
|
|
return unConst(this)->letter_;
|
|
}
|
|
|
|
void
|
|
iterNext ()
|
|
{
|
|
ASSERT (checkPoint());
|
|
++cnt_;
|
|
letter_ = rndLetter();
|
|
}
|
|
};
|
|
|
|
|
|
/** Diagnostic helper: join all the elements from a _copy_ of the iterator */
|
|
template<class II>
|
|
inline string
|
|
materialise (II&& ii)
|
|
{
|
|
return util::join (std::forward<II> (ii), "-");
|
|
}
|
|
|
|
/** Diagnostic helper: "squeeze out" the given iterator until exhaustion */
|
|
template<class II>
|
|
inline void
|
|
pullOut (II & ii)
|
|
{
|
|
while (ii)
|
|
{
|
|
cout << *ii;
|
|
if (++ii) cout << "-";
|
|
}
|
|
cout << endl;
|
|
}
|
|
|
|
} // (END) test helpers
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/*******************************************************************//**
|
|
* @test use a simple source iterator yielding numbers
|
|
* to build various functional evaluation structures,
|
|
* based on the \ref IterExplorer template.
|
|
* - the [state adapter](\ref verifyStateAdapter() )
|
|
* iterator construction pattern
|
|
* - helper to [chain iterators](\ref verifyChainedIterators() )
|
|
* - building [tree exploring structures](\ref verifyDepthFirstExploration())
|
|
* - the [monadic nature](\ref verifyMonadOperator()) of IterExplorer
|
|
* - a [recursively self-integrating](\ref verifyRecrusiveSelfIntegration())
|
|
* evaluation pattern
|
|
*
|
|
* ## Explanation
|
|
*
|
|
* Both this test and the IterExplorer template might be bewildering
|
|
* and cryptic, unless you know the *Monad design pattern*. »Monads«
|
|
* are heavily used in functional programming, actually they originate
|
|
* from Category Theory. Basically, Monad is a pattern where we combine
|
|
* several computation steps in a specific way; but instead of intermingling
|
|
* the individual computation steps and their combination, the goal is to
|
|
* isolate and separate the _mechanics of combination_, so we can focus on
|
|
* the actual _computation steps:_ The mechanics of combination are embedded
|
|
* into the Monad type, which acts as a kind of container, holding some entities
|
|
* to be processed. The actual processing steps are then attached to the monad as
|
|
* "function object" parameters. It is up to the monad to decide if, and when
|
|
* those processing steps are applied to the embedded values and how to combine
|
|
* the results into a new monad.
|
|
*
|
|
* Using the monad pattern is well suited when both the mechanics of
|
|
* combination and the individual computation steps tend to be complex.
|
|
* In such a situation, it is beneficial to develop and test both
|
|
* in isolation. The IterExplorer template applies this pattern
|
|
* to the task of processing a source sequence. Typically we use
|
|
* this in situations where we can't afford building elaborate
|
|
* data structures in (global) memory, but rather strive at
|
|
* doing everything on-the-fly. A typical example is the
|
|
* processing of a variably sized data set without
|
|
* using heap memory for intermediary results.
|
|
*
|
|
* @see TreeExplorer
|
|
* @see IterAdapter
|
|
*/
|
|
class IterTreeExplorer_test : public Test
|
|
{
|
|
|
|
virtual void
|
|
run (Arg)
|
|
{
|
|
verify_wrappedState();
|
|
verify_wrappedIterator();
|
|
|
|
verify_expandOperation();
|
|
verify_transformOperation();
|
|
verify_combinedExpandTransform();
|
|
verify_FilterIterator();
|
|
verify_asIterSource();
|
|
|
|
verify_depthFirstExploration();
|
|
demonstrate_LayeredEvaluation();
|
|
}
|
|
|
|
|
|
|
|
/** @test without using any extra functionality,
|
|
* TreeExplorer just wraps an iterable state.
|
|
*/
|
|
void
|
|
verify_wrappedState()
|
|
{
|
|
auto ii = treeExplore (CountDown{5,0});
|
|
CHECK (!isnil (ii));
|
|
CHECK (5 == *ii);
|
|
++ii;
|
|
CHECK (4 == *ii);
|
|
pullOut(ii);
|
|
CHECK ( isnil (ii));
|
|
CHECK (!ii);
|
|
|
|
VERIFY_ERROR (ITER_EXHAUST, *ii );
|
|
VERIFY_ERROR (ITER_EXHAUST, ++ii );
|
|
|
|
ii = treeExplore (CountDown{5});
|
|
CHECK (materialise(ii) == "5-4-3-2-1");
|
|
ii = treeExplore (CountDown{7,4});
|
|
CHECK (materialise(ii) == "7-6-5");
|
|
ii = treeExplore (CountDown{});
|
|
CHECK ( isnil (ii));
|
|
CHECK (!ii);
|
|
}
|
|
|
|
|
|
/** @test TreeExplorer is able to wrap any _Lumiera Forward Iterator_ */
|
|
void
|
|
verify_wrappedIterator()
|
|
{
|
|
vector<int> numz{1,-2,3,-5,8,-13};
|
|
auto ii = eachElm(numz);
|
|
CHECK (!isnil (ii));
|
|
CHECK (1 == *ii);
|
|
++ii;
|
|
CHECK (-2 == *ii);
|
|
|
|
auto jj = treeExplore(ii);
|
|
CHECK (!isnil (jj));
|
|
CHECK (-2 == *jj);
|
|
++jj;
|
|
CHECK (3 == *jj);
|
|
|
|
// we passed a LValue-Ref, thus a copy was made
|
|
CHECK (-2 == *ii);
|
|
|
|
CHECK (materialise(ii) == "-2-3--5-8--13");
|
|
CHECK (materialise(jj) == "3--5-8--13");
|
|
|
|
// can even adapt STL container automatically
|
|
auto kk = treeExplore(numz);
|
|
CHECK (!isnil (kk));
|
|
CHECK (1 == *kk);
|
|
CHECK (materialise(kk) == "1--2-3--5-8--13");
|
|
}
|
|
|
|
|
|
|
|
/** @test use a preconfigured "expand" functor to recurse into children.
|
|
* The `expand()` builder function predefines a way how to _expand_ the current
|
|
* head element of the iteration. However, expansion does not happen automatically,
|
|
* rather, it needs to be invoked by the client, similar to increment of the iterator.
|
|
* When expanding, the current head element is consumed and fed into the expand functor;
|
|
* the result of this functor invocation is injected instead into the result sequence,
|
|
* and consequently this result needs to be again an iterable with compatible value type.
|
|
* Conceptually, the evaluation _forks into the children of the expanded element_, before
|
|
* continuing with the successor of the expansion point. Obviously, expansion can be applied
|
|
* again on the result of the expansion, possibly leading to a tree of side evaluations.
|
|
*
|
|
* The expansion functor may be defined in various ways and will be adapted appropriately
|
|
* - it may follow the classical "monadic pattern", i.e. take individual _values_ and return
|
|
* a _"child monad"_, which is then "flat mapped" (integrated) into the resulting iteration
|
|
* - the resulting child collection may be returned as yet another iterator, which is then
|
|
* moved by the implementation into the stack of child sequences currently in evaluation
|
|
* - or alternatively the resulting child collection may be returned just as a "state core",
|
|
* which can be adapted into a _iterable state_ (see lib::IterStateWrapper).
|
|
* - or it may even return the reference to a STL collection existing elsewhere,
|
|
* which will then be iterated to yield the child elements
|
|
* - and, quite distinct to the aforementioned "monadic" usage, the expansion functor
|
|
* may alternatively be written in a way as to collaborate with the "state core" used
|
|
* when building the TreeExplorer. In this case, the functor typically takes a _reference_
|
|
* to this underlying state core or iterator. The purpose for this definition variant is
|
|
* to allow exploring a tree-like evaluation, without the need to disclose anything about
|
|
* the backing implementation; the expansion functor just happens to know the implementation
|
|
* type of the "state core" and manipulate it through its API to create a "derived core"
|
|
* representing a _child evaluation state_.
|
|
* - and finally, there is limited support for _generic lambdas._ In this case, the implementation
|
|
* will try to instantiate the passed lambda by using the concrete source iterator type as argument.
|
|
*
|
|
* @note expansion functor may use side-effects and indeed return something entirely different
|
|
* than the original sequence, as long as it is iterable and yields compatible values.
|
|
*/
|
|
void
|
|
verify_expandOperation()
|
|
{
|
|
/* == "monadic flatMap" == */
|
|
|
|
verify_treeExpandingIterator(
|
|
treeExplore(CountDown{5})
|
|
.expand([](uint j){ return CountDown{j-1}; }) // expand-functor: Val > StateCore
|
|
);
|
|
|
|
verify_treeExpandingIterator(
|
|
treeExplore(CountDown{5})
|
|
.expand([](uint j){ return NumberSequence{j-1}; }) // expand-functor: Val > Iter
|
|
); // NOTE: different Iterator type than the source!
|
|
|
|
// lambda with side-effect and return type different from source iter
|
|
vector<vector<uint>> childBuffer;
|
|
auto expandIntoChildBuffer = [&](uint j) -> vector<uint>&
|
|
{
|
|
childBuffer.emplace_back();
|
|
vector<uint>& childNumbz = childBuffer.back();
|
|
for (size_t i=0; i<j-1; ++i)
|
|
childNumbz.push_back(j-1 - i);
|
|
return childNumbz;
|
|
};
|
|
|
|
verify_treeExpandingIterator(
|
|
treeExplore(CountDown{5})
|
|
.expand(expandIntoChildBuffer) // expand-functor: Val > STL-container&
|
|
);
|
|
|
|
// test routine called the expansion functor five times
|
|
CHECK (5 == childBuffer.size());
|
|
|
|
|
|
|
|
/* == "state manipulation" use cases == */
|
|
|
|
verify_treeExpandingIterator(
|
|
treeExplore(CountDown{5})
|
|
.expand([](CountDown const& core){ return CountDown{ core.yield() - 1}; }) // expand-functor: StateCore const& -> StateCore
|
|
);
|
|
|
|
verify_treeExpandingIterator(
|
|
treeExplore(CountDown{5})
|
|
.expand([](CountDown core){ return NumberSequence{ core.yield() - 1}; }) // expand-functor: StateCore -> Iter
|
|
);
|
|
|
|
#if false /////////////////////////////////////////////////////////////////////////////////////////////////////////////TICKET #1118 : GDB Segfault on loading the inferior
|
|
/////////////////////////////////////////////////////////////////////////////////////////////////////////////TICKET #1118 : Generated code works just fine and passes Test though
|
|
verify_treeExpandingIterator(
|
|
treeExplore(CountDown{5})
|
|
.expand([](auto & it){ return CountDown{ *it - 1}; }) // generic Lambda: Iter& -> StateCore
|
|
);
|
|
|
|
verify_treeExpandingIterator(
|
|
treeExplore(CountDown{5})
|
|
.expand([](auto it){ return decltype(it){ *it - 1}; }) // generic Lambda: Iter -> Iter
|
|
);
|
|
#endif /////////////////////////////////////////////////////////////////////////////////////////////////////////////TICKET #1118 : GDB Segfault on loading the inferior
|
|
}
|
|
|
|
|
|
template<class EXP>
|
|
void
|
|
verify_treeExpandingIterator(EXP ii)
|
|
{
|
|
CHECK (!isnil (ii));
|
|
CHECK (5 == *ii);
|
|
++ii;
|
|
CHECK (4 == *ii);
|
|
|
|
CHECK (0 == ii.depth());
|
|
ii.expandChildren();
|
|
CHECK (3 == *ii);
|
|
CHECK (1 == ii.depth());
|
|
++ii;
|
|
CHECK (2 == *ii);
|
|
CHECK (1 == ii.depth());
|
|
ii.expandChildren();
|
|
CHECK (1 == *ii);
|
|
CHECK (2 == ii.depth());
|
|
++ii;
|
|
CHECK (1 == *ii);
|
|
CHECK (1 == ii.depth());
|
|
++ii;
|
|
CHECK (3 == *ii);
|
|
CHECK (0 == ii.depth());
|
|
CHECK (materialise(ii) == "3-2-1");
|
|
ii.expandChildren();
|
|
CHECK (1 == ii.depth());
|
|
CHECK (materialise(ii) == "2-1-2-1");
|
|
++++ii;
|
|
CHECK (0 == ii.depth());
|
|
CHECK (materialise(ii) == "2-1");
|
|
ii.expandChildren();
|
|
CHECK (1 == ii.depth());
|
|
CHECK (materialise(ii) == "1-1");
|
|
++ii;
|
|
CHECK (0 == ii.depth());
|
|
CHECK (1 == *ii);
|
|
CHECK (materialise(ii) == "1");
|
|
ii.expandChildren();
|
|
CHECK (isnil (ii));
|
|
VERIFY_ERROR (ITER_EXHAUST, *ii );
|
|
VERIFY_ERROR (ITER_EXHAUST, ++ii );
|
|
}
|
|
|
|
|
|
/** @test pipe each result through a transformation function.
|
|
* The _transforming iterator_ is added as a decorator, wrapping the original iterator,
|
|
* TreeEplorer or state core. As you'd expect, the given functor is required to accept
|
|
* compatible argument types, and a generic lambda is instantiated to take a reference
|
|
* to the embedded iterator's value type. Several transformation steps can be chained,
|
|
* and the resulting entity is again a Lumiera Forward Iterator with suitable value type.
|
|
* The transformation function is invoked only once per step and the result produced by
|
|
* this invocation is placed into a holder buffer embedded within the iterator.
|
|
* @note since the implementation uses the same generic adaptor framework,
|
|
* the transformation functor may be defined with the same variations
|
|
* as described for the expand-operation above. In theory, it might
|
|
* collaborate with the embedded "state core" type, thereby possibly
|
|
* bypassing other decorators added below.
|
|
* @warning don't try this at home
|
|
*/
|
|
void
|
|
verify_transformOperation()
|
|
{
|
|
auto multiply = [](int v){ return 2*v; }; // functional map: value -> value
|
|
|
|
_Fmt embrace{"≺%s≻"};
|
|
auto formatify = [&](auto it){ return string{embrace % *it}; }; // generic lambda: assumed to take an Iterator&
|
|
|
|
|
|
auto ii = treeExplore (CountDown{7,4})
|
|
.transform(multiply)
|
|
;
|
|
|
|
CHECK (14 == *ii);
|
|
++ii;
|
|
CHECK (12 == *ii);
|
|
++ii;
|
|
CHECK (10 == *ii);
|
|
++ii;
|
|
CHECK (isnil (ii));
|
|
VERIFY_ERROR (ITER_EXHAUST, *ii );
|
|
VERIFY_ERROR (ITER_EXHAUST, ++ii );
|
|
|
|
|
|
|
|
// demonstrate chaining of several transformation layers
|
|
vector<int64_t> numz{1,-2,3,-5,8,-13};
|
|
|
|
CHECK ("≺1≻-≺-2≻-≺3≻-≺-5≻-≺8≻-≺-13≻" == materialise (treeExplore(numz)
|
|
.transform(formatify)) );
|
|
|
|
CHECK ("≺2≻-≺-4≻-≺6≻-≺-10≻-≺16≻-≺-26≻" == materialise (treeExplore(numz)
|
|
.transform(multiply)
|
|
.transform(formatify)) );
|
|
|
|
CHECK ("≺≺4≻≻-≺≺-8≻≻-≺≺12≻≻-≺≺-20≻≻-≺≺32≻≻-≺≺-52≻≻" == materialise (treeExplore(numz)
|
|
.transform(multiply)
|
|
.transform(multiply)
|
|
.transform(formatify)
|
|
.transform(formatify)) );
|
|
|
|
|
|
// demonstrate the functor is evaluated only once per step
|
|
int fact = 3;
|
|
|
|
auto jj = treeExplore (CountDown{4})
|
|
.transform([&](int v)
|
|
{
|
|
v *=fact;
|
|
fact *= -2;
|
|
return v;
|
|
});
|
|
CHECK (3*4 == *jj);
|
|
CHECK (fact == -2*3);
|
|
|
|
CHECK (3*4 == *jj);
|
|
CHECK (3*4 == *jj);
|
|
|
|
++jj;
|
|
CHECK (fact == -2*3); // NOTE : functor is evaluated on first demand
|
|
CHECK (-2*3*3 == *jj); // ...which happens on yield (access the iterator value)
|
|
CHECK (fact == 2*2*3); // and this also causes the side-effect
|
|
CHECK (-2*3*3 == *jj);
|
|
CHECK (-2*3*3 == *jj);
|
|
CHECK (fact == 2*2*3); // no further evaluation and thus no further side-effect
|
|
|
|
++jj;
|
|
CHECK (2*2*3*2 == *jj);
|
|
CHECK (fact == -2*2*2*3);
|
|
|
|
fact = -23;
|
|
CHECK (2*2*3*2 == *jj);
|
|
|
|
++jj;
|
|
CHECK (fact == -23);
|
|
CHECK (-23*1 == *jj);
|
|
CHECK (fact == 2*23);
|
|
|
|
++jj;
|
|
CHECK (isnil (jj));
|
|
CHECK (fact == 2*23);
|
|
|
|
VERIFY_ERROR (ITER_EXHAUST, *ii );
|
|
CHECK (fact == 2*23); // exhaustion detected on source and thus no further evaluation
|
|
|
|
|
|
|
|
// demonstrate a transformer accessing the source state core...
|
|
// should not be relevant in practice, but works due to the generic adapters
|
|
auto kk = treeExplore(CountDown{9,4})
|
|
.transform([](CountDown& core)
|
|
{
|
|
uint delta = core.p - core.e;
|
|
if (delta % 2 == 0)
|
|
--core.p; // EVIL EVIL
|
|
return delta;
|
|
});
|
|
|
|
CHECK (5 == *kk); // the delta between 9 (start) and 4 (end)
|
|
++kk;
|
|
CHECK (4 == *kk); // Core manipulated by SIDE-EFFECT at this point...
|
|
CHECK (4 == *kk); // ...but not yet obvious, since the result is cached
|
|
++kk;
|
|
CHECK (2 == *kk); // Surprise -- someone ate my numberz...
|
|
++kk;
|
|
CHECK (isnil (kk));
|
|
}
|
|
|
|
|
|
/** @test combine the recursion into children with a tail mapping operation.
|
|
* Wile basically this is just the layering structure of TreeExplorer put into action,
|
|
* you should note one specific twist: the iter_explorer::Expander::expandChildren() call
|
|
* is meant to be issued from ``downstream'', from the consumer side. Yet the consumer at
|
|
* that point might well see the items as processed by a transforming step layered on top.
|
|
* So what the consumer sees and thinks will be expanded need not actually be what will
|
|
* be processed by the _expand functor_. This may look like a theoretical or cosmetic
|
|
* issue -- yet in fact it is this tiny detail which is crucial to make abstraction of
|
|
* the underlying data source actually work in conjunction with elaborate searching and
|
|
* matching algorithms. Even more so, when other operations like filtering are intermingled;
|
|
* in that case it might even happen that the downstream consumer does not even see the
|
|
* items resulting from child expansion, because they are evaluated and then filtered
|
|
* away by a transformer and filter placed in between.
|
|
* @note as a consequence of the flexible automatic adapting of bound functors, it is
|
|
* possible for bound functors within different "layers" to collaborate, based on
|
|
* additional knowledge regarding the embedded data source internals. This test
|
|
* demonstrates a transform functor, which takes the _source iterator_ as argument
|
|
* and invokes `it.expandChildren()` to manipulate the underlying evaluation.
|
|
* However, since the overall evaluation is demand driven, there are inherent
|
|
* limitations to such a setup, which bends towards fragility when leaving
|
|
* the realm of pure functional evaluation.
|
|
*/
|
|
void
|
|
verify_combinedExpandTransform()
|
|
{
|
|
auto ii = treeExplore(CountDown{5})
|
|
.expand([](uint j){ return CountDown{j-1}; })
|
|
.transform([](int v){ return 2*v; })
|
|
;
|
|
|
|
CHECK ("int" == meta::typeStr(*ii)); // result type is what the last transformer yields
|
|
CHECK (10 == *ii);
|
|
++ii;
|
|
CHECK (8 == *ii);
|
|
ii.expandChildren();
|
|
CHECK ("6-4-2-6-4-2" == materialise(ii) );
|
|
|
|
|
|
// the following contrived example demonstrates
|
|
// how intermediary processing steps may interact
|
|
|
|
CHECK (materialise (
|
|
treeExplore(CountDown{5})
|
|
.expand([](uint j){ return CountDown{j-1}; })
|
|
.transform([](int v){ return 2*v; })
|
|
.transform([](auto& it)
|
|
{
|
|
auto elm = *it;
|
|
if (elm == 6)
|
|
{
|
|
it.expandChildren(); // NOTE at that point we're forced to decide if
|
|
elm = *it * 10; // we want to return the parent or the 1st child
|
|
}
|
|
return elm;
|
|
})
|
|
.transform([](float f){ return 0.055 + f/2; })
|
|
)
|
|
== "5.055-4.055-20.055-1.055-2.055-1.055" );
|
|
}
|
|
|
|
|
|
|
|
/** @test add a filtering predicate into the pipeline.
|
|
* As in all the previously demonstrated cases, also the _filtering_ is added as decorator,
|
|
* wrapping the source and all previously attached decoration layers. And in a similar way,
|
|
* various kinds of functors can be bound, and will be adapted automatically to work as a
|
|
* predicate to approve the elements to yield.
|
|
*/
|
|
void
|
|
verify_FilterIterator()
|
|
{
|
|
// canonical example, using a clean side-effect free predicate based on element values
|
|
CHECK (materialise (
|
|
treeExplore(CountDown{10})
|
|
.filter([](uint j){ return j % 2; })
|
|
)
|
|
== "9-7-5-3-1");
|
|
|
|
|
|
// Filter may lead to consuming util exhaustion...
|
|
auto ii = treeExplore(CountDown{10})
|
|
.filter([](int j){ return j > 9; });
|
|
|
|
CHECK (not isnil (ii));
|
|
CHECK (10 == *ii);
|
|
++ ii;
|
|
CHECK (isnil (ii));
|
|
VERIFY_ERROR (ITER_EXHAUST, ++ii );
|
|
|
|
|
|
// none of the source elements can be approved here...
|
|
auto jj = treeExplore(CountDown{5})
|
|
.filter([](int j){ return j > 9; });
|
|
|
|
CHECK (isnil (jj));
|
|
|
|
|
|
|
|
// a tricky example, where the predicate takes the source core as argument;
|
|
// since the source core is embedded as baseclass, it can thus "undermine"
|
|
// and bypass the layers configured in between; here the transformer changes
|
|
// uint to float, but the filter interacts directly with the core and thus
|
|
// judges based on the original values
|
|
CHECK (materialise (
|
|
treeExplore(CountDown{10,4})
|
|
.transform([](float f){ return 0.55 + 2*f; })
|
|
.filter([](CountDown& core){ return core.p % 2; })
|
|
)
|
|
== "18.55-14.55-10.55");
|
|
|
|
|
|
|
|
// another convoluted example to demonstrate
|
|
// - a filter predicate with side-effect
|
|
// - and moreover the predicate is a generic lambda
|
|
// - accepting the iterator to trigger child expansion
|
|
// - which also causes re-evaluation of the preceding transformer
|
|
bool toggle = false;
|
|
auto kk = treeExplore(CountDown{10,5})
|
|
.expand([](uint j){ return CountDown{j-1}; })
|
|
.transform([](int v){ return 2*v; })
|
|
.filter([&](auto& it)
|
|
{
|
|
if (*it == 16)
|
|
{
|
|
it.expandChildren();
|
|
toggle = true;
|
|
}
|
|
return toggle;
|
|
});
|
|
|
|
CHECK (materialise(kk)
|
|
== "14-12-10-8-6-4-2-14-12");
|
|
// Explanation:
|
|
// The source starts at 10, but since the toggle is false,
|
|
// none of the initial values makes it though to the result.
|
|
// The interspersed transformer doubles the source values, and
|
|
// thus at source == 8 the trigger value (16) is hit. Thus the
|
|
// filter now flips the context-bound toggle (side-effect) and
|
|
// then expands children, which consumes current source value 8
|
|
// to replace it with the sequence 7,6,5,4,3,2,1, followed by
|
|
// the rest of the original sequence, 7,6 (which stops above 5).
|
|
|
|
CHECK (materialise(kk.filter([](long i){ return i % 7; }))
|
|
== "12-10-8-6-4-2-12");
|
|
// Explanation:
|
|
// Since the original TreeExplorer was assigned to variable kk,
|
|
// the materialise()-Function got a lvalue-ref and thus made a copy
|
|
// of the whole compound. For that reason, the original state within
|
|
// kk still rests at 7 -- because the filter evaluates eagerly, the
|
|
// source was pulled right at construction until we reached the first
|
|
// value to yield, which is the first child (7,....) within the
|
|
// expanded sequence. But now, in the second call to materialise(),
|
|
// we don't just copy, rather we add another filter layer on top,
|
|
// which happens to filter away this first result (== 2*7), and
|
|
// also the first element of the original sequence after the
|
|
// expanded children
|
|
|
|
// WARNING: kk is now defunct, since we moved it into the builder expression
|
|
// and then moved the resulting extended iterator into materialise!
|
|
}
|
|
|
|
|
|
|
|
/** @test package the resulting Iterator as automatically managed,
|
|
* polymorphic opaque entity implementing the IterSource interface.
|
|
* The builder operations on TreeExplorer each generate a distinct, implementation
|
|
* defined type, which is meant to be captured by `auto`. However, the terminal builder
|
|
* function `asIterSource()` moves the whole compound iterator object, as generated by
|
|
* preceding builder steps, into a heap allocation and exposes a simplified front-end,
|
|
* which is only typed to the result value type. Obviously, the price to pay comes in
|
|
* terms of virtual function calls for iteration, delegating to the pipeline backend.
|
|
* - thus a variable typed to that front-end, `IterSource<VAL>` is polymorphic and
|
|
* can be reassigned at runtime with an entirely different pipeline.
|
|
* - but this structure also has the downside, that the implementation no longer
|
|
* resides directly within the iterator: several front-end copies share the
|
|
* same back-end. Note however that the behaviour of iterators copied this
|
|
* way is _implementation defined_ anyway. There is never a guarantee that
|
|
* a clone copy evolves with state independent from its ancestor; it just
|
|
* happens to work this way in many simple cases. You should never use
|
|
* more than one copy of a given iterator at any time, and you should
|
|
* discard it, when done with iteration.
|
|
* - actually, the returned front-end offers an extended API over plain vanilla
|
|
* `IterSource<T>::iterator`, to expose the `expandChildren()` operation.
|
|
*/
|
|
void
|
|
verify_asIterSource()
|
|
{
|
|
IterSource<uint>::iterator sequence; // note `sequence` is polymorphic
|
|
CHECK (isnil (sequence));
|
|
|
|
sequence = treeExplore(CountDown{20,10})
|
|
.filter([](uint i){ return i % 2; })
|
|
.asIterSource(); // note this terminal builder function
|
|
// moves the whole pipeline onto the heap
|
|
CHECK (not isnil (sequence));
|
|
CHECK (19 == *sequence);
|
|
|
|
|
|
// use one sequence as source to build another one
|
|
sequence = treeExplore(sequence)
|
|
.transform([](uint i){ return i*2; })
|
|
.asIterSource();
|
|
|
|
CHECK (38 == *sequence);
|
|
CHECK ("38-34-30-26-22" == materialise(sequence));
|
|
|
|
// WARNING pitfall: `sequence` is a copyable iterator front-end
|
|
// but holds onto the actual pipeline by shared-ptr
|
|
// Thus, even while materialise() creates a copy,
|
|
// the iteration state gets shared....
|
|
CHECK (22 == *sequence);
|
|
++sequence; // ...and even worse, iteration end is only detected after increment
|
|
CHECK (isnil (sequence));
|
|
|
|
|
|
// extended API to invoke child expansion opaquely
|
|
IterExploreSource<char> exploreIter;
|
|
CHECK (isnil (exploreIter));
|
|
|
|
exploreIter = treeExplore(CountDown{20,10})
|
|
.filter([](uint i){ return i % 2; })
|
|
.transform([](uint i){ return i*2; })
|
|
.filter([](int i){ return i>25; })
|
|
.expand([](uint i){ return CountDown{i-10, 20}; })
|
|
.transform([](uint u) -> char { return '@'+u-20; })
|
|
.asIterSource();
|
|
|
|
|
|
CHECK ('R' == *exploreIter); // 38-20 + '@'
|
|
++exploreIter;
|
|
CHECK ('N' == *exploreIter); // 34-20 + '@'
|
|
|
|
exploreIter.expandChildren(); // expand consumes the current element (34)
|
|
// and injects the sequence (24...20[ instead
|
|
CHECK ('D' == *exploreIter); // 34-10 == 24 and 'D' == 24-20 + '@'
|
|
|
|
CHECK ("D-C-B-A-J-F" == materialise(exploreIter));
|
|
} // note how the remainder of the original sequence is picked up with 'J'...
|
|
|
|
|
|
|
|
/** @test use a preconfigured exploration scheme to expand depth-first until exhaustion.
|
|
* This is a simple extension where all elements are expanded automatically. In fact, the
|
|
* `expandChildren()` operation implies already an iteration step, namely to dispose of the
|
|
* parent element before injecting the expanded child elements. Based on that observation,
|
|
* when we just replace the regular iteration step by a call to `expandChildren()`, we'll
|
|
* encounter first the parent element and then delve depth-first into exploring the children.
|
|
* @note such continued expansion leads to infinite iteration, unless the _expand functor_
|
|
* contains some kind of termination condition.
|
|
* - in the first example, we spawn a child sequence with starting point one below
|
|
* the current element's value. And since such a sequence is defined to terminate
|
|
* when reaching zero, we'll end up spawning an empty sequence at leaf nodes, which
|
|
* prompts the evaluation mechanism to pop back to the last preceding expansion.
|
|
* - the second example demonstrates how to use value tuples for the intermediary
|
|
* computation. In this case, we only generate a linear chain of children,
|
|
* thereby summing up all encountered values. Termination is checked
|
|
* explicitly in this case, returning an empty child iterator.
|
|
*/
|
|
void
|
|
verify_depthFirstExploration()
|
|
{
|
|
CHECK (materialise(
|
|
treeExplore(CountDown{4})
|
|
.expand([](uint j){ return CountDown{j-1}; })
|
|
.expandAll()
|
|
.transform([](int i){ return i*10; })
|
|
)
|
|
== "40-30-20-10-10-20-10-10-30-20-10-10-20-10-10");
|
|
|
|
|
|
using std::get;
|
|
using Tu2 = std::tuple<uint, uint>;
|
|
auto summingExpander = [](Tu2 const& tup)
|
|
{
|
|
uint val = get<0>(tup);
|
|
uint sum = get<1>(tup);
|
|
return val? singleValIterator (Tu2{val-1, sum+val})
|
|
: SingleValIter<Tu2>();
|
|
};
|
|
|
|
CHECK (materialise(
|
|
treeExplore(CountDown{4})
|
|
.transform([](uint i){ return Tu2{i,0}; })
|
|
.expand(summingExpander)
|
|
.expandAll()
|
|
.transform([](Tu2 res){ return get<1>(res); })
|
|
)
|
|
== "0-4-7-9-10-0-3-5-6-0-2-3-0-1");
|
|
}
|
|
|
|
|
|
|
|
/** @test Demonstration how to build complex algorithms by layered tree expanding iteration
|
|
* @remarks this is the actual use case which inspired the design of TreeExplorer:
|
|
* Search with backtracking over an opaque (abstracted), tree-shaped search space.
|
|
* - the first point to note is that the search algorithm knows nothing about its
|
|
* data source, beyond its ability to delve down (expand) into child nodes
|
|
* - in fact our data source for this test here is "infinite", since it is an
|
|
* very large random root sequence, where each individual number can be expanded
|
|
* into a limited random sub sequence, down to arbitrary depth. We just assume
|
|
* that the search has good chances to find its target sequence eventually and
|
|
* thus only ever visits a small fraction of the endless search space.
|
|
* - on top of this (opaque) tree navigation we build a secondary search pipeline
|
|
* based on a state tuple, which holds onto the underlying data source
|
|
* - the actual decision logic to guide the search lives within the filter predicate
|
|
* to pull for the first acceptable solution, i.e. a path down from root where
|
|
* each node matches the next element from the search string. It is from here
|
|
* that the `expandChildren()` function is actually triggered, whenever we've
|
|
* found a valid match on the current level. The (random) data source was chosen
|
|
* such as to make it very likely to find a match eventually, but also to produce
|
|
* some partial matches followed by backtracking
|
|
* - note how the "downstream" processing accesses the `depth()` information exposed
|
|
* on the opaque data source to react on navigation into nested scopes: here, we use
|
|
* this feature to create a protocol of the search to indicate the actual "winning path"
|
|
*/
|
|
void
|
|
demonstrate_LayeredEvaluation()
|
|
{
|
|
// Layer-1: the search space with "hidden" implementation
|
|
using DataSrc = IterExploreSource<char>;
|
|
DataSrc searchSpace = treeExplore(RandomSeq{-1})
|
|
.expand([](char){ return RandomSeq{15}; })
|
|
.asIterSource();
|
|
|
|
// Layer-2: State for search algorithm
|
|
struct State
|
|
{
|
|
DataSrc& src;
|
|
string& toFind;
|
|
vector<uint> protocol;
|
|
|
|
State(DataSrc& s, string& t)
|
|
: src{s}
|
|
, toFind{t}
|
|
, protocol{0}
|
|
{ }
|
|
|
|
bool
|
|
checkPoint() const
|
|
{
|
|
return src;
|
|
}
|
|
|
|
State&
|
|
yield() const
|
|
{
|
|
return *unConst(this);
|
|
}
|
|
|
|
void
|
|
iterNext()
|
|
{
|
|
++src;
|
|
protocol.resize (1+src.depth());
|
|
++protocol.back();
|
|
}
|
|
|
|
void
|
|
expandChildren()
|
|
{
|
|
src.expandChildren();
|
|
protocol.resize (1+src.depth());
|
|
}
|
|
|
|
bool
|
|
isMatch() const
|
|
{
|
|
ASSERT (src.depth() < toFind.size());
|
|
return *src == toFind[src.depth()];
|
|
}
|
|
};
|
|
|
|
|
|
// Layer-3: Evaluation pipeline to drive search
|
|
string toFind = util::join (treeExplore (RandomSeq{5}), "");
|
|
cout << "Search in random tree: toFind = "<<toFind<<endl;
|
|
|
|
auto theSearch = treeExplore(State{searchSpace, toFind})
|
|
.filter([](auto& it)
|
|
{
|
|
while (it->src.depth() < it->toFind.size() - 1
|
|
and it->isMatch())
|
|
it->expandChildren();
|
|
|
|
return it->isMatch();
|
|
});
|
|
|
|
|
|
// perform the search over a random tree...
|
|
CHECK (not isnil(theSearch));
|
|
cout << "Protocol of the search: " << materialise(theSearch->protocol) <<endl;
|
|
}
|
|
};
|
|
|
|
|
|
|
|
LAUNCHER (IterTreeExplorer_test, "unit common");
|
|
|
|
|
|
}} // namespace lib::test
|
|
|