projects
/
rrq
/
jonasforth.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Implement subroutine to read character
[rrq/jonasforth.git]
/
example.f
1
: FIB ( n -- Fn )
2
0 1 ( n a b )
3
0 ( n a b i )
4
BEGIN
5
ROT ( n i a b )
6
DUP ROT + ( n i b a+b )
7
ROT ROT ( n b a+b i )
8
9
1 + ( n b a+b i+1 )
10
DUP 4 PICK = UNTIL
11
DROP SWAP DROP SWAP DROP ; ( a+b )
12
13
S" HELLO-ADDR" CREATE
14
S" Hello!" DUP ROT
15
STORE-STRING
16
: HELLO
17
' HELLO-ADDR LIT, TELL NEWLINE ;
18
19
HELLO
20
21
S" 10 FIB = " TELL
22
10 FIB .U
23
S" (Expected: 59)" TELL NEWLINE
24
25
TERMINATE