Archiverse Internet Archive
投稿のみ 投稿と返信
前のページ(最近)
112 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
次のページ(過去)
返信[47]
親投稿
BlackSoft BlackSoft.mkII3g
>745Lll<3さん ※すみません、敬称付け忘れました
0そうだね
プレイ済み
返信[46]
親投稿
BlackSoft BlackSoft.mkII3g
まあ、厳密な話は敷居が高くなるのでナシにしましょう(笑) 乱数+偶然=ボゴソート みたいな感じですね。この組み合わせが好きなので、次回もやるとすれば恐らくまたボゴソート系ですが、楽しんで頂ければと思います。 >745Lll<3 同一手法のルールは撤廃したので、文字列部門に投稿していただいたコードは有効です。 方法は無数にでるような問題ではないので、コードを圧縮していけば最終的には同一手法になってしまいますよね。
1そうだね
プレイ済み
返信[2]
親投稿
BlackSoft BlackSoft.mkII3g
ミニゲームも含め、皆さん素晴らしい作品を作られています。縛りを設けるなんてのは勿体無過ぎます。 ご自身でも作ってみれば分かると思いますが、作品を一つ完成させるというのは大変なことですよ。
5そうだね
プレイ済み
返信[41]
親投稿
BlackSoft BlackSoft.mkII3g
seed値についてあまり理解していなかったので調べましたが、生成パターンが同じになるというわけではなく、値が固定されるんですね。 ※「66884888」で固定 認めた後で取り下げてしまい申し訳ないですが、みむ*mim さんの言われるように「ランダムな」と矛盾することになりますので、ねこはちさんの投稿も参考記録ということにさせていただきます。 自分で作っておいて、解釈を誤ってしまいました。
1そうだね
プレイ済み
返信[39]
親投稿
BlackSoft BlackSoft.mkII3g
↑乱数生成についての盲点でした(笑) ですが、こちらもルールのこじつけという感じになってしまうかもしれませんが 「出力し続け」ていただきたいので、3回ぴったり想定で作られている上記の回答は今回は参考記録ということにさせてください。 ねこはちさんの最初の投稿については繰り返し処理が含まれているため、ルールに従っているものとします。
1そうだね
プレイ済み
返信[34]
親投稿
BlackSoft BlackSoft.mkII3g
文字列部門に参戦 REPEAT R$=STR$(RND(10))?R$;:INC A$,R$UNTIL INSTR(A$,R$*3)+1 (参考記録:59文字) りょうさん投稿のコードについてですが、末尾改行は含めなくて良いため、59文字となります。
1そうだね
プレイ済み
返信[33]
親投稿
BlackSoft BlackSoft.mkII3g
「数値部門」「文字列部門」について定義しておいた方が良いですね。 ちなみに、これまで投稿されているものは全て下記を満たしています。 数値部門  → 文字列変数未使用 文字列部門 → 数値変数未使用
0そうだね
プレイ済み
返信[32]
親投稿
BlackSoft BlackSoft.mkII3g
《中間報告》 現時点でのノミネートは、以下のようになっております。 ■数値部門 41:745Lll<3さん 43:ooさん 44:おちゃめさん 44:だにえるさん 49:otta777さん 65:MIKIさん 53:BlackSoft(参考) ■文字列部門 60:りょうさん 72:しょぼーんさん 83:ooさん
0そうだね
プレイ済み
返信[31]
親投稿
BlackSoft BlackSoft.mkII3g
今回は、数値を扱う方が有利と見えますが、文字列での技法が敬遠されるのも勿体無い気がするので、表彰対象を以下のように変更することにします。 《表彰項目》 ・大賞(数値部門) ・大賞(文字列部門) ・最速投稿賞 → おちゃめさん 廃止 ・最多投稿賞 ※部分的な置き換えを含めた再投稿を可としたことにより
0そうだね
プレイ済み
返信[29]
親投稿
BlackSoft BlackSoft.mkII3g
>だにえるさん 最初に画面クリアの必要はありませんよ。 お題の条件のみ満たせばOK! >ooさん 投稿ありがとうございます。 文字列では、しょぼーんさんが挑戦してくれましたが、やり方は異なります。 前回は文字列が威力を発揮しましたが、今回は数値を扱う方が短縮できるのかな?という感じですね。
1そうだね
プレイ済み
返信[25]
親投稿
BlackSoft BlackSoft.mkII3g
問題作成時、最初に浮かんだ方法です WHILE F-3R=RND(10)?R;:F=(F<<1OR P==R+1)AND 3P=R+1WEND (参考記録:53文字) 40文字台が出ている今では勝負になりませんが(笑)
2そうだね
プレイ済み
返信[19]
親投稿
BlackSoft BlackSoft.mkII3g
おちゃめさん なるほど、納得です。 アルゴリズムと実現手段は、1対1ではないですからね。構造的な置き換えについて考慮できていませんでした。表現の幅を狭めてはいけませんね。 MIKIさんも言われているように、規則を破棄することにします。 参加される皆様へ 下記の規則は、破棄することにします。 ================================== ・同一手法が既に出ている場合は文字数が少なくても受賞対象外(早い者勝ち) ==================================
1そうだね
プレイ済み
返信[17]
親投稿
BlackSoft BlackSoft.mkII3g
ゆうきさん 投稿ありがとうございます MCNT の値を、A1~A3に格納するために1~3と回していますね。これを、MODを使うことで実現できますので、よければ調べてみてくださいね。
0そうだね
プレイ済み
返信[14]
親投稿
BlackSoft BlackSoft.mkII3g
おちゃめさん ありがとうございます。 「置き換えによる短縮」も、ベースのコードがあっての改善なので、完全な「別手法」とはしたくないのが正直なところです。 そもそもコードゴルフという競技がコードの短さを競うものなので、置き換えを制限してしまうのは良くないと思いますが。 お題が簡単なので、上級者については置き換えができないくらいに圧縮したものを投稿していただければ良いと思います。 次回開催時は、その辺りしっかり定義するようにします。
0そうだね
プレイ済み
返信[10]
親投稿
BlackSoft BlackSoft.mkII3g
>何を以て同一手法とするのか 確かにそうですね。うまく定義できなかったので申し訳ないですが、全く同じコードを文字数削減のみ(例えばコロンを省略できた、など)で再投稿したものを表彰対象とはしたくなかったので。 乱数は好きですよ。ゲームには欠かせないじゃないですか♪
1そうだね
プレイ済み
返信[5]
親投稿
BlackSoft BlackSoft.mkII3g
おちゃめさんの投稿を検証した結果、条件を満たしておりますので 「最速投稿賞」 は おちゃめさんに授与致します。 >しょぼーん さん 投稿ありがとうございます。 数分差で、惜しかったですね♪
3そうだね
プレイ済み
返信[4]
親投稿
BlackSoft BlackSoft.mkII3g
再投稿について、ルールを追加します。 自分が投稿した手法の改善再投稿は、無制限とします。 要は、手法を出した者が改変の権利を得ます。特許みたいなものですね。
0そうだね
プレイ済み
トピック
BlackSoft BlackSoft.mkII3g

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

第1回好評につき、第2回コードゴルフ大会を開催致します。手元に実機が無い方、また初心者の方も参加しやすいように、お題は簡単なものを考えました。 《問題》 0~9の数字をランダムに出力し続け、同一の数字が3つ並んだ時点で出力を終了せよ。 (例) 86207619782555 ← ここで終了 ※細かいルールは次のコメントにて
5そうだね
プレイ済み
返信[1]
親投稿
BlackSoft BlackSoft.mkII3g
《ルール》 ・改行は1文字と数える ・同一手法が既に出ている場合は文字数が少なくても受賞対象外(早い者勝ち) ・条件を満たしていない場合は受賞対象外 《賞(ゴルフ部門)》 ・大賞 《賞(ゴルフ度外視部門)》 ・最多投稿賞 ・最速投稿賞 《期日(表彰対象)》 12/04 ご参加お待ちしております!
0そうだね
プレイ済み
返信[30]
親投稿
BlackSoft BlackSoft.mkII3g
沢山の投稿、ありがとうございました。 とても楽しめました。 また良いネタを思い付いたら開催しようと思いますので、お付き合いください(笑) >だにえるさん 提案ありがとうございます。次期開催時の参考にさせていただきます。
3そうだね
プレイ済み