中古ノート、買ってみた。 その85

概要

中古ノート買ってみた。
wsl1のubuntu18.04にgforth入れてみた。
チュートリアルを作ってみた。

TUTORIAL 13

case of

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
: num-name case 0 of s" zero " endof 1 of s" one " endof 2 of s" two " endof s" other number" rot endcase ;  ok
1 num-name type one  ok
2 num-name type two  ok
3 num-name type other number ok
0 num-name type zero  ok
bye

以上。