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

概要

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

TUTORIAL 7

ズンドコ、キヨシ

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
require random.fs  ok
: zundoko cr 0 begin 2 random if ." zun " 1 + else ." doko " drop 0 then dup 4 = until ." doko kiyoshi!" ; redefined zundoko   ok
zundoko
doko doko doko doko zun zun zun zun doko kiyoshi! ok
bye

以上。