日記幾篇
曾慶潭 Ching-Tang Tseng
ilikeforth@gmail.com
Hamilton, New Zealand
16 April 2025
最近，我有家事要忙，定期貼出文章的工作受到影響，只能力求規律。
平時，為與幾位好友保持聯繫，交流技術，我花在 Line 社群媒體上活動的時間比較多，幾乎每天都在 Line 上貼出好幾篇有關科技的小作文。
這是一篇與 Forth 技術相關的貼文。貼出時只用 W10 OS 中的 Win32Forth 系統展示成果。此處再附加使用 Ubuntu 20.04 中的 ciForth 及 gForth 展示同一成果。
對於一個很好的問題，給出一個很好的測試方法，同時驗證自己設計的系統性能無誤，作為永久的記錄，貼文的目的在強調這種精神。
我看到此一貼文，立刻用我自己設計的系統檢測，驗證測試的程式與執行結果如下:
這是在 Win32Forth 系統中，以幾分鐘內的響應速度，直接執行出來的結果
: test basic
10 print { 6.0e0 * fpi * fpi * fpi * fpi * fpi }
20 end
; ok
test
1836.12 ok
真的沒錯， 6 * (pi)^5 = 1836.12， 這就是質子與電子質量的比值。
這是在 ciForth 中直接執行的結果
ching@ctt:~$ ./l
AMDX86 ciforth 5.3.0
: test basic
10 print { 6.0 e 0 * f(pi) * f(pi) * f(pi) * f(pi) * f(pi) }
20 end
; OK
test
1.8361181087 E 3 OK
這是在 gForth 中直接執行的結果
ching@ctt:~$ ./g
Gforth 0.7.3, Copyright (C) 1995-2008 Free Software Foundation, Inc.
Gforth comes with ABSOLUTELY NO WARRANTY; for details type `license'
Type `bye' to exit
: test basic compiled
10 print { 6.0e0 * pi * pi * pi * pi * pi } compiled
20 end compiled
; ok
test
1.83611810871169E3 ok
系統不同，答案沒錯，只是數字輸出表達的方式不同，但都得正確。
