1
-module(cprof_SUITE_test).
3
-export([seq/3, seq_r/3]).
8
seq(Stop, Stop, Succ) when function(Succ) ->
10
seq(Start, Stop, Succ) when function(Succ) ->
11
[Start | seq(Succ(Start), Stop, Succ)].
15
%% Tail recursive seq, result list is reversed
16
seq_r(Start, Stop, Succ) when function(Succ) ->
17
seq_r(Start, Stop, Succ, []).
19
seq_r(Stop, Stop, _, R) ->
21
seq_r(Start, Stop, Succ, R) ->
22
seq_r(Succ(Start), Stop, Succ, [Start | R]).