1,文中空格符号使用的极其不规范,大家注意辨别。
2,书中69页
: ?emit ( c-- ) dup if emit else >>>droop<<< then ;
“droop”这个词多了个“o” 应为“drop”
3,书中91页
:compound 这段代码中的一行
2dup r% + dup + ." Baiance " .
应为 2dup r% + dup ." Baiance " .
多了个“+”号
4,书中97页
代码应为:
: DOUBLED
6 1000 21 1 DO CR ." YEAR " I 2 U.R
2DUP R% + DUP ." BALANCE " .
DUP 2000 > IF CR CR ." more than doubled in "
I . ." years " LEAVE
THEN
LOOP 2DROP ;
7,书中110页
65535 . OD 应为 65535 . OK
8,书中110页
65535 . -1 OK
由于Gforth中单精度直接是32位,所以并不会得到-1的结果。要想得到-1,应输入的数字为4294967295
9,书中114页.date的定义
在gforth中,应该这样
: .date ( ud-- )
<# # # [char] - hold # #
[char] - hold # # #>
type ;
On 5月26日, 下午4时49分, 胡松涛 <idisbluefl...@gmail.com> wrote: