racket/collects/honu/examples/old/func-test.honu
Stevie Strickland 7dbb99d3c6 merged 292:296 from branches/sstrickl
svn: r297
2005-07-02 04:03:02 +00:00

13 lines
132 B
Plaintext

int fact(int x) {
int ret = 1;
while(x > 1) {
ret = ret * x;
x = x - 1;
};
return ret;
}
int main() {
fact(5);
}