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

概要

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

TUTORIAL 6

FizzBuzz

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
: fizzbuzz cr 100 1 do i 3 mod 0 = i 5 mod 0 = or if i 3 mod 0 = if ." fizz" then i 5 mod 0 = if ." buzz" then cr else i . cr then space loop ;  ok
fizzbuzz
1
 2
 fizz
 4
 buzz
 fizz
 7
 8
 fizz
 buzz
 11
 fizz
 13
 14
 fizzbuzz
 16
 17
 fizz
 19
 buzz
 fizz
 22
 23
 fizz
 buzz
 26
 fizz
 28
 29
 fizzbuzz
 31
 32
 fizz
 34
 buzz
 fizz
 37
 38
 fizz
 buzz
 41
 fizz
 43
 44
 fizzbuzz
 46
 47
 fizz
 49
 buzz
 fizz
 52
 53
 fizz
 buzz
 56
 fizz
 58
 59
 fizzbuzz
 61
 62
 fizz
 64
 buzz
 fizz
 67
 68
 fizz
 buzz
 71
 fizz
 73
 74
 fizzbuzz
 76
 77
 fizz
 79
 buzz
 fizz
 82
 83
 fizz
 buzz
 86
 fizz
 88
 89
 fizzbuzz
 91
 92
 fizz
 94
 buzz
 fizz
 97
 98
 fizz
  ok
bye

以上。