1
2 2 +

1
." Привет Мир"

1
1 .

1
1 2 3 . . .

1
1 2 3 . . .

1
2
3
4
5
6
7
: INT_MIN -10 ;
: INT_MAX 9 ;
: USEIT . ;
 
: RUN INT_MIN BEGIN DUP USEIT DUP INT_MAX <> WHILE 1+ REPEAT DROP ;
 
RUN

1
2
3
4
5
6
7
: INT_MIN -10 ;
: INT_MAX 9 ;
: USE . ;
 
: RUN INT_MIN BEGIN DUP USE DUP INT_MAX <> WHILE 1+ REPEAT DROP ;
 
RUN

1
2
3
4
5
6
7
: INT_MIN -10 ;
: INT_MAX 9 ;
: USEIT . ;
 
: RUN INT_MIN DO DUP USEIT DUP INT_MAX <> WHILE 1+ REPEAT DROP ;
 
RUN

1
2
3
4
5
: INT_MIN -10 ;
: INT_MAX 9 ;
: USEIT . ;
 
INT_MIN DO DUP USEIT DUP INT_MAX <> WHILE 1+ REPEAT DROP

1
2
3
4
5
: INT_MIN -10 ;
: INT_MAX 9 ;
: USE . ;
 
INT_MIN DO DUP USE DUP INT_MAX <> WHILE 1+ REPEAT DROP

1
: HELLO  ( -- )  CR ." Hello, world!" ; HELLO

1
2
3
4
5
6
7
8
9
1
f8
b08
0814
cbc14
c00032
3000b0e
71747735
b452f0533
 ...

1
2
3
: hello ." Hello, World!" cr ;
 
hello

1
." Hello, World!" cr

1
42 .

1
3 4 2 * + .

1
2 2 2 * + .

1
2
3
4
5
6
7
8
<v,"Z"A#m#<
k>"a", v"i,
>"ewt", ,,v
" ",>v>#k#
^>"a", #o#H
n^,"l"<Ci)
F@,,," :<"<
< by fino >

1
2
3
4
5
6
<v,"Z"A#m#<k>"a",
v"i,>"ewt", ,,v
" ",>v>#k#
^>"a", #o#H
n^,"l"<Ci)
F@,,," :<"< 

1
Debugging

1
2
3
4
5
: test 10 0 do i . loop ;
 
test
 
words

1
4 5 * .

1
2
3
4
5
6
7
8
9
:noname   dup . ." bottles" ;
:noname       ." 1 bottle"  ;
:noname ." no more bottles" ;
create bottles , , ,
 
: .bottles  dup 2 min cells bottles + @ execute ;
: .beer     .bottles ."  of beer" ;
: .wall     .beer ."  on the wall" ;
: .take     ." Take one down and pass it around" ;
 ...

1
2
3
4
5
6
7
8
9
(defstruct state line1 line2 line3 x y)
 
(setq *state1* (make-state 
                                                        :line1 '(1 2 3)
                                                        :line2 '(4 x 5)
                                                        :line3 '(6 7 8)
                                                        :x 2
                                                        :y 2
                                          )
 ...

1
2
3
4
5
6
7
8
9
(defstruct state line1 line2 line3 x y)
 
(setq *state1* (make-state 
                                                        :line1 '(1 2 3)
                                                        :line2 '(4 x 5)
                                                        :line3 '(6 7 8)
                                                        :x 2
                                                        :y 2
                                          )
 ...

1
words

1
zip

1
: zip 128 32 do i emit loop ; zip

1
 

1
2
3
4
5
6
7
8
9
xb1lIHRvIG5lYnlsbyB0xJvFvmvDqT8gSmVuIHBybyDDunBsbm9zdCBwcm8gbm9ybcOhbG7DrSAo
dGVkeSBuZXBvxI3DrXRhxI1vdsO9KSAgbGlkIC0gcHJvxI0gUG/FoXRvdm7DrT8gIEvDs2QgQmFz
ZTY0LCBrdGVyw71tIGplIHRlbmhsZSB0ZXh0IHpha8OzZG92w6FuLCBwb3XFvsOtdsOhdGUgbWou
ICAoYW5pxb4gdG8gdMWZZWJhIHbDrXRlKSB2ZSB2xaFlY2ggdmHFoWljaCBlbWFpbG92w71jaCB6
cHLDoXbDoWNoIGsgdG9tdSwgYWJ5IHNlIGsgdsOhbSBuZWJvIG9kIHbDoXMgZG9ixZllIHDFmWVu
ZXNseSB2xaFlY2hueSBWYcWhZSBmb3RreSwgdmlkZWEsIHRleHR5IHMgxI1lc2tvdSBkaWFrcml0
aWtvdSBhIGppbsOpIHZ5Y2h5dMOhdmt5IChvYmVjbsOhIGJpbsOhcm7DrSBkYXRhIHNlIGvDs2R1
asOtIHBvIDYgYml0ZWNoIGRvIHRpc2tudXRlbG7DvWNoIDY0IHpuYWvFrywga3RlcsOpIGpzb3Ug
cMWZZW5vc2l0ZWxuw6EgcG/FoXRvdm7DrW0gIE1JTUUgcHJvdG9rb2xlbSkuIFRha8W+ZSAgdGFr
 ...