Mercurial > octave-nkf
annotate test/nest/script_nest.m @ 20654:b65888ec820e draft default tip gccjit
dmalcom gcc jit import
author | Stefan Mahr <dac922@gmx.de> |
---|---|
date | Fri, 27 Feb 2015 16:59:36 +0100 |
parents | be18c9e359bf |
children |
rev | line source |
---|---|
14544
be18c9e359bf
Nested function support (bug #35772)
Max Brister <max@2bass.com>
parents:
diff
changeset
|
1 # script_nest.m |
be18c9e359bf
Nested function support (bug #35772)
Max Brister <max@2bass.com>
parents:
diff
changeset
|
2 function x = script_nest |
be18c9e359bf
Nested function support (bug #35772)
Max Brister <max@2bass.com>
parents:
diff
changeset
|
3 A (5) |
be18c9e359bf
Nested function support (bug #35772)
Max Brister <max@2bass.com>
parents:
diff
changeset
|
4 function A (n) |
be18c9e359bf
Nested function support (bug #35772)
Max Brister <max@2bass.com>
parents:
diff
changeset
|
5 if n <= 0 |
be18c9e359bf
Nested function support (bug #35772)
Max Brister <max@2bass.com>
parents:
diff
changeset
|
6 script_nest_script; |
be18c9e359bf
Nested function support (bug #35772)
Max Brister <max@2bass.com>
parents:
diff
changeset
|
7 else |
be18c9e359bf
Nested function support (bug #35772)
Max Brister <max@2bass.com>
parents:
diff
changeset
|
8 A (n - 1); |
be18c9e359bf
Nested function support (bug #35772)
Max Brister <max@2bass.com>
parents:
diff
changeset
|
9 endif |
be18c9e359bf
Nested function support (bug #35772)
Max Brister <max@2bass.com>
parents:
diff
changeset
|
10 endfunction |
be18c9e359bf
Nested function support (bug #35772)
Max Brister <max@2bass.com>
parents:
diff
changeset
|
11 endfunction |