deque-blog

deque-blog / traversal_3_variation_step.cpp

Last active January 8, 2017 16:35

	struct VariationCount
	{
	boost::optional<double> m_initial;
	int m_count;
	};

	struct CountVariationBiggerThan
	{
	CountVariationBiggerThan(double limit) : m_limit(limit) {}
	double m_limit;

deque-blog / traversal_3_fold_algorithm.cpp

Last active January 9, 2017 19:18

	template<typename Range, typename... Steps>
	auto fold(Range const& rng, Steps... steps)
	{
	return std::accumulate(
	rng.begin(), rng.end(),
	std::make_tuple(steps()...),
	par_steps(steps...));
	}

deque-blog / traversal_3_fold_algorithm_usage.cpp

Last active January 9, 2017 19:21

deque-blog / traversal_3_raw_accumulate_usage.cpp

Created January 8, 2017 16:43

deque-blog / traversal_3_fold_summarizing.cpp

Created January 9, 2017 19:34

	auto to_nice_result = [](auto min, auto avg, auto big) {
	return batch_result{ min, avg.m_value, big.m_count };
	};

	auto typed = apply(to_nice_result, fold_result);
	std::cout
	<< "Result summary:\n"
	<< " - Minimum: " << typed.m_minimum << "\n"
	<< " - Average: " << typed.m_average << "\n"
	<< " - Variations: " << typed.m_variation_count << "\n";

deque-blog / dsl_arithmetic_1_expr.hs

Created January 15, 2017 16:56

	type Id = String
	data OpType = Add \| Mul deriving (Show, Eq, Ord)

	data Expr
	= Cst Int
	\| Var Id
	\| Op OpType [Expr]
	deriving (Show, Eq, Ord)

deque-blog / dsl_arithmetic_1_ctors.hs

Created January 16, 2017 19:58

deque-blog / dsl_arithmetic_expression.hs

Created January 16, 2017 19:59

deque-blog / dsl_arithmetic_1_prn.hs

Created January 16, 2017 20:00

	prn :: Expr -> String
	prn (Cst n) = show n
	prn (Var v) = v
	prn (Op Add xs) = "(+ " ++ unwords (map prn xs) ++ ")"
	prn (Op Mul xs) = "(* " ++ unwords (map prn xs) ++ ")"

deque-blog / dsl_arithmetic_1_prn_test.hs

Last active January 17, 2017 17:11