HSPTV!掲示板

こんにちは。
HSPでのFizzBuzz問題への解答を集めてみたいと思い、投稿しました。

[FizzBuzz問題とは]
・１から順に数を出力していきます
・ただし、数えようとした数が
　3の倍数の時は「Fizz」
　5の倍数の時は、「Buzz」
　15の倍数の時は、「FizzBuzz」
　とだけ出力せねばなりません。

[出力例]

1
2
Fizz
4
Buzz
Fizz
7
8
Fizz
Buzz
11
Fizz
13
14
FizzBuzz
16

[このスレッド内でのルール]
・HSPの一つのソースで完結する（他のプログラムとの連携禁止）
・出力には「mes」命令を使う
・改行は0バイト、英数字は1バイト、2バイト文字は2バイトとし、できるだけ短いコードのほうが良いコードとする。
・出力は100まで実行する。（100含む）

以上のルールでお願いします。
なお、私が適当に書いたコードは

repeat 100,1
if cnt\15=0:mes "FizzBuzz":else:if cnt\5=0:mes "Buzz":else:if cnt\3=0:mes "Fizz":else:mes ""+cnt
loop

の112バイトです。では、よろしくお願いします。

こんにちは。ブログやっております。
いや、別にブログの宣伝してるわけではなくてですね、ブログに書いたことありますってことです。

http://blogs.yahoo.co.jp/tastycookies146/2747945.html
#runtime "hsp3cl"は付いてますが、それを除けばmesで出力してるし別にいいかと。
ちょうど100までですし。

一番短いコードを一応写しておきます。

for i,1,100:F=""+i,"Fizz","Buzz","FizzBuzz":mes F.((i\3=0)+(i\5=0)*2):next

74バイト。
記事内でも言っている通り、メモリ使用だの非効率だのはしりません。
あくまでバイト数を少なくしたのです！



FizzBuzz問題時、「余剰記号を使わない。」っていう縛りは、結構楽しいですよｗ

ちょっと短くなりました。

for i,1,101:F=""+i,"Fizz","Buzz",F.1+F.2:mes F.((i\3=0)+(i\5=0)*2):next

72バイト。
ついでに、さっきのが99まで出力しなかったのを修正。

＞Cookiesさん
なるほど〜
文字列を配列に書きこんでおいてから、その添字を計算して出力するわけですね。
FizzBuzzの添字3は、Fizzの添字1+Buzzの添字2であるところがミソですね。
いきなり縮められてしまいましたｗ
（#ついでに、こちらの環境（Win XP,HSP 3.2）だと、#runtime "hsp3cl"無しでも動きました）

＞FizzBuzz問題時、「余剰記号を使わない。」っていう縛りは、結構楽しいですよｗ
たしかにそうなのですが、問題がかなり難しくなり、参加する人が少なくなってしまうので（自分含め）
そういう制限は無しとしましたｗ

初心者のかたも上級者の方も、どんどん書き込んでいってくださいね。

あ、#runtime "hsp3cl"は、CUIにするためのランタイムだったんですね
早とちりしてすみませんでした。

配列とブーリアン値をうまく利用して

repeat 100,1:x=cnt:r=""+x,"Fizz","Buzz",r.1+r.2:mes r(2*(x\3==0)+(x\5==0)):loop

…と書こうとしましたが
"=="と"!"を"="と"!"と表記できたり、 HSPにもfor文があったのを今頃ここで知りましたよ cookieさんの物の配列のドットを消して70バイト（笑）

for i,1,101:F=""+i,"Fizz","Buzz",F.1+F.2:mes F((i\3=0)+(i\5=0)*2):next

ちょっと趣旨が違いますが、
FizzBuzzを考えていると、
「２進数について偶数桁の数値の和から奇数桁の数値の和を引いたかずが３の倍数になる数は３の倍数である。」
が成り立つことに気がつきました（証明済）。役に立たないけど。

>>れみはるさん

>"=="と"!"を"="と"!"と表記できたり、
そうなんですよね。
自分も普段は「==」,「!=」と書くようにしているつもりなんですが、
バイト数を短くするために。

>HSPにもfor文があったのを今頃ここで知りましたよ

for〜next制御は、プリプロセッサのマクロ機能を使って実現されています。

ってHDLには書いてあります。

CやJava等に近い記述をしたいような場合にお使い下さい。

初心者の方には、repeat〜loop命令か、if命令による繰り返し記述を推奨します。

とも。
基本的にforはあまり使ってほしくないみたいですね。
repeatはcntが便利ですが、"repeat"と6文字ですし、
forで「i」などの一文字変数名を使ったほうが短くなるかと。


あまり細かいことで、言おうか迷いましたが。。。
>cookieさんの物
Cookie"s"ですｗ
別に大文字小文字は気にしませんが、やっぱり複数形はね。


>配列のドットを消して70バイト（笑）
その発想はなかったｗｗｗ

Cookiesさんじゃないですか。
ひよこだったのできずきませんでした。

>Cookiesさんじゃないですか。
なんかずっと前にも違う人に同じことを言われた気が…
もしかしたら同一人物！？ｗ

>ひよこだったのできずきませんでした。
じゃあなんだったら気づきます？ｗ
昔からずっとひよこでしたけど。
一時期なんて「ひよこ」ってハンネだったんですからね。



スレの本題と関係のない話をしてしまったことにお詫び申し上げます。

こちらも、スレの本題と関係のない話を申し上げてしまったことにに深くお詫び申し上げます。

ルールの悪用(?)

「改行は0バイト」を上に反映させただけ。

for i,1,101

F=""+i,"Fizz","Buzz",F.1+F.2
mes F((i\3=0)+(i\5=0)*2)
next

[67Byte]

>>40855
あ、改行はバイト数増えなかったですか。
67Biteが限界かな？

だが諦めない（キリッ


>>40851
複数形でしたね　Σ(´∀｀；)
これは失礼しました。

#include"f"

fというファイルにFizzBuzzを書いておく
11byte

>HSPの一つのソースで完結する（他のプログラムとの連携禁止）
これにひっかかるのでは？

見てなかった……

じゃあHSP自体に100までのFizzBuzzを出力するfという命令を追加する
これなら1Byte

そんなことするくらいなら、
どっかのネタ言語がHello World出力するみたいに、0バイトのソースはFizzBuzzするとか。

というかそれ、もはやHSPじゃないし。

パソコンの中にファイルがあったので

for i,1,101
b=""
if i\3=0:b="Fizz"
if i\5=0:b+"Buzz"
if""=b:b+i
mes b
next

68Byteかな？

連投すいません

for i,1,101
b="
if i\3=0:b="Fizz
if i\5=0:b+"Buzz
if""=b:b+i
mes b
next

65Byteかも

え、なにそれ。
行末の"って省略できるの！？
しかもb+iって。。。

見た瞬間は、別の言語かと思いました。。。。

ひたすらダイエットをしているこの流れに俺はあえて反逆するぞ

	notesel code
	noteadd "#runtime \"hsp3cl\"";
	for i,1,101
	F=""+i,"Fizz","Buzz",F.1+F.2
	noteadd "mes \""+F((i\3=0)+(i\5=0)*2)+"\""
	next
	notesave "fizzbuzz.hsp"

FizzBuzzを100までど根性で出力するコードを出力するぞ。

技法的に簡素化するのか、書式のゆらぎを突いて短く
するのか良く分らないスレです。

スクリプト上で短くても、実行時のサイズや速度が大
きかったら意味が無いのでは。

質問者の狙いが、何処に有るのかにもよりますが。

>kAさん
ハイスペックなパソコンとかで開発してると、意識しづらいですが
実行速度もソースの見易さも何もかも度外視してソースの短さだけを追求するコーディングは
実用面でも意外に重要だったりしますよ〜

例えばポケコン等での開発だと、ソースを置ける領域が目茶苦茶に小さいので
ありとあらゆる省略法を駆使して、1行にみっちり255文字詰め込んで
自分以外読めないんじゃね！？っていうようなコードにしなければ
大きなプログラムを組めなかったりします＾＾；

仮にポケコン等にHSPのインタプリタが搭載されて、そこでカツカツの開発をすることになったら
Cookiesさんや、hexa.hemiさんみたいなコードが採用されることになると思います〜
（もちろん場合によっては速度との兼ね合いも必要ですけども）
ダブルクォーテーションの省略とかの仕様に明記されていない省略法を使うのも基本テクのひとつです


…っていうかそこまで深く考えなくても、FizzBuzz系の問題はゲームみたいなものなので
実用面でのツッコミは不要だと思いますよ〜（-▽-*

hexa.hemiさんのコードを改変。
63Byte

for i,1,101
b="Fizz
if i\3:b="
if i\5=0:b+"Buzz
if""=b:b+i
mes b
next

>>KAさん
>技法的に簡素化するのか、書式のゆらぎを突いて短くするのか良く分らないスレです。
両方を駆使して一番短くすればいいじゃないですか。
書式のゆらぎというか、条件がそうなんですから。
条件に一番合ったソースを乗せればそれが一番よいかと。

>スクリプト上で短くても、実行時のサイズや速度が大きかったら意味が無いのでは。
まあ、そりゃあそうですけども、FizzBuzzってのはもともと意味ないことですから。遊び。
ソースを短くすることだけに熱中すればよいのです！

今更な質問かもしれませんが、初心者ですのでお許しください。
100まで表示できれば、100以上もついでにできてもいいのでしょうか？
for i,1,101
next
を
repeat
i++
loop
ではダメなんでしょうか？　まぁ、フリーズするんですが・・・。

[このスレッド内でのルール]
・HSPの一つのソースで完結する（他のプログラムとの連携禁止）
・出力には「mes」命令を使う
・改行は0バイト、英数字は1バイト、2バイト文字は2バイトとし、できるだけ短いコードのほうが良いコードとする。
・出力は100まで実行する。（100含む）

申し訳ありませんが、このスレの意向と明らかに反する解法
（HSP自体にFizzBuzz機能をつける、など）は評価の対象外とさせて頂きます。
ルールの曖昧さをお詫び申し上げます。

>>KAさん
>技法的に簡素化するのか、書式のゆらぎを突いて短く
>するのか良く分らないスレです。
こちらとしましては、どちらも目指して欲しいです。理由は
・技術的に簡素化したコードを読む＆書くことによって、未知のアルゴリズムを発見することができる
・短く書くことによって、HSPの未知の書式を発見することができる
などからです。

>>ORZさん
ある意味最強のコードですね…
なんか惚れましたｗ

>>hexa.hemiさん
>>いなえさん
>b+"Buzz
この書き方は勉強になりました。
>if""=b:b+i
ダブルクォーテーションならば、ifの後に続けて書くことも可能なんですね
初めて知りましたｗ

>>塩弟さん
申し訳ありませんが、100以降の出力はしてはいけないことにします。
ルールに明確に書いておくべきでした。すみません。
また、初心者歓迎致します。

いなえさんのコードを改変。
62バイトです

do
i+
s="Fizz
if i\3:s="
if i\5=0:s+"Buzz
if""=s:s+i
mes s
until$63<i

>まあ、そりゃあそうですけども、FizzBuzzってのはもともと意味ないことですから。遊び。
→そういうものでしたか納得しました。

>>・技術的に簡素化したコードを読む＆書くことによって、未知のアルゴリズムを発見することができる
→これは納得できます。

>>・短く書くことによって、HSPの未知の書式を発見することができる
→「推奨されない書式」も発見できるでしょう。（これが一番言いたかった）


目的自体は納得できたので、いらぬコメント失礼しました。