Mercurial > octave-nkf
annotate test/nest/recursive_nest.m @ 20610:a61f0d6beb71
inputParser: do not perform validation of default values (bug #45837)
author | Carnë Draug <carandraug@octave.org> |
---|---|
date | Thu, 08 Oct 2015 20:15:19 +0100 |
parents | be18c9e359bf |
children |
rev | line source |
---|---|
14544
be18c9e359bf
Nested function support (bug #35772)
Max Brister <max@2bass.com>
parents:
diff
changeset
|
1 # recursive_nest.m |
be18c9e359bf
Nested function support (bug #35772)
Max Brister <max@2bass.com>
parents:
diff
changeset
|
2 function x = recursive_nest () |
be18c9e359bf
Nested function support (bug #35772)
Max Brister <max@2bass.com>
parents:
diff
changeset
|
3 global recursive_nest_inc = 1 |
be18c9e359bf
Nested function support (bug #35772)
Max Brister <max@2bass.com>
parents:
diff
changeset
|
4 x = 5; |
be18c9e359bf
Nested function support (bug #35772)
Max Brister <max@2bass.com>
parents:
diff
changeset
|
5 f (20); |
be18c9e359bf
Nested function support (bug #35772)
Max Brister <max@2bass.com>
parents:
diff
changeset
|
6 |
be18c9e359bf
Nested function support (bug #35772)
Max Brister <max@2bass.com>
parents:
diff
changeset
|
7 function f (n) |
be18c9e359bf
Nested function support (bug #35772)
Max Brister <max@2bass.com>
parents:
diff
changeset
|
8 if n > 0 |
be18c9e359bf
Nested function support (bug #35772)
Max Brister <max@2bass.com>
parents:
diff
changeset
|
9 x = x + recursive_nest_inc; |
be18c9e359bf
Nested function support (bug #35772)
Max Brister <max@2bass.com>
parents:
diff
changeset
|
10 f (n - 1); |
be18c9e359bf
Nested function support (bug #35772)
Max Brister <max@2bass.com>
parents:
diff
changeset
|
11 end |
be18c9e359bf
Nested function support (bug #35772)
Max Brister <max@2bass.com>
parents:
diff
changeset
|
12 endfunction |
be18c9e359bf
Nested function support (bug #35772)
Max Brister <max@2bass.com>
parents:
diff
changeset
|
13 endfunction |