前回好評につき、第３回コード・ゴルフ大会を開催したいと思います。 ふと「IR法案」ってどうなったんだろうと考えていた際に、今回の問題を思い付きました。 題材は「ポーカー」です。 詳細はコメントに記載していきます。ご参加お持ちしております。

《乱数についてのルール》 ・乱数系列の初期化は行わないこと ・乱数を生成する関数を使用する場合は、RND(数値)またはRNDF()を使用すること 《期限》 表彰対象は、3/20 24:00 までに投稿されたもの 《投稿方法》 スクリーンショットを貼っていただいても、ソースコードベタ書きでもどちらでも構いません。併せて文字数を申告してください。全ての行末に改行があるものとし、改行も1文字と数えます。 ※PRGSIZE(*,1)で表示される値と同一です。

89765や15243は数値が連続してないだろ

《賞について》 ★大賞 期限内に最も文字数の少ないコードを投稿した方に授与します ★トップ賞 文字数に関係なく、最初に条件を満たす投稿をした方に授与します ★鱗賞 こんなやり方もあったのか！と思わせるような手法を編み出してくれた方に授与します ※共感数の最も多い投稿とします 作者の私もやってみましたが、155文字でした。この文字数を下回る投稿が出た際に公開したいと思います。

失礼しました。条件に不備がありましたので訂正します。 《問題》 数値1～9を使用したランダムな5桁の整数を、スペース区切りで次の条件を満たすまで出力を続けること。 条件 ・整数の5つの数値を昇順に並べ替えた場合、連続していること ■条件を満たす例 89765,15243,76543 ■条件を満たさない例 23234,89123,13579 ※1と9は連続しているとみなさない 実行例

短縮したので再投稿 ただ、FORループをGOTOで脱出しているので お行儀はよろしくないなぁと

再投稿：細かい空白詰め

りょう　さん 投稿ありがとうございます！ 条件を満たせれば良いので、お行儀は無視で(笑) 最終的に投稿するコードが決まったら、文字数の申告をしていただけると助かります。

実行画面と文字数です(98文字)

駄目元で聞いてみる。 これはokですか？(一応56文字)

しょぼーん　さん 投稿ありがとうございます。 Aの初期値が固定されてしまっており、常に12345が出力される仕様であるため「ランダムな5桁」とは言えないです。申し訳ないですが、こちらは参考記録ということにさせていただきます。

りょう　さんが現在98文字で、155を下回っていますので、私の回答を投稿します。 フラグ管理が好きなので、どうしても拘ってしまいます。正直にソートが最短なのか？？フラグ処理派の方のご参加もお待ちしてます(笑)

で　　す　　よ　　ね ちゃんとやります。

フラグ管理にヒントを得て箱を10個にしたら1文字減った！ふしぎ！ 97文字です。

あっ…延々連続する数値を出すプログラムと勘違いしてた()

詰めが甘いなぁ自分・・・ 93文字です。

りょうさん　しょぼーんさん　かおなしさん ご参加いただきありがとうございます。 91文字まで圧縮することができました。 この文字数を下回る投稿が出たときに、また展開します。

82文字まで減らしました。 そろそろ誰かが謎の技術で何とかしてくれるはず！

りょう　さん 恐れ入りました。 1行目F XOR 31をF!=31に変更して87文字までは減らせましたが、それでも届きませんでした。

りょうさんの方法を若干パk…踏襲してみみっちく81文字まで減らしました！

ちょっと減らせました。 79文字です。

あー駄目だ気がついたら自分の工夫じゃどうしようもない域まで行ってた ちなみに176文字

しょぼーん　さん フラグとINSTR検索の融合で、見事に記録更新ですね！しょぼーんさんの投稿を見て、自分もまだまだ詰めが甘かったと実感。 かおなし　さん これから先は、奇抜なアイデア勝負になるかもしれませんね。出題者である自分も、こんなに短縮できるとは最初は思っていませんでした。文字数は勿論ですが、面白い切り口を見つけたら是非投稿してください。

こういうので合ってますか? 138文字です。

だにえるさん 投稿ありがとうございます！ 今は実機検証できませんが、ソースコードを見たところ、動作は正しいと思います。しかも、まだ出ていないアプローチ方法ですね！ 改行を消して繋げたり、2つ目のforループを消すことで、更に圧縮できると思います。

只今を持ちまして、表彰対象の投稿を締め切らせていただきます。 参加下さった皆様、どうもありがとうございます。 表彰は後日行います。 また、本トピックは暫く開放しておきますので、妙案が浮かんだ方は是非とも投稿してください。 ZEXさん 条件に対するご指摘をありがとうございました。お陰さまで、皆様にルールを正確に伝えることができました。

《《　結果報告　》》 今回は4名の方にご参加いただきました。投稿者と文字数は以下の通りです。 　しょぼーんさん：79 　りょうさん　　：82 　だにえるさん　：138 　かおなしさん　：176 　━━━━━━━━━━━━ 　BlackSoft　　：87(参考)

《《　授賞式　》》 ■大賞　　　しょぼーんさん ■トップ賞　りょうさん ■鱗賞　　　だにえるさん 　　　　　　かおなしさん 文字列関数INSTRを使用した面白いアプローチを見せていただきましたので、だにえるさん・かおなしさんのお二人に鱗賞を贈らせていただきます。 皆様、どうもありがとうございました！

変わり種をひとつ投げてみる

実行結果はこちら 文字数は・・・お察し下さい

年度も変わりましたので、この辺りで締めさせていただきます。 今回はポーカーを題材にしましたが、如何でしたか？ 実は「ストレート」よりも「ツーペア」や「フルハウス」の方が難易度が高いです。興味のある方は是非とも挑戦してみてください。 どうもありがとうございました。 りょうさん 返答遅くなりました。 変わり種をありがとうございます！次回も、また色々と魅せて頂けるのを楽しみにしております！