Petitverse

サイズは140です(*‘ω‘ *)

Fizz Buzzの間違いでは?とか、
自然数は元々!=0では?とか思ってしまいました。
日本語読むのは下手なので、仕様の意味がよくわかりませんでした。
なので、なぎさんのものと似たような仕様にしました。
ですが、仕様を見るとiは大文字のようなので、大文字にしました。

サイズは92です。
公̶開̶キ̶ー̶【̶Ｅ̶Ｋ̶４̶Ｎ̶Ｘ̶Ｄ̶Ｑ̶６̶】̶
ルールの変更があったので公開停止し、
それに合わせたものを公開しました。


↓共感数がバグっているようです。(本来の共感数は5または6)

仕様：
自然数Nを入力とし、1〜Nまで1ずつカウントアップした時に、そのカウントアップした数が3で割り切れる場合はFIZZ、5で割り切れる場合はBIZZ、但し3と5両方で割り切れる場合はFiZZ BiZZ(iは小文字、間にスペースあり)を出力。3でも5でも割り切れない場合はカウントアップした数をそのまま出力。出力の際、,(カンマ)で区切る。

という仕様で作ってみました。
画面左上が本命で、119文字でした。

冒頭の仕様（3で割れる→FIZZを表示、5で割れるBIZZを表示、両方で割れる→FiZZ BiZZを表示、両方とも割れない→そのまま数字を表示、「,」で区切る）で作ってみました。

INPUT N:FOR I=1TO N:A=I MOD 3>0B=I MOD 5>0?STR$(I)*A*B+"FIZZ"*!A*B+"BIZZ"*A*!B+"FiZZ BiZZ"*!A*!B+",";:NEXT

行末の改行コード込みで107文字です。

フラグの詰めがあまかった(2個で良かったのか)。
それにしても、文字数少ない方が必ずしもファイルサイズ小さいって訳では無いんですね。文字コード小さい方がサイズ小さいとか？SmileBASICの予約語なら文字数の割りにサイズ小さくなるとか？う〜ん、謎だ(@_@)

↑

そうですね。
自分のは、
サイズ:95
文字数:132
なので内部で圧縮されているのだと思います。
ちなみに自分のプログラムは、圧縮されるかもと思い、
なるべく小さい文字コードの文字を使用しています。
例:空白→タブ、変数はAから順に使う
また、スクリーンショットをよく見てもらうと分かると思いますが、
最後の改行を無くすことで1文字分減らしています。


自分が、
"Ryou Tanpoさんのやり方をそのままやったらNが表示されなかったので、
自分なりに改良したものを本気で作りましたが、
104byteでした。"
と言ったものとしんいちさんのプログラムがそっくりだったので、
自分がまだ公開していないプログラムを見られたのかと思い、
びっくりしました。

>はるさん
はるさんの投稿みて(ダウンロードして)から投稿しました。見た目よりファイルサイズ小さいなぁと気になりまして。

あれから文字コード小さいのに置き換えたり、文字コード数合計を測ったり、色々試してみたけどファイルサイズ変わらなかった。SmileBASICの予約語がカギっぽい。

そして文字数自体も少なくできないか色々考えてみたけど、おちゃめさんの107文字より少なくできなかった。あれが限界かな。

おちゃめさんのやり方を真似ました。
また、最後にカンマがついているのが嫌だったので、
最後にカンマがつかないようにしました。
ですが、そのせいで7byte増えてしまいました。


サイズ

最後カンマ有り:91
最後カンマ無し:98


最後カンマ無しを公開します。
公̶開̶キ̶ー̶【̶Ｃ̶Ｒ̶７̶Ｑ̶Ｗ̶３̶Ｄ̶４̶】̶
公開停止しました。

>はるさん
更にファイルサイズ小さくなりましたね。やっぱり文字コード関係してるようですね。ちなみにカンマ無しは1文字短くできますよ。カンマの出力部をプリントの先頭に持っていくと...

文字コード、試しに全ての文字に+&HFEE0して半角用の文字コードに変換してみたらファイルサイズ大きくなりました。そして実行できなくなりました^^;

↑それをやったら何故か1byte増えてしまいました。
なので特に進歩はありません。

サイズ:98
公開キー【CD7NH3D4】

はるさんへ

(A!=B)を(A>B)に変更すればさらに1文字短縮できますね。

↑

ありがとうございます。
1byte短縮できました。
なんかだんだん1つのプログラムを、
皆で少しずつ短くしていっている感じになっていますね。

サイズ:97
公開キー【LD7383JJ】

やばい、すでに指摘のとおり上で投稿したやつ FIZZ でも BIZZ でも FiZZBiZZ でもないときに数字そのものを表示するとこ忘れている! 失礼しました