Gitiles
Code Review
Sign In
gerrit-public.fairphone.software
/
fp2-dev
/
platform
/
external
/
llvm
/
ba4733d901b1c2b994f66707657342b8c81c92bc
/
.
/
projects
/
Stacker
/
samples
/
fibonacci.st
blob: d5132d8bbea30c0107da185e0074e22a82ac467d [
file
] [
log
] [
blame
]
Chris Lattner
9d014e7
2003-11-23 17:55:19 +0000
[
diff
] [
blame
]
1
#
2
# Fibonacci Algorithm in Stacker.
3
#
4
:
print
>
d CR
;
5
:
fibonacci RROT DUP2
+
print
3
PICK
--
;
6
:
MAIN
0
print
1
print
44
WHILE fibonacci
END
;