gforth も評価中

gforth も試してみている。

$ port search forth
gforth   lang/gforth  0.6.2  fast and portable implementation of the ANS Forth language

$ sudo port install gforth

これまでと同じに まずは hello-world と階乗計算を。

$ cat hello.f
cat hello.f
¥ See http://www.delorie.com/gnu/docs/gforth/gforth_32.html      
¥     http://www.complang.tuwien.ac.at/forth/gforth/Docs-html/Characters-and-Strings-Tutorial.html#Characters%20and%20Strings%20Tutorial

: fac1 ( n -- n! ) recursive
dup 0> if
   dup 1- fac1 *
else
   drop 1
endif ;

: hello s" Hello, gforth!" ;

$ gforth hello.f
Gforth 0.6.2, Copyright (C) 1995-2003 Free Software Foundation, Inc.
Gforth comes with ABSOLUTELY NO WARRANTY; for details type `license'
Type `bye' to exit
10 fac1  ok
. 3628800  ok
hello ok
type Hello, gforth! ok
100 fac1  ok
. 0  ok

Amazonギフト券