トピック
BlackSoft BlackSoft.mkII3g

第3回 コード・ゴルフ on the プチコン

前回好評につき、第3回コード・ゴルフ大会を開催したいと思います。 ふと「IR法案」ってどうなったんだろうと考えていた際に、今回の問題を思い付きました。 題材は「ポーカー」です。 詳細はコメントに記載していきます。ご参加お持ちしております。
6そうだね
プレイ済み
返信[1]
親投稿
BlackSoft BlackSoft.mkII3g
《乱数についてのルール》 ・乱数系列の初期化は行わないこと ・乱数を生成する関数を使用する場合は、RND(数値)またはRNDF()を使用すること 《期限》 表彰対象は、3/20 24:00 までに投稿されたもの 《投稿方法》 スクリーンショットを貼っていただいても、ソースコードベタ書きでもどちらでも構いません。併せて文字数を申告してください。全ての行末に改行があるものとし、改行も1文字と数えます。 ※PRGSIZE(*,1)で表示される値と同一です。
0そうだね
プレイ済み
返信[2]
親投稿
ΖΕΧ ZEX256
89765や15243は数値が連続してないだろ
1そうだね
プレイ済み
返信[3]
親投稿
BlackSoft BlackSoft.mkII3g
《賞について》 ★大賞 期限内に最も文字数の少ないコードを投稿した方に授与します ★トップ賞 文字数に関係なく、最初に条件を満たす投稿をした方に授与します ★鱗賞 こんなやり方もあったのか!と思わせるような手法を編み出してくれた方に授与します ※共感数の最も多い投稿とします 作者の私もやってみましたが、155文字でした。この文字数を下回る投稿が出た際に公開したいと思います。
0そうだね
プレイ済み
返信[4]
親投稿
BlackSoft BlackSoft.mkII3g
失礼しました。条件に不備がありましたので訂正します。 《問題》 数値1~9を使用したランダムな5桁の整数を、スペース区切りで次の条件を満たすまで出力を続けること。 条件 ・整数の5つの数値を昇順に並べ替えた場合、連続していること ■条件を満たす例 89765,15243,76543 ■条件を満たさない例 23234,89123,13579 ※1と9は連続しているとみなさない 実行例
0そうだね
プレイ済み
返信[5]
親投稿
りょう RYO_NAK
短縮したので再投稿 ただ、FORループをGOTOで脱出しているので お行儀はよろしくないなぁと
0そうだね
プレイ済み
返信[6]
親投稿
りょう RYO_NAK
再投稿:細かい空白詰め
0そうだね
プレイ済み
返信[7]
親投稿
BlackSoft BlackSoft.mkII3g
りょう さん 投稿ありがとうございます! 条件を満たせれば良いので、お行儀は無視で(笑) 最終的に投稿するコードが決まったら、文字数の申告をしていただけると助かります。
0そうだね
プレイ済み
返信[8]
親投稿
りょう RYO_NAK
実行画面と文字数です(98文字)
0そうだね
プレイ済み
返信[9]
親投稿
駄目元で聞いてみる。 これはokですか?(一応56文字)
0そうだね
プレイ済み
返信[10]
親投稿
BlackSoft BlackSoft.mkII3g
しょぼーん さん 投稿ありがとうございます。 Aの初期値が固定されてしまっており、常に12345が出力される仕様であるため「ランダムな5桁」とは言えないです。申し訳ないですが、こちらは参考記録ということにさせていただきます。
0そうだね
プレイ済み
返信[11]
親投稿
BlackSoft BlackSoft.mkII3g
りょう さんが現在98文字で、155を下回っていますので、私の回答を投稿します。 フラグ管理が好きなので、どうしても拘ってしまいます。正直にソートが最短なのか??フラグ処理派の方のご参加もお待ちしてます(笑)
0そうだね
プレイ済み
返信[12]
親投稿
で  す  よ  ね ちゃんとやります。
0そうだね
プレイ済み
返信[13]
親投稿
りょう RYO_NAK
フラグ管理にヒントを得て箱を10個にしたら1文字減った!ふしぎ! 97文字です。
0そうだね
プレイ済み
返信[14]
親投稿
かおなし SYO-YU-KOTO
あっ…延々連続する数値を出すプログラムと勘違いしてた()
0そうだね
プレイ済み
返信[15]
親投稿
りょう RYO_NAK
詰めが甘いなぁ自分・・・ 93文字です。
0そうだね
プレイ済み
返信[16]
親投稿
BlackSoft BlackSoft.mkII3g
りょうさん しょぼーんさん かおなしさん ご参加いただきありがとうございます。 91文字まで圧縮することができました。 この文字数を下回る投稿が出たときに、また展開します。
0そうだね
プレイ済み
返信[17]
親投稿
りょう RYO_NAK
82文字まで減らしました。 そろそろ誰かが謎の技術で何とかしてくれるはず!
1そうだね
プレイ済み
返信[18]
親投稿
BlackSoft BlackSoft.mkII3g
りょう さん 恐れ入りました。 1行目F XOR 31をF!=31に変更して87文字までは減らせましたが、それでも届きませんでした。
0そうだね
プレイ済み
返信[19]
親投稿
りょうさんの方法を若干パk…踏襲してみみっちく81文字まで減らしました!
0そうだね
プレイ済み
返信[20]
親投稿
ちょっと減らせました。 79文字です。
1そうだね
プレイ済み
返信[21]
親投稿
かおなし SYO-YU-KOTO
あー駄目だ気がついたら自分の工夫じゃどうしようもない域まで行ってた ちなみに176文字
0そうだね
プレイ済み
返信[22]
親投稿
BlackSoft BlackSoft.mkII3g
しょぼーん さん フラグとINSTR検索の融合で、見事に記録更新ですね!しょぼーんさんの投稿を見て、自分もまだまだ詰めが甘かったと実感。 かおなし さん これから先は、奇抜なアイデア勝負になるかもしれませんね。出題者である自分も、こんなに短縮できるとは最初は思っていませんでした。文字数は勿論ですが、面白い切り口を見つけたら是非投稿してください。
0そうだね
プレイ済み
返信[23]
親投稿
だにえる haru2016nen
こういうので合ってますか? 138文字です。
1そうだね
プレイ済み
返信[24]
親投稿
BlackSoft BlackSoft.mkII3g
だにえるさん 投稿ありがとうございます! 今は実機検証できませんが、ソースコードを見たところ、動作は正しいと思います。しかも、まだ出ていないアプローチ方法ですね! 改行を消して繋げたり、2つ目のforループを消すことで、更に圧縮できると思います。
2そうだね
プレイ済み
返信[25]
親投稿
BlackSoft BlackSoft.mkII3g
只今を持ちまして、表彰対象の投稿を締め切らせていただきます。 参加下さった皆様、どうもありがとうございます。 表彰は後日行います。 また、本トピックは暫く開放しておきますので、妙案が浮かんだ方は是非とも投稿してください。 ZEXさん 条件に対するご指摘をありがとうございました。お陰さまで、皆様にルールを正確に伝えることができました。
2そうだね
プレイ済み
返信[26]
親投稿
BlackSoft BlackSoft.mkII3g
《《 結果報告 》》 今回は4名の方にご参加いただきました。投稿者と文字数は以下の通りです。  しょぼーんさん:79  りょうさん  :82  だにえるさん :138  かおなしさん :176  ━━━━━━━━━━━━  BlackSoft  :87(参考)
2そうだね
プレイ済み
返信[27]
親投稿
BlackSoft BlackSoft.mkII3g
《《 授賞式 》》 ■大賞   しょぼーんさん ■トップ賞 りょうさん ■鱗賞   だにえるさん       かおなしさん 文字列関数INSTRを使用した面白いアプローチを見せていただきましたので、だにえるさん・かおなしさんのお二人に鱗賞を贈らせていただきます。 皆様、どうもありがとうございました!
3そうだね
プレイ済み
返信[28]
親投稿
りょう RYO_NAK
変わり種をひとつ投げてみる
2そうだね
プレイ済み
返信[29]
親投稿
りょう RYO_NAK
実行結果はこちら 文字数は・・・お察し下さい
0そうだね
プレイ済み
返信[30]
親投稿
BlackSoft BlackSoft.mkII3g
年度も変わりましたので、この辺りで締めさせていただきます。 今回はポーカーを題材にしましたが、如何でしたか? 実は「ストレート」よりも「ツーペア」や「フルハウス」の方が難易度が高いです。興味のある方は是非とも挑戦してみてください。 どうもありがとうございました。 りょうさん 返答遅くなりました。 変わり種をありがとうございます!次回も、また色々と魅せて頂けるのを楽しみにしております!
0そうだね
プレイ済み