全体が見えないので予測ですが 60行目でTEKIの値を増やしているので 65行目で未定義のIDを指定してしまっているのでは？

ループからの脱出については、過去に議論されていますね。多重ループの最深部からGOTO脱出しても、特に問題はなさそうなので、３号では解消されていると見て良いと思います。 https://miiverse.nintendo.net/posts/AYMHAAACAAADVHiJeRPfaw

こういち さん ご参加ありがとうございます！ ゴルフは、合計打数の少ない人が勝ちです）ね。コードゴルフも同じで、「コードの合計文字数が最も少ない人を勝ち」とするプログラミングの競技です。 今回は、ゴルフ度外視で様々な方法を披露してくれた方が多かったので、面白かったですよ♪ さて、こういちさんの投稿してくれたコードですが、やはり条件を満たせていないようですね。 A[]をフラグとして使用する意図があると思われるので ?B　の直後に A[B]=1 とすれば条件を満たします。

素敵な試みです。 自分の使っていた機種は、CASIOのFX-890P。 画面サイズは192*32でしたからね。 プチコンの画面サイズといい、リソースといい、なんて贅沢なんだろうと思ってしまいますね♪ ＞おちゃめさん バトンどうぞ(笑)

何かボタンを押すと、関数の取得値を表示して終了するサンプルです。 ポイントは、値を取得したらループを抜ける事。基本的に、BUTTON()関数は毎フレーム実行します。 読み込んだ値を暫く保存しておきたいのであれば、専用の変数を用意して格納しておきましょう。 ACLS REPEAT VSYNC BT=BUTTON(2) UNTIL !BT ?BT

＞ダイキさん 投稿ありがとうございます。 せっかく考えて頂きましたが、このコードでは条件(同じ数字を出さない)を満たせないです。 ※正確には、約0.36%の確率で条件を満たせる 気が向いたら、またチャレンジしてみてくださいね！

5連鎖直前です。 ぷ※ぷ※の変形型落ちものパズルですね。 本家での私の最高連鎖は14です。

作りが丁寧ですね☆ 「かんたん」「ふつう」は30以上取れましたが、「むずかしい」はなかなかムズカシイですのー(笑) スクリーンショットに3D感が出せないのが残念。

以前おちゃめさんが投稿されていました。 文字列と数値を比較演算すると、3が返るみたいですね。 https://miiverse.nintendo.net/posts/AYMHAAADAAB2V0fSfxRUkA

１．3DS単体で開発できるので、持ち歩けて、どこでも気が向いたときにプログラミングができる ２．自分の作った作品を簡単に投稿できて、皆の反応を楽しめる ３．安い！ ご購入いただく１択しかありません(笑)

そう言えば締め切りを設定していませんでしたね。 このようなトピック立ては初の試みだったので、どれだけの方が参加してくれるか分からず、細かいルールも考えていませんでした。 まだ何か方法がないだろうかと暇なときにぼんやり考えていますが、大きく分けて2通りなんですね。MIKIさんの全網羅も入れると3通りかな。 「こんなやり方があったのか！というプログラム」を見てみたいというのはおちゃめさんと同じです。自分が最初に投稿したもの以外は、全て斬新に見えました♪ なので、もう暫く開放しておきます。 ゴルフ度外視で全くOKですので、何か思い付いた方は気楽に投稿していただければと思います。

意外と盲点だった、「並べ方」に忠実な再現。 FOR J=0TO 9R=RND(J+1)A$=LEFT$(A$,R)+STR$(J)+RIGHT$(A$,J-R)NEXT?A$

ソースコードを眺めたり実験したりと、こんな時間になってしまいました。中毒性有りますね。 MIKIさんが提示してくれたようなボゴソートから、将棋や囲碁のアルゴリズムが出来ているんだろうなと、ふと思いました。

フラグ派と並べ替え(作り替え)派で分かれましたね。 instrやshiftは使った事が無いので、今更ながら勉強になってます。武器は多い方が良いですね。 フラグ管理は効率が良いものだと思っていましたが、数列を作るためのループ回数の期待値(処理負荷)を考えると並べ替えに軍配。ゴルフ的にはフラグに軍配、という感じでしょうか。 ＞ドラくんs ご参加ありがとうございます！初心者であろうと関係ありませんよ♪ さてコードですが、これだと2桁しか表示されませんね…？期待は 「8605792134」 のような10桁の数字の並びです。何度でも挑戦してみてくださいね。

皆さま、ご参加ありがとうございます！ 本日はリリース日(業務の方で)でしたが、そんな日に限って何かやりたくなるものです、よね？(笑) 本トピックの主旨はゴルフとは言え、本音は 「様々な方法を見てみたい」なので、気楽に様々な方法で書いて頂ければと思います。 これから皆様の書いてくれたコードを吟味したいと思います♪

自分の回答です。 A=1023REPEAT B=RND(10)IF A AND 1<<B THEN ?B;:A=A XOR 1<<B ENDIF UNTIL!A

最近のトピックは、初心者の勉強中の方々に有識者が回答する、というものが多い気がします。 なので、たまには中～上級者向けのお遊びトピックがあってもいいかなと思いました(笑) 以下は私が考えた問題です。 回答頂いてもいいし、新たにお題を投げて頂いても構いません。コーディングのネタで盛り上がれたらと思います。 《問題》 0～9までの10個の数字を各1度だけ使用し、ランダムな10桁の数列を作れ。ただし、複数回コードを実行した場合、前回の数列とは関連性を持たないものとする。

文法(決まり事)なので、書き方は丸ごと受け入れてください。 一つ覚えてしまえば、FORMAT$の書式については応用できるようになります。

おまけ：直感的なやつです。

文字の固定について 既にMIKIさんが回答してくれていますので、それを踏まえてサンプルを書いてみます。 ACLS WHILE 1 VSYNC B=BUTTON() LOCATE 18,14 ?"BUTTON()=[";FORMAT$("%4D",B);"]" WEND 捕捉として ("%4D",B)　→　右詰め ("%-4D",B)　→　左詰め