~ubuntu-branches/debian/squeeze/erlang/squeeze

« back to all changes in this revision

Viewing changes to lib/tools/test/cprof_SUITE_data/cprof_SUITE_test.erl

• browse files at revision 11
• compare with another revision
• download diff
• download tarball
• view history from revision 11

Show diffs side-by-side

added

removed

lib/tools/test/cprof_SUITE_data/cprof_SUITE_test.erl

 

1

-module(cprof_SUITE_test).

 

2

 

 

3

-export([seq/3, seq_r/3]).

 

4

 

 

5

 

 

6

 

 

7

%% Stack recursive seq

 

8

seq(Stop, Stop, Succ) when function(Succ) ->

 

9

    [Stop];

 

10

seq(Start, Stop, Succ) when function(Succ) ->

 

11

    [Start | seq(Succ(Start), Stop, Succ)].

 

12

 

 

13

 

 

14

 

 

15

%% Tail recursive seq, result list is reversed

 

16

seq_r(Start, Stop, Succ) when function(Succ) ->

 

17

    seq_r(Start, Stop, Succ, []).

 

18

 

 

19

seq_r(Stop, Stop, _, R) ->

 

20

    [Stop | R];

 

21

seq_r(Start, Stop, Succ, R) ->

 

22

    seq_r(Succ(Start), Stop, Succ, [Start | R]).

 

23

 

 

24

 

 

25

 

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1