plunkerでeasyforth その3

Last updated at 2025-11-21Posted at 2025-11-21

概要

easyforth、見つけたのでやってみた。
関数集めてみた。

fizzbuzz

: fizzbuzz 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 else i . then cr loop ;

九九

: kuku 10 1 do 10 1 do i j * . space loop cr loop ;

平方

: SQUARE ( n -- n*n ) DUP * ;

絶対値

: ABS ( n -- |n| ) DUP 0 <  IF NEGATE THEN ;

カウントダウン

: COUNTDOWN ( n -- ) 0 DO I . LOOP ;

フィボナッチ

: fib 7 0 1 rot 0 do swap over + dup . loop ;

ズンドコ、キヨシ

: zundoko 0 begin 2 random if ." zun " 1 + else ." doko " drop 0 then dup 4 = until ." doko kiyoshi!" ;

計時

: time ( word_pointer -- ) utime drop > r execute utime drop r > - 1000 / ." elapsed " . ." ms " cr ;

数値入力

: read-number 0 0 begin swap 10 * + key 48 - dup 0 < until drop ;

以上。