msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

more examples

Browse Source
This commit is contained in:
aarne
2004-09-25 08:51:33 +00:00
parent 7e0b0d2b68
commit 51898596e1
3 changed files with 30 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
examples/gfcc/compiler/demo.c Normal file
View File

@@ -0,0 +1,9 @@
int fact (int n) {
int f ;
f = 1 ;
while (1 < n) {
f = n * f ;
n = n - 1 ;
}
return f ;
} ;

BIN
examples/gfcc/compiler/demo.gif Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 132 KiB

21
examples/gfcc/compiler/factorial.c Normal file
View File

@@ -0,0 +1,21 @@
int fact (int n) {
int f ;
f = 1 ;
{
while (1 < n) {
f = n * f ;
n = n - 1 ;
}
}
return f ;
} ;
int main () {
int n ;
n = 1 ;
{
while (n < 11) printf(int,fact(n)) ; n = n+1 ;
}
return ;
} ;