アカウント名:
パスワード:
より多くのコメントがこの議論にあるかもしれませんが、JavaScriptが有効ではない環境を使用している場合、クラシックなコメントシステム(D1)に設定を変更する必要があります。
一つのことを行い、またそれをうまくやるプログラムを書け -- Malcolm Douglas McIlroy
はてなで…… (スコア:1)
人生は七転び八起き、一日は早寝早起き
Re:はてなで…… (スコア:1)
という考え方に該当するコードが思いつきません。orz
プログラミングというか、数学的な教養がないと辛いです…なんとなく。
Re:はてなで…… (スコア:0)
Option Explicit
Dim iLoop ' ループカウンタ
Dim iFizz ' Fizz カウンタ
Dim iBuzz ' Buzz カウンタ
Dim strMsg ' メッセージ出力
iFizz = 3
iBuzz = 5
For iLoop = 1 to 100 step 1
strMsg = ""
' 3で割り切れる値ならFizzをセット。
If (iLoop = iFizz) then
strMsg = "Fizz"
iFizz = iFizz + 3
Re:はてなで…… (スコア:0)
>If (RTrim(strMsg) "") then: strMsg = strMsg & space(1)
If (RTrim(strMsg) = "") then: strMsg = strMsg & space(1)
それと重要な問題ではないが個人的には
>strMsg = strMsg & "Buzz"
strMsg = Trim(strMsg & "Buzz")
としたくなる。
まあ、それはともかく「少しでもコードを書けるか見る」のが目的だと考えると、(1a)1~100までループで回す(1b)3,5の倍数までループで回す
という基本的な制御文と(2)nと等しくなったらという判断処理だけ解れば書ける、
という2点だけ知っていれば出来る、剰余まで使う事のは邪道という事なら正解かも。
でもそれだとTrimは反則って気がしますね、馬鹿正直に判断文かけば済むと思いますが。
Re:はてなで…… (スコア:0)
(1)プログラムが少しでも書けるかのテストに用いるもの
だから基本的な構文だけで書ければよい
ていうか基本以上の命令使ったらアウト
(2)プログラムが少し以上書ける人間には切り詰めたり
変な言語で書いてみたりチャレンジするもの
だからあらゆる手をつかっていい
http://golf.shinh.org/p.rb?FizzBuzz [shinh.org]