DouKaku?beta

Comment detail

変形Fizz-Buzz問題 (Nested Flatten)

This comment is reply for 6025 horiuchi: Forth でFizzBuzzしてみまし...(変形Fizz-Buzz問題). Go to thread root.

前のコードでは、スタックにゴミが残ってたりIF文が重なってたりと、微妙だったので修正版を。 出力結果は同じです。

1
2
3
4
5
6
7
8
: FizzBuzz ( n -- )
1 + 1 DO
  I DUP . ." :" 
  DUP 3 MOD 0 = IF ." Fizz" THEN
  DUP 5 MOD 0 = IF ." Buzz" THEN
  DUP 3 MOD 0 <> SWAP 5 MOD 0 <> AND IF ." hoge" THEN
  CR
LOOP ;

Index

Feed

Other

Link

Pathtraq

loading...
Creative Commons License このサイトの内容は、 クリエイティブ・コモンズ・ライセンスの下でライセンスされています。 [詳細]