-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathHTURTLE.GLO
445 lines (445 loc) · 17 KB
/
HTURTLE.GLO
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
+ ( 坱1 坱2 -- 坱3 )
坱1壛 坱2焛 斸衑攁.
1 2 +
泪滖 恰 1壛 2焛 斸衑 坱 3穒 斸！礎 旦煡攁.
- ( 坱1 坱2 -- 坱3 )
坱1礎 坱2焛 ▍攁.
2 1 -
泪滖 恰 2礎 1穒 ▍ 坱 1穒 斸！礎 旦煡攁.
* ( 坱1 坱2 -- 坱3 )
坱1礎 坱2焛 壋衑攁.
2 3 *
泪滖 恰 壋衑 坱 6穒 斸！礎 旦煡攁.
/ ( 坱1 坱2 -- 坱3 )
坱1穒 坱2潯 恆拝攁.
6 2 /
泪滖 恰 6穒 2潯 恆拝 坱 3穒 斸！礎 旦煡攁.
MOD ( 坱1 坱2 -- 坱3 )
坱1穒 坱2潯 恆拝 恆犪弧焛 妬衑攁.
8 3 MOD
泪滖 恰 8穒 3穉潯 恆拝 恆犪弧 2焛 斸！礎 旦煡攁.
恆犪弧 ( 坱1 坱2 -- 坱3 )
坱1穒 坱2潯 恆拝 恆犪弧焛 妬衑攁.
8 3 恆犪弧
泪滖 恰 8穒 3穉潯 恆拝 恆犪弧 2焛 斸！礎 旦煡攁.
. ( 坱 -- )
斸！穪 爡 夺 坱穒 蚜礎 互畞潯 ァ伐攁.
DUP ( 坱 -- 坱 坱 )
斸！穪 爡 夺 坱穒 峚 斸！礎 旦煡攁.
1 DUP
泪滖 恰 1穒 杹 垇 斸！礎 旦煡攁.
峚 ( 坱 -- 坱 坱 )
斸！穪 爡 夺 坱穒 峚 斸！礎 旦煡攁.
1 峚
泪滖 恰 1穒 杹 垇 斸！礎 旦煡攁.
OVER ( 坱1 坱2 -- 坱1 坱2 坱1 )
斸！穪 杹 ゅ紒 坱穒 峚 斸！礎 旦煡攁.
1 2 OVER
泪滖 恰 1, 2, 1穒 繿潄潯 斸！礎 旦煡攁.
堝愥 ( 坱1 坱2 -- 坱1 坱2 坱1 )
"堝愥 (峚)". 斸！穪 杹 ゅ紒 坱穒 峚 斸！礎 旦煡攁.
1 2 堝愥
泪滖 恰 1, 2, 1穒 繿潄潯 斸！礎 旦煡攁.
SWAP ( 坱1 坱2 -- 坱2 坱1 )
斸！穪 爡 夺 杹 坱穪 竌煛焛 巺攁.
1 2 SWAP
泪滖 恰 斸！穪 爡 夺礎揺 1贰, 潯 ；礎 2坅 范攁.
帯 ( 坱1 坱2 -- 坱2 坱1 )
斸！穪 爡 夺 杹 坱穪 竌煛焛 巺攁.
1 2 帯
泪滖 恰 斸！穪 爡 夺礎揺 1贰, 潯 ；礎 2坅 范攁.
DROP ( 坱1 -- )
斸！穪 爡 夺 坱穒 め煡攁.
め漚 ( 坱1 -- )
斸！穪 爡 夺 坱穒 め煡攁.
ROT ( 坱1 坱2 坱3 -- 坱2 坱3 坱1 )
斸！穪 爡 夺 瑼 坱穒 暕煡攁. 瑼 ゅ紒 坱穒 屷悂 爡 夺礎 旦煡攁.
1 2 3 ROT
泪滖 恰 2, 3, 1穒 繿潄潯 斸！礎 旦煡攁.
暕漚 ( 坱1 坱2 坱3 -- 坱2 坱3 坱1 )
斸！穪 爡 夺 瑼 坱穒 暕煡攁. 瑼 ゅ紒 坱穒 屷悂 爡 夺礎 旦煡攁.
1 2 3 暕漚
泪滖 恰 2, 3, 1穒 繿潄潯 斸！礎 旦煡攁.
>R ( 坱斸！: 坱 -- ; 朅暕贰斸！: -- 坱 )
坱斸！穪 坱穒 朅暕贰斸！潯 但嫢攁. 'DO ... LOOP'恆 '爲 ...
暕碼'坅 朅暕贰斸！焛 琣秝衋潯 LOOP盗 '暕碼' 稿礎 朅暕贰斸！焛
顶瑆葋潯 暕漚 懡碼础 衑攁.
>朅 ( 坱斸！: 坱 -- ; 朅暕贰斸！: -- 坱 )
坱斸！穪 坱穒 朅暕贰斸！潯 但嫢攁. 'DO ... LOOP'恆 '爲 ...
暕碼'坅 朅暕贰斸！焛 琣秝衋潯 LOOP盗 '暕碼' 稿礎 朅暕贰斸！焛
顶瑆葋潯 暕漚 懡碼础 衑攁.
R> ( 坱斸！: -- 坱 ; 朅暕贰斸！: 坱 -- )
朅暕贰斸！穪 坱穒 坱斸！潯 但嫢攁. 'DO ... LOOP'恆 '爲 ...
暕碼'坅 朅暕贰斸！焛 琣秝衋潯 LOOP盗 '暕碼' 稿礎 朅暕贰斸！焛
顶瑆葋潯 暕漚 懡碼础 衑攁.
朅> ( 坱斸！: -- 坱 ; 朅暕贰斸！: 坱 -- )
朅暕贰斸！穪 坱穒 坱斸！潯 但嫢攁. 'DO ... LOOP'恆 '爲 ...
暕碼'坅 朅暕贰斸！焛 琣秝衋潯 LOOP盗 '暕碼' 稿礎 朅暕贰斸！焛
顶瑆葋潯 暕漚 懡碼础 衑攁.
R@ ( 坱斸！: -- 坱 ; 朅暕贰斸！: 坱 -- 坱 )
朅暕贰斸！穪 坱穒 坱斸！潯 彞攁.
朅@ ( 坱斸！: -- 坱 ; 朅暕贰斸！: 坱 -- 坱 )
朅暕贰斸！穪 坱穒 坱斸！潯 彞攁.
= ( 坱1 坱2 -- -1|0 )
5 5 = 泪滖 恰 斸！礎 -1穒 旦煛墶
6 5 = 泪滖 恰 斸！礎 0穒 旦煡攁.
== ( 坱1 坱2 -- -1|0 )
5 5 = 泪滖 恰 斸！礎 -1穒 旦煛墶
6 5 = 泪滖 恰 斸！礎 0穒 旦煡攁.
> ( 坱1 坱2 -- -1|0 )
5 6 > 泪滖 恰 斸！礎 0穒 旦煛墶
5 5 > 泪滖 恰 斸！礎 0穒 旦煛墶
6 5 > 泪滖 恰 斸！礎 -1穒 旦煡攁.
< ( 坱1 坱2 -- -1|0 )
5 6 < 泪滖 恰 斸！礎 -1穒 旦煛墶
5 5 < 泪滖 恰 斸！礎 0穒 旦煛墶
6 5 < 泪滖 恰 斸！礎 0穒 旦煡攁.
AND ( 坱1 坱2 -- 坱3 )
坱1壛 坱2穪 坆 恵(bit)礎 攣衑 懃煛壋穒 斸！礎 旦煡攁.
恵衠岮 ( 坱1 坱2 -- 坱3 )
坱1壛 坱2穪 坆 恵(bit)礎 攣衑 懃煛壋穒 斸！礎 旦煡攁.
OR ( 坱1 坱2 -- 坱3 )
坱1壛 坱2穪 坆 恵(bit)礎 攣衑 懃煛衧穒 斸！礎 旦煡攁.
恵碼秹溼 ( 坱1 坱2 -- 坱3 )
坱1壛 坱2穪 坆 恵(bit)礎 攣衑 懃煛衧穒 斸！礎 旦煡攁.
XOR ( 坱1 坱2 -- 坱3 )
坱1壛 坱2穪 坆 恵(bit)礎 攣衑 萢糕 懃煛壋穒 斸！礎 旦煡攁.
恵榓潯 ( 坱1 坱2 -- 坱3 )
坱1壛 坱2穪 坆 恵(bit)礎 攣衑 萢糕 懃煛壋穒 斸！礎 旦煡攁.
WORDS ( -- )
砳 畞 范揺 潜爄梚穒 蚜礎 ァ伐攁.
爄蚢 ( -- )
砳 畞 范揺 潜爄梚穒 蚜礎 ァ伐攁.
.S ( -- )
坱斸！穪 坱梚穒 ァ伐攁.
.斸！ ( -- )
坱斸！穪 坱梚穒 ァ伐攁.
BYE ( -- )
搃螒穒 弡悈攁.
弡 ( -- )
搃螒穒 弡悈攁.
CR ( -- )
蚜礎 瑏 簤穒 爀梕攁.
攁穛簤 ( -- )
蚜礎 瑏 簤穒 爀梕攁.
HELP ( -- )
HELP 攁穛穪 恵爄礎 攣衑 暋稇爄穒 蘟珐 'HFORTH.HLP'礎 纗碼 ァ伐攁.
HELP DUP
泪滖 恰 '峚'焛 瘁橗堿 砤揺弧 蚜礎 ァ伐攁.
暋稇爄 ( -- )
HELP 攁穛穪 恵爄礎 攣衑 暋稇爄穒 蘟珐 'HFORTH.HLP'礎 纗碼 ァ伐攁.
暋稇爄 峚
泪滖 恰 '峚'焛 瘁橗堿 砤揺弧 蚜礎 ァ伐攁.
CLS ( -- )
蚜穒 弧秴攁.
蚜弧丁 ( -- )
蚜穒 弧秴攁.
CONSTANT ( 坱 -- )
弧積 恵爄贰 臿哗 榿: ( -- 坱 )
斸！穪 坱穒 搬 '妶積坱' 攁穛礎 恆怠揺 贰焣穉潯 妶積坱(瑆畞)穒
爀梕攁.
5 CONSTANT FIVE
泪滖 恰 'FIVE'渁揺 贰焣穪 妶積坱穒 爀梕攁. 媋煛墶 恆
FIVE
泪滖 恰 斸！穪 爡 夺礎 5焛 旦煡攁.
妶積坱 ( 坱 -- )
弧積 恵爄贰 臿哗 榿: ( -- 坱 )
斸！穪 坱穒 搬 '妶積坱' 攁穛礎 恆怠揺 贰焣穉潯 妶積坱(瑆畞)穒
爀梕攁.
5 妶積坱 攁
泪滖 恰 '攁'贰渁揺 贰焣穪 妶積坱穒 爀梕攁. 媋煛墶 恆
攁
泪滖 恰 斸！穪 爡 夺礎 5焛 旦煡攁.
VARIABLE ( -- )
弧積 恵爄贰 臿哗 榿: ( -- 簛 )
VARIABLE AGE
泪滖 恰 'AGE'渁揺 贰焣穪 焑坱(畞)穒 爀梕攁. 媋煛墶 恆
AGE
泪滖 恰 'AGE'穪 坱穪 簛焛 斸！穪 爡 夺礎 旦煡攁.
焑坱 ( -- )
弧積 恵爄贰 臿哗 榿: ( -- 簛 )
焑坱 恆贰
泪滖 恰 '恆贰'渁揺 贰焣穪 焑坱(畞)穒 爀梕攁. 媋煛墶 恆
恆贰
泪滖 恰 '恆贰'穪 坱穪 簛焛 斸！穪 爡 夺礎 旦煡攁.
! ( 坱 簛 -- )
斸！穪 爡 夺礎 范揺 簛礎 斸！穪 杹 ゅ紒 坱穒 搬慅揺攁.
16 恆贰 !
泪滖 恰 焑坱 '恆贰'礎 16穒 搬慅揺攁.
@ ( 簛 -- 坱 )
斸！穪 爡 夺礎 范揺 簛礎 梕 坱穒 斸！礎 旦煡攁.
恆贰 @
泪滖 恰 焑坱 '恆贰'穪 坱穒 斸！礎 旦煡攁.
: ( -- )
恵爄 坏嫛焛 竍衑攁.
: 瑏恵爄 恵爄1 恵爄2 恵爄3 ;
泪滖 搬 瑏 恵爄 '瑏恵爄'穪 各穪焛 竍衑攁.
; ( -- )
恵爄 坏嫛焛 弡悈攁.
: 瑏恵爄 恵爄1 恵爄2 恵爄3 ;
泪滖 砮攁.
( ( -- )
')' 恆旦 榿宎弧 媔穒 恰弧 磄墶 堝愥氬攁. '('暋 衋恆穪 恵爄贰潯
栣礎 Д膃贰 梐 衋恆 贰瑆 范瘁础 衑攁.
( 贰堳積 旛繁爄烦摗攁.)
泪滖 砮攁. 簛穪: '('揺 潜爄贰弧爀 ')'揺 潜爄贰 碼摗攁.
." ( -- )
'"'贰 恆旦 榿宎弧穪 媔穒 蚜礎 ァ伐攁. 爄坏嫛 瑆葋礎爀 砳 畞
范攁.
: 旭 ." 贰 媔贰 蚜礎 ァ礱怀摗攁." ;
泪滖 钎 攁穛
旭
贰渁墶 恰 蚜礎 '贰 媔贰 蚜礎 ァ礱怀摗攁.'焛 ァ伐攁.
IF 臿哗 榿: ( 坱 -- )
'IF ... THEN'恆 'IF ... ELSE ... THEN'穪 糱穉潯 砤伐攁. 爄坏嫛
瑆葋礎爀 砳 畞 范攁. 'IF ... THEN'穪 糱穉潯 砤贰 斸！穪 爡 夺
坱贰 0贰 碼摡 榿爀 'IF ... THEN' 琣贰穪 恵爄贰 臿互攁. 'IF ...
ELSE ... THEN'穪 糱穉潯 砤贰 斸！穪 爡 夺 坱贰 0贰 碼摗 'IF ...
THEN' 琣贰穪 恵爄贰 臿弧墶, 坱贰 0贰 'ELSE ... THEN' 琣贰穪
恵爄贰 臿互攁.
: ?DUP DUP IF DUP THEN ;
泪滖 恵爄穒 坏墶
3 ?DUP
泪滖 恰 斸！礎 3穒 2 垇 旦煡攁.
0 ?DUP
泪滖 恰 斸！礎 0穒 1 垇 旦煡攁.
臿哗 榿: ( 坱 -- )
' ... 渁'恆 ' ... 碼摗 ... 渁'穪 糱穉潯 砤伐攁. 爄坏嫛
瑆葋礎爀 砳 畞 范攁. ' ... 渁'穪 糱穉潯 砤贰 斸！穪 爡 夺
坱贰 0贰 碼摡 榿爀 ' ... 渁' 琣贰穪 恵爄贰 臿互攁. ' ...
碼摗 ... 渁'穪 糱穉潯 砤贰 斸！穪 爡 夺 坱贰 0贰 碼摗 '
... 渁' 琣贰穪 恵爄贰 臿弧墶, 坱贰 0贰 '碼摗 ... 渁' 琣贰穪
恵爄贰 臿互攁.
: ?峚 峚 峚 渁 ;
泪滖 恵爄穒 坏墶
3 ?峚
泪滖 恰 斸！礎 3穒 2 垇 旦煡攁.
0 ?峚
泪滖 恰 斸！礎 0穒 1 垇 旦煡攁.
ELSE 臿哗 榿: ( -- )
'IF ... ELSE ... THEN'穪 糱穉潯 砤伐攁. 爄坏嫛 瑆葋礎爀 砳 畞
范攁. 斸！穪 爡 夺 坱贰 0贰 碼摗 'IF ... ELSE' 琣贰穪 恵爄贰
臿弧墶, 坱贰 0贰 'ELSE ... THEN' 琣贰穪 恵爄贰 臿互攁.
: TEST IF DUP ELSE DROP THEN ;
泪滖 恵爄穒 坏墶
3 1 TEST
泪滖 恰 斸！礎 3穒 2 垇 旦煡攁.
3 0 TEST
泪滖 恰 斸！礎 碼 堳暋 旦煛弧 磄揺攁.
碼摗 臿哗 榿: ( -- )
' ... 碼摗 ... 渁'穪 糱穉潯 砤伐攁. 爄坏嫛 瑆葋礎爀 砳 畞
范攁. 斸！穪 爡 夺 坱贰 0贰 碼摗 ' ... 碼摗' 琣贰穪 恵爄贰
臿弧墶, 坱贰 0贰 '碼摗 ... 渁' 琣贰穪 恵爄贰 臿互攁.
: 旭 峚 碼摗 め漚 渁 ;
泪滖 恵爄穒 坏墶
3 1 旭
泪滖 恰 斸！礎 3穒 2 垇 旦煡攁.
3 0 旭
泪滖 恰 斸！礎 碼 堳暋 旦煛弧 磄揺攁.
THEN 臿哗 榿: ( -- )
'IF ... THEN'恆 'IF ... ELSE ... THEN'穪 糱穉潯 砤伐攁. 爄坏嫛
瑆葋礎爀 砳 畞 范攁.
渁 臿哗 榿: ( -- )
' ... 渁'恆 ' ... 碼摗 ... 渁'穪 糱穉潯 砤伐攁. 爄坏嫛
瑆葋礎爀 砳 畞 范攁.
ENDIF 臿哗 榿: ( -- )
'IF ... ENDIF'恆 'IF ... ELSE ... ENDIF'穪 糱穉潯 砤伐攁. 爄坏嫛
瑆葋礎爀 砳 畞 范攁.
BEGIN 臿哗 榿: ( -- )
'BEGIN ... UNTIL'恆 'BEGIN ... WHILE ... REPEAT'穪 糱穉潯 砤礱
堘梥潜穪 泪穛穒 蝍衑攁. 爄坏嫛 瑆葋礎爀 砳 畞 范攁.
贰笰柔 臿哗 榿: ( -- )
'贰笰柔 ... 宎弧'恆 '贰笰柔 ... 暦磂... 堘梥衼'穪 糱穉潯 砤礱
堘梥潜穪 泪穛穒 蝍衑攁. 爄坏嫛 瑆葋礎爀 砳 畞 范攁.
UNTIL 臿哗 榿: ( 坱 -- )
'BEGIN ... UNTIL'穪 糱穉潯 砤伐攁. 爄坏嫛 瑆葋礎爀 砳 畞 范攁.
'坱'贰 0贰 碼摗 堘梥潜穒 瘁恆 'UNTIL' 攁穛穪 恵爄贰 臿弧墶
'坱'贰 0贰 'BEGIN ... UNTIL' 琣贰穪 恵爄穒 堘梥钎攁.
: COUNTDOWN BEGIN DUP . 1 - DUP 0 = UNTIL ;
泪滖 恵爄穒 坏墶
5 COUNTDOWN
泪滖 恰 蚜礎 '5 4 3 2 1'穒 ァ伐攁.
宎弧 臿哗 榿: ( 坱 -- )
'贰笰柔 ... 宎弧'穪 糱穉潯 砤伐攁. 爄坏嫛 瑆葋礎爀 砳 畞 范攁.
'坱'贰 0贰 碼摗 堘梥潜穒 瘁恆 '宎弧' 攁穛穪 恵爄贰 臿弧墶
'坱'贰 0贰 '贰笰柔 ... 宎弧' 琣贰穪 恵爄穒 堘梥钎攁.
: 柔.碼渷潯.瑼 贰笰柔 峚 . 1 - 峚 0 = 宎弧 ;
泪滖 恵爄穒 坏墶
5 柔.碼渷潯.瑼
泪滖 恰 蚜礎 '5 4 3 2 1'穒 ァ伐攁.
WHILE 臿哗 榿: ( 坱 -- )
'BEGIN ... WHILE ... REPEAT'穪 糱穉潯 砤伐攁. 爄坏嫛 瑆葋礎爀
砳 畞 范攁. '坱'贰 0贰 碼摗 堘梥潜贰 墎朅瘁 'WHILE' 攁穛穪
恵爄贰 臿弧墶 '坱'贰 0贰 堘梥潜穒 瘁恆 'REPEAT' 攁穛穪
恵爄贰 臿互攁.
: COUNTDOWN BEGIN DUP WHILE DUP . 1 - REPEAT ;
泪滖 恵爄穒 坏墶
5 COUNTDOWN
泪滖 恰 蚜礎 '5 4 3 2 1'穒 ァ伐攁.
暦磂 臿哗 榿: ( 坱 -- )
'贰笰柔 ... 暦磂... 堘梥衼'穪 糱穉潯 砤伐攁. 爄坏嫛 瑆葋礎爀
砳 畞 范攁. '坱'贰 0贰 碼摗 堘梥潜贰 墎朅瘁 '暦磂' 攁穛穪
恵爄贰 臿弧墶 '坱'贰 0贰 堘梥潜穒 瘁恆 '堘梥衼' 攁穛穪
恵爄贰 臿互攁.
: 柔.碼渷潯.瑼 贰笰柔 峚 暦磂 峚 . 1 - 堘梥衼 ;
泪滖 恵爄穒 坏墶
5 柔.碼渷潯.瑼
泪滖 恰 蚜礎 '5 4 3 2 1'穒 ァ伐攁.
REPEAT 臿哗 榿: ( -- )
'BEGIN ... WHILE ... REPEAT'穪 糱穉潯 砤伐攁. 爄坏嫛 瑆葋礎爀
砳 畞 范攁. 'BEGIN' 攁穛穉潯 堘梥潜穒 墎衑攁.
堘梥衼 臿哗 榿: ( -- )
'贰笰柔 ... 暦磂... 堘梥衼'穪 糱穉潯 砤伐攁. 爄坏嫛 瑆葋礎爀
砳 畞 范攁. '贰笰柔' 攁穛穉潯 堘梥潜穒 墎衑攁.
DO 臿哗 榿: ( 坱1 坱2 -- )
梐 'DO ... LOOP'穪 糱穉潯 砤伐攁. 爄坏嫛 瑆葋礎爀 砳 畞
范攁. '坱2'坅 衋恆尝 尼筧 '坱1'贰 朓 榿宎弧 'DO ... LOOP' 琣贰穪
恵爄穒 堘梥钎攁.
: 5STARS 5 0 DO ." *" LOOP ;
泪滖 恵爄穒 坏墶
5STARS
泪滖 恰 蚜礎 '*****'坅 蝍朎攁.
爲 臿哗 榿: ( 坱1 坱2 -- )
梐 '爲 ... 暕碼'穪 糱穉潯 砤伐攁. 爄坏嫛 瑆葋礎爀 砳 畞
范攁. '坱2'坅 衋恆尝 尼筧 '坱1'贰 朓 榿宎弧 '爲 ... 暕碼' 琣贰穪
恵爄穒 堘梥钎攁.
: 攁 5 0 爲 ." *" 暕碼 ;
泪滖 恵爄穒 坏墶
攁
泪滖 恰 蚜礎 '*****'坅 蝍朎攁.
LOOP 臿哗 榿: ( -- )
梐 'DO ... LOOP'穪 糱穉潯 砤伐攁. 爄坏嫛 瑆葋礎爀 砳 畞
范攁. '坱2'坅 衋恆尝 尼筧 '坱1'贰 朓 榿宎弧 'DO ... LOOP' 琣贰穪
恵爄穒 堘梥钎攁.
暕碼 臿哗 榿: ( -- )
梐 '爲 ... 暕碼'穪 糱穉潯 砤伐攁. 爄坏嫛 瑆葋礎爀 砳 畞
范攁. '坱2'坅 衋恆尝 尼筧 '坱1'贰 朓 榿宎弧 '爲 ... 暕碼' 琣贰穪
恵爄穒 堘梥钎攁.
I 臿哗 榿: ( -- 坱 )
爲暕贰 坅煛潜畞潯 梐 'DO ... LOOP' 磂礎 砮攁.
'坱2 坱1 DO I LOOP'礎 '坅'揺 繿潄潯 '坱1'礎 '坱2'-1 宎弧穪
坱梚穒 斸！礎 旦煡攁.
: COUNT 0 DO I . LOOP ;
泪滖 恵爄穒 坏墶
5 COUNT
泪滖 恰 蚜礎 '0 1 2 3 4'焛 ァ伐攁.
坅 臿哗 榿: ( -- 坱 )
"坅(煛潜畞)." 爲暕贰 坅煛潜畞潯 梐 '爲 ... 暕碼' 磂礎 砮攁.
'坱2 坱1 爲 坅 暕碼'礎 '坅'揺 繿潄潯 '坱1'礎 '坱2'-1 宎弧穪
坱梚穒 斸！礎 旦煡攁.
: ゅ.瑼嫛 0 爲 坅 . 暕碼 ;
泪滖 恵爄穒 坏墶
5 ゅ.瑼嫛
泪滖 恰 蚜礎 '0 1 2 3 4'焛 ァ伐攁.
IMMEDIATE ( -- )
媞 弧積 爄穒 爄坏嫛 瑆葋礎暋 袟朅揺 '潯爄'潯 爀梕攁.
潯爄 ( -- )
媞 弧積 爄穒 爄坏嫛 瑆葋礎暋 袟朅揺 '潯爄'潯 爀梕攁.
' ( -- 簛 )
"'" 攁穛礎 恆怠揺 恵爄穪 簛焛 斸！礎 恞嫢攁.
坽積爄 ( 簛 -- )
'坽積爄' 攁穛礎 恆怠揺 贰焣穉潯, 斸！礎 簛坅 范揺 恵爄壛 櫌坽積
珐穒 衋揺 恵爄穒 爀梕攁.
' DUP 坽積爄 峚
泪滖 恰 DUP 盗 坽積 珐穒 衋揺 恵爄 '峚'焛 爀梕攁.
簤蚜 ( 簤畞 -- )
碼渷柔 媔竌坅 ァ珐 簤 畞焛 各衑攁.
sin* ( 嫨贰 坆暋 -- 嫨贰*sin[坆暋] )
嫨贰盗 坆暋潯柔 嫨贰礎 琿坆А焛 壋衑 坱穒 墎琫衑攁.
cos* ( 嫨贰 坆暋 -- 嫨贰*cos[坆暋] )
嫨贰盗 坆暋潯柔 嫨贰礎 琿坆А焛 壋衑 坱穒 墎琫衑攁.
潯.媋瘁 ( x y -- )
弧媞 竌煛礎 堘沽蝍 (x,y)潯 穒 媢揺攁. 蚜礎 媞穒 媢揺 坅竪
嫛ゥ糕伐 恵爄贰攁. 堘 稇虎繁 恵爄 '笰竌煛潯'盗 '爀莙.坅'礎
砤伐攁.
堘ァ礱 ( -- )
蚜礎 堘贰 范穉 弧秮墶 呆穉 ァ伐攁.
蟹 ( -- 簛 )
焑坱 '蟹'. 堘穪 蟹贰 攓塧 范攁.
坅潯夺谩 ( -- 簛 )
焑坱 '坅潯夺谩'. 堘穪 x 沽蝍坅 攓塧 范攁.
瑼潯夺谩 ( -- 簛 )
焑坱 '坅潯夺谩'. 堘穪 y 沽蝍坅 攓塧 范攁.
爀莙.坅 ( 坅潯堘煛 瑼潯堘煛 -- )
堘贰 弧媞 沽蝍 (x,y)礎 (x+坅潯堘煛, y+瑼潯堘煛)潯 稇虎伐攁.
恵爄 '磡穉潯'盗 '栣潯'礎 砤伐攁.
__怠焑舰.焉崺 ( 堘煛 襏畞 -- )
堘煛爀莙 坅墶 10 暋 怠焑舰穉潯 暋揺 堳穒 襏畞爀莙 朅螇贰衑攁.
恵爄 '怠焑舰.焉崺'礎 砤伐攁.
__禘舰.焉崺 ( 堘煛 襏畞 -- )
堘煛爀莙 坅墶 10 暋 禘舰穉潯 暋揺 堳穒 襏畞爀莙 朅螇贰衑攁.
恵爄 '禘舰.焉崺'礎 砤伐攁.
妸堿 ( -- )
堘贰 弧恆坋 竌箩焛 妸堿 媋煡攁.
坅搃堿 ( -- )
堘贰 弧恆坋 竌箩焛 坅搃堿 媋煡攁.
梚瘁 ( -- )
堘贰 弧恆坋 竌箩焛 恞嫛弧 磄揺攁.
悂漚 ( -- )
堘贰 簤穒 媋穉 坋攁.
蚜弧丁 ( -- )
堘穒 笰竌煛潯 ァ悂墶 蚜穒 弧秴攁.
健垍蚜 ( -- )
媔竌焛 碼渷 8 簤礎爀 ァ伐攁.
单蚜 ( -- )
媔竌焛 稿罙 蚜礎 ァ伐攁.
笰竌煛潯 ( -- )
堘穪 犪煛焛 夺舰穉潯 衼 蚜 坅秴旳潯 ァ悂墶 蚜穒 弧秴攁.
暋.怠焑舰 ( 坆暋 -- )
堘穪 蟹穒 坆暋爀莙 怠焑舰穉潯 暕煡攁.
暋.禘舰 ( 坆暋 -- )
堘穪 蟹穒 坆暋爀莙 禘舰穉潯 暕煡攁.
磡穉潯 ( 堘煛 -- )
堘贰 堘煛爀莙 磡穉潯 坋攁.
栣潯 ( 堘煛 -- )
堘贰 堘煛爀莙 栣潯 坋攁.
怠焑舰.焉崺 ( 弧焣 坆暋 -- )
簛瘁互 弧焣壛 坆暋潯 怠焑舰穉潯 焉崺穒 媋煡攁.
怠焑舰.顶 ( 弧焣 -- )
簛瘁互 弧焣穉潯 怠焑舰穉潯 暦媋渁！焛 媋煡攁.
禘舰.焉崺 ( 弧焣 坆暋 -- )
簛瘁互 弧焣壛 坆暋潯 禘舰穉潯 焉崺穒 媋煡攁.
禘舰.顶 ( 弧焣 -- )
簛瘁互 弧焣穉潯 禘舰穉潯 暦媋渁！焛 媋煡攁.
慉 ( 莂嫛 --
簛瘁互 莂嫛穪 慉 焛 媋煡攁.
塻氓慉 ( -- )
坆 穪 嫨贰坅 100, 200, 300, 400 伐 慉 焛 塻羇 媋煡攁.
攁贰碼ˉ梐 ( -- )
攁贰碼ˉ梐 捶穒 媋煡攁.
嫷 ( 莂嫛 -- )
嫷 捶穒 媋煡攁.
礱嫷 ( 莂嫛 -- )
60 暋尝 暕碼坅 嫷 6 垇焛 媋煡攁.
渜垇А ( -- )
渜垇А 捶穒 媋煡攁.
嵐芳 ( 莂嫛 -- )
嵐芳 捶穒 媋煡攁.
嵐 ( 莂嫛 -- )
嵐芳 8 垇伐 嵐穒 媋煡攁.
攁焑嵐芳 ( 莂嫛 -- )
攁焑 捶穪 嵐芳穒 媋煡攁.
攁焑嵐 ( 莂嫛 -- )
嵐芳 6 垇伐 嵐穒 媋煡攁.
袝琲 ( 莂嫛 -- )
塱 捶穒 媋煡攁.
衼 ( 莂嫛 -- )
衼 捶穒 媋煡攁.
坆褀 ( 莂嫛 煛畞 -- )
各攁坆褀穒 媋煡攁.
( 穪_畞 襏畞 -- )
捶穒 媋煡攁.
攁坆褀 ( 莂嫛 坆暋 -- )
莂嫛盗 坆暋礎 榓渁 礱溼 捶穪 攁坆褀壛 捶穒 媋煡攁.
攁坆褀竌渨5 ( -- )
恵爄 '攁坆褀'穒 贰秝衑 竌渨
攁坆褀竌渨4 ( -- )
恵爄 '攁坆褀'穒 贰秝衑 攁焑 竌渨
攁坆褀竌渨12 ( -- )
恵爄 '攁坆褀'穒 贰秝衑 櫋 攁焑 竌渨
恆 ( 坅弧坆暋 坅弧嫨贰 坅弧谩嫛畞 -- )
痑痑潯焛 朅溼 (recursive call) 恆 捶穒 媋煡攁.
А搃莂嫛 ( -- 簛 )
恵爄 '秝'礎 琣秝衋揺 焑坱
秝 ( 恆贰 -- )
痑痑潯焛 朅溼 秝媋煴(dragon curve)穒 媋煡攁.