-module(cprof_SUITE_test).
-export([seq/3, seq_r/3]).
%% Stack recursive seq
seq(Stop, Stop, Succ) when function(Succ) ->
[Stop];
seq(Start, Stop, Succ) when function(Succ) ->
[Start | seq(Succ(Start), Stop, Succ)].
%% Tail recursive seq, result list is reversed
seq_r(Start, Stop, Succ) when function(Succ) ->
seq_r(Start, Stop, Succ, []).
seq_r(Stop, Stop, _, R) ->
[Stop | R];
seq_r(Start, Stop, Succ, R) ->
seq_r(Succ(Start), Stop, Succ, [Start | R]).
