プチコンまとめWiki (初代/mkII)

パンくずリスト

• トップ
• Toukou
• HIT＆BLOW

2014年8月18日投稿 / 投稿者 : YOS G-spec / タグ : 投稿プログラム ゲーム QRコード mkII専用

概要

ごくごく普通のHit&Blow (数当てゲーム)です。 1-10の好きな桁数でプレイできます。

遊びかた

1. 好きな桁数(1-10)を入力します。一般的には4が多いと思います。
2. ランダムで指定された桁数の数列が生成されます。この数列に重複は無い物とします。
3. 2.の数列を予想して入力します。
4. このとき、ヒントとしてHIT、BLOW、MISSの個数が表示され、このヒントは次の意味を持ちます。
   • HIT :正解した数字の個数。
   • BLOW:使われているが桁がずれている数字の個数。
   • MISS:数列に使用されていない数字の個数。
5. 4.のヒントをもとに正解を見つけ出すまで3.と4.を繰り返します。

スクリーンショット・動画

QR コード

+

前のやつ

+

サブルーチン化

プログラムリスト

+

前のやつ

ＰＲＩＮＴ”＜ＨＩＴ＆ＢＬＯＷ＞”：ＰＲＩＮＴ”” ＠ＨＥＡＤ 　　ＣＬＥＡＲ 　　ＰＲＩＮＴ”ケタスウヲ　ニュウリョクシテネ。” 　　ＰＲＩＮＴ”＞”； 　　ＧＯＳＵＢ＠ＲＥＡＤＬＩＮＥ：ＰＲＩＮＴ””：ＰＲＩＮＴ”” 　　ＭＡＸ＝ＶＡＬ（ＲＥＡＤＬＩＮＥ＄） 　　ＩＦ　ＭＡＸ＝＝０　ＴＨＥＮ＠ＨＥＲＲ 　　ＩＦ　１０＜ＭＡＸ　ＴＨＥＮ＠ＨＥＲＲ 　　ＤＩＭ　ＡＮＳＳ（ＭＡＸ），ＵＳＥＲＳ（ＭＡＸ） 　　ＡＮＳ＄＝”” 　　ＣＯＵＮＴ＝１ 　　Ｉ＝０ 　　＠ＲＮＤＭＡＸ 　　　　＠ＲＮＤＳ 　　　　ＡＮＳＳ（Ｉ）＝ＲＮＤ（１０） 　　　　ＦＯＲ　Ｎ＝０　ＴＯ　Ｉ−１ 　　　　　　ＩＦ　ＡＮＳＳ（Ｉ）＝＝ＡＮＳＳ（Ｎ）　ＴＨＥＮ＠ＲＮＤＳ 　　　　ＮＥＸＴ 　　　　ＡＮＳ＄＝ＡＮＳ＄＋ＳＴＲ＄（ＡＮＳＳ（Ｉ）） 　　Ｉ＝Ｉ＋１ 　　ＩＦ　ＭＡＸ＜＝Ｉ　ＴＨＥＮ＠ＥＮＤＲＮＤ 　　ＧＯＴＯ＠ＲＮＤＭＡＸ 　　＠ＥＮＤＲＮＤ ＧＯＴＯ＠ＢＯＤＹＦＡＳＴ ＠ＨＥＲＲ 　　ＢＥＥＰ　２：ＰＲＩＮＴ”” 　　ＰＲＩＮＴ”ＥＲＲＥＲ！！” ＧＯＴＯ＠ＨＥＡＤ ＠ＢＯＤＹＦＡＳＴ 　　ＰＲＩＮＴ　ＭＡＸ；”ケタノ　スウシ゛ヲ　ニュウリョクシテネ。” 　　ＰＲＩＮＴ”（Ｚテ゛　キ゛フ゛アッフ゜）” ＠ＢＯＤＹ 　　ＰＲＩＮＴ　ＣＯＵＮＴ；”：”； 　　ＧＯＳＵＢ＠ＲＥＡＤＬＩＮＥ 　　ＵＳＥＲ＄＝ＲＥＡＤＬＩＮＥ＄ 　　ＨＩＴ＝０：ＢＬＯＷ＝０ 　　ＭＩＳＳ＝ＭＡＸ 　　ＩＦ　ＵＳＥＲ＄＝＝”Ｚ”　ＯＲ　ＵＳＥＲ＄＝＝”ｚ”　ＴＨＥＮ＠ＧＩＶＥＵＰ 　　ＩＦ　ＬＥＮ（ＵＳＥＲ＄）！＝ＭＡＸ　ＴＨＥＮ＠ＢＥＲＲ 　　ＦＯＲ　Ｉ＝０　ＴＯ　ＭＡＸ−１ 　　　　ＵＳＥＲＳ（Ｉ）＝ＶＡＬ（ＭＩＤ＄（ＵＳＥＲ＄，Ｉ，１）） 　　ＮＥＸＴ 　　ＦＯＲ　Ｉ＝０　ＴＯ　ＭＡＸ−１ 　　　　ＦＯＲ　Ｎ＝０　ＴＯ　ＭＡＸ−１ 　　　　　　ＩＦ　Ｉ！＝Ｎ　ＡＮＤ　ＵＳＥＲＳ（Ｉ）＝＝ＵＳＥＲＳ（Ｎ）　ＴＨＥＮ＠ＢＥＲＲ 　　　　ＮＥＸＴ 　　ＮＥＸＴ 　　ＣＯＵＮＴ＝ＣＯＵＮＴ＋１ 　　Ｉ＝Ｏ 　　＠ＨＩＴＢＬＯＷ 　　　　ＩＦ　ＡＮＳＳ（Ｉ）＝＝ＵＳＥＲＳ（Ｉ）　ＴＨＥＮ＠ＨＩＴ 　　　　ＦＯＲ　Ｎ＝０　ＴＯ　ＭＡＸ−１ 　　　　　　ＩＦ　ＡＮＳＳ（Ｉ）＝＝ＵＳＥＲＳ（Ｎ）　ＴＨＥＮ＠ＢＬＯＷ 　　　　ＮＥＸＴ 　　　　ＧＯＴＯ＠ＭＩＳＳ 　　　　＠ＨＩＴ 　　　　　　ＨＩＴ　＝ＨＩＴ　＋１ 　　　　　　ＭＩＳＳ＝ＭＩＳＳ−１ 　　　　　　ＧＯＴＯ＠ＭＩＳＳ 　　　　＠ＢＬＯＷ 　　　　　　ＢＬＯＷ＝ＢＬＯＷ＋１ 　　　　　　ＭＩＳＳ＝ＭＩＳＳ−１ 　　　　＠ＭＩＳＳ 　　Ｉ＝Ｉ＋１ 　　ＩＦ　ＭＡＸ＜＝Ｉ　ＴＨＥＮ＠ＥＮＤＨＩＴＢＬＯＷ 　　ＧＯＴＯ＠ＨＩＴＢＬＯＷ 　　＠ＥＮＤＨＩＴＢＬＯＷ 　　ＰＲＩＮＴ　”　−＞”；ＨＩＴ；”ＨＩＴ　”；ＢＬＯＷ；”ＢＬＯＷ　”；ＭＩＳＳ；”ＭＩＳＳ” 　　ＩＦ　ＡＮＳ＄＝＝ＵＳＥＲ＄　ＴＨＥＮ＠ＣＬＥＡＲＧＡＭＥ ＧＯＴＯ＠ＢＯＤＹ ＠ＢＥＲＲ 　　ＢＥＥＰ　２：ＰＲＩＮＴ”” 　　ＰＲＩＮＴ”ＥＲＲＥＲ！！” ＧＯＴＯ＠ＢＯＤＹＦＡＳＴ ＠ＣＬＥＡＲＧＡＭＥ 　　ＰＲＩＮＴ”” 　　ＰＲＩＮＴ”ＡＬＬ　ＨＩＴ！” 　　ＰＲＩＮＴ”ＣＯＮＧＲＡＴＵＬＡＴＩＯＮ！！” ＧＯＴＯ＠ＲＥＧＡＭＥ ＠ＧＩＶＥＵＰ 　　ＰＲＩＮＴ”” 　　ＰＲＩＮＴ”ＧＩＶＥ　ＵＰ．．．” 　　ＰＲＩＮＴ”ＡＮＳＷＥＲ：”；ＡＮＳ＄ ＧＯＴＯ＠ＲＥＧＡＭＥ ＠ＲＥＧＡＭＥ 　　ＰＲＩＮＴ”” 　　ＰＲＩＮＴ”ＲＥＴＲＹ？（Ｙ／Ｎ）” 　　ＰＲＩＮＴ”＞”； 　　ＧＯＳＵＢ＠ＲＥＡＤＬＩＮＥ 　　ＲＥＴＲＹ＄＝ＲＥＡＤＬＩＮＥ＄ 　　ＰＲＩＮＴ””：ＰＲＩＮＴ”” 　　ＩＦ　ＲＥＴＲＹ＄＝＝”Ｎ”　ＯＲ　ＲＥＴＲＹ＄＝＝”ｎ”　ＴＨＥＮ＠ＥＸＩＴ ＧＯＴＯ＠ＨＥＡＤ ＠ＥＸＩＴ 　　ＰＲＩＮＴ”ＧＯＯＤ　ＧＡＭＥ　ＰＬＡＹＩＮＧ！” 　　ＥＸＩＴ＄＝”” 　　＠ＷＨＩＬＥ 　　　　ＥＸＩＴ＄＝ＩＮＫＥＹ＄（） 　　　　ＩＦ　ＥＸＩＴ＄！＝””　ＴＨＥＮ　ＥＮＤ 　　ＧＯＴＯ＠ＷＨＩＬＥ ＠ＲＥＡＤＬＩＮＥ 　　ＤＥＦＸ＝ＣＳＲＸ 　　ＲＥＡＤＬＩＮＥ＄＝”” 　　ＲＥＡＤＩＮＫＥＹ＄＝”” 　　ＢＡＣＫＳＰＡＣＥ＝０ 　　＠ＲＥＡＤＷＨＩＬＥ 　　　　＠ＲＥＡＤＣＨＡＲ 　　　　　　ＲＥＡＤＣＨＡＲ＄＝ＩＮＫＥＹ＄（） 　　　　　　ＩＦ　ＫＥＹＢＯＡＲＤ＝＝６０　ＡＮＤ　ＥＮＴＥＲ＝＝０　ＴＨＥＮ＠ＲＥＡＤＣＬＯＳＥ 　　　　　　ＩＦ　ＫＥＹＢＯＡＲＤ＝＝１５　ＡＮＤ　ＢＡＣＫＳＰＡＣＥ＝＝０　ＴＨＥＮ＠ＲＥＡＤＢＡＣＫ 　　　　　　ＩＦ　ＴＣＨＳＴ＝＝０　ＴＨＥＮ　ＥＮＴＥＲ＝０：ＢＡＣＫＳＰＡＣＥ＝０ 　　　　　　ＩＦ　６０＜ＴＣＨＴＩＭＥ　ＴＨＥＮ　ＷＡＩＴ　１：ＢＡＣＫＳＰＡＣＥ＝０ 　　　　　　ＩＦ　ＢＵＴＴＯＮ（２）＝＝１　ＡＮＤ　ＯＬＤＲＥＡＤ＄！＝””　ＴＨＥＮ　ＲＥＡＤＬＩＮＥ＄＝ＯＬＤＲＥＡＤ＄：ＧＯＳＵＢ＠ＲＥＡＤＰＲＩＮＴ 　　　　　　ＩＦ　ＲＥＡＤＣＨＡＲ＄！＝””　ＴＨＥＮ＠ＲＥＡＤＣＯＮＣＡＴ 　　　　ＧＯＴＯ＠ＲＥＡＤＣＨＡＲ 　　　　＠ＲＥＡＤＣＯＮＣＡＴ 　　　　　　ＩＦ　ＲＥＡＤＣＨＡＲ＄＝＝ＣＨＲ＄（１３）　ＴＨＥＮ　ＲＥＡＤＣＨＡＲ＄＝”” 　　　　　　ＲＥＡＤＬＩＮＥ＄＝ＲＥＡＤＬＩＮＥ＄＋ＲＥＡＤＣＨＡＲ＄ 　　　　　　ＲＥＡＤＣＨＡＲ＄＝”” 　　　　　　ＧＯＳＵＢ＠ＲＥＡＤＰＲＩＮＴ 　　　　ＧＯＴＯ＠ＲＥＡＤＷＨＩＬＥ 　　　　＠ＲＥＡＤＢＡＣＫ 　　　　　　ＢＡＣＫＳＰＡＣＥ＝１ 　　　　　　ＩＦ　ＬＥＮ（ＲＥＡＤＬＩＮＥ＄）＝＝０　ＴＨＥＮ＠ＲＥＡＤＷＨＩＬＥ 　　　　　　ＲＥＡＤＬＩＮＥ＄＝ＬＥＦＴ＄（ＲＥＡＤＬＩＮＥ＄，ＬＥＮ（ＲＥＡＤＬＩＮＥ＄）−１） 　　　　　　ＧＯＳＵＢ＠ＲＥＡＤＰＲＩＮＴ 　　　　　　ＰＲＩＮＴ”　”； 　　　　ＧＯＴＯ＠ＲＥＡＤＷＨＩＬＥ 　　　　＠ＲＥＡＤＰＲＩＮＴ 　　　　　　ＰＲＩＮＴ　”　”＊ＬＥＮ（ＲＥＡＤＲＥＡＤ＄）； 　　　　　　ＬＯＣＡＴＥ　ＤＥＦＸ，ＣＳＲＹ 　　　　　　ＰＲＩＮＴ　ＲＥＡＤＬＩＮＥ＄； 　　　　ＲＥＴＵＲＮ 　　＠ＲＥＡＤＣＬＯＳＥ 　　ＥＮＴＥＲ＝１ 　　ＯＬＤＲＥＡＤ＄＝ＲＥＡＤＬＩＮＥ＄ ＲＥＴＵＲＮ

+

サブルーチン化

＠ＭＡＩＮ 　　ＰＲＩＮＴ”＜ＨＩＴ＆ＢＬＯＷ＞”：ＰＲＩＮＴ”” 　　＠ＷＨＩＬＥ＿ＥＸ 　　　　ＣＬＥＡＲＧＡＭＥ＝０ 　　　　ＢＲＥＡＫ＝０ 　　　　＠ＷＨＩＬＥ＿ＨＥＡＤ 　　　　　　ＧＯＳＵＢ＠ＨＥＡＤ 　　　　ＩＦ　ＢＲＥＡＫ！＝１　ＴＨＥＮ＠ＷＨＩＬＥ＿ＨＥＡＤ 　　　　ＰＲＩＮＴ”” 　　　　ＢＲＥＡＫ＝０ 　　　　＠ＷＨＩＬＥ＿ＢＯＤＹＦＡＳＴ 　　　　　　ＧＯＳＵＢ＠ＢＯＤＹＦＡＳＴ 　　　　　　ＢＢＲＥＡＫ＝０ 　　　　　　＠ＷＨＩＬＥ＿ＢＯＤＹ 　　　　　　　　ＧＯＳＵＢ＠ＢＯＤＹ 　　　　　　ＩＦ　ＢＢＲＥＡＫ！＝１　ＴＨＥＮ＠ＷＨＩＬＥ＿ＢＯＤＹ 　　　　ＩＦ　ＢＲＥＡＫ！＝１　ＴＨＥＮ＠ＷＨＩＬＥ＿ＢＯＤＹＦＡＳＴ 　　　　ＰＲＩＮＴ”” 　　　　ＩＦ　ＣＬＥＡＲＧＡＭＥ＝＝１　ＴＨＥＮ　ＧＯＳＵＢ＠ＣＬＥＡＲＧＡＭＥ　ＥＬＳＥ　ＧＯＳＵＢ＠ＧＩＶＥＵＰ 　　　　ＧＯＳＵＢ＠ＲＥＧＡＭＥ 　　ＩＦ　ＥＸＩＴ！＝１　ＴＨＥＮ＠ＷＨＩＬＥ＿ＥＸ 　　ＧＯＳＵＢ＠ＥＸＩＴ ＥＮＤ ＠ＨＥＡＤ 　　ＣＬＥＡＲ 　　ＰＲＩＮＴ”ケタスウヲ　ニュウリョクシテネ。” 　　ＰＲＩＮＴ”＞”； 　　ＧＯＳＵＢ＠ＲＥＡＤＬＩＮＥ：ＰＲＩＮＴ”” 　　ＭＡＸ＝ＶＡＬ（ＲＥＡＤＬＩＮＥ＄） 　　ＩＦ　ＭＡＸ＝＝０　ＯＲ　１０＜ＭＡＸ　ＴＨＥＮ＠ＥＲＲ 　　ＤＩＭ　ＡＮＳＳ（ＭＡＸ），ＵＳＥＲＳ（ＭＡＸ） 　　ＡＮＳ＄＝”” 　　ＣＯＵＮＴ＝１ 　　Ｉ＝０ 　　＠ＲＮＤＭＡＸ 　　　　＠ＲＮＤＳ 　　　　ＡＮＳＳ（Ｉ）＝ＲＮＤ（１０） 　　　　ＦＯＲ　Ｎ＝０　ＴＯ　Ｉ−１ 　　　　　　ＩＦ　ＡＮＳＳ（Ｉ）＝＝ＡＮＳＳ（Ｎ）　ＴＨＥＮ＠ＲＮＤＳ 　　　　ＮＥＸＴ　Ｎ 　　　　ＡＮＳ＄＝ＡＮＳ＄＋ＳＴＲ＄（ＡＮＳＳ（Ｉ）） 　　Ｉ＝Ｉ＋１ 　　ＩＦ　ＭＡＸ＜＝Ｉ　ＴＨＥＮ　ＥＬＳＥ＠ＲＮＤＭＡＸ 　　ＢＲＥＡＫ＝１ ＲＥＴＵＲＮ ＠ＢＯＤＹＦＡＳＴ 　　ＰＲＩＮＴ　ＭＡＸ；”ケタノ　スウシ゛ヲ　ニュウリョクシテネ。” 　　ＰＲＩＮＴ”（Ｚテ゛　キ゛フ゛アッフ゜）” ＲＥＴＵＲＮ ＠ＢＯＤＹ 　　ＰＲＩＮＴ　ＣＯＵＮＴ；”：”； 　　ＧＯＳＵＢ＠ＲＥＡＤＬＩＮＥ 　　ＵＳＥＲ＄＝ＲＥＡＤＬＩＮＥ＄ 　　ＨＩＴ＝０：ＢＬＯＷ＝０ 　　ＭＩＳＳ＝ＭＡＸ 　　ＩＦ　ＵＳＥＲ＄＝＝”Ｚ”　ＯＲ　ＵＳＥＲ＄＝＝”ｚ”　ＴＨＥＮ　ＢＲＥＡＫ＝１：ＢＢＲＥＡＫ＝１：ＲＥＴＵＲＮ 　　ＩＦ　ＬＥＮ（ＵＳＥＲ＄）！＝ＭＡＸ　ＴＨＥＮ＠ＥＲＲ 　　ＦＯＲ　Ｉ＝０　ＴＯ　ＭＡＸ−１ 　　　　ＵＳＥＲＳ（Ｉ）＝ＶＡＬ（ＭＩＤ＄（ＵＳＥＲ＄，Ｉ，１）） 　　ＮＥＸＴ 　　ＦＯＲ　Ｉ＝０　ＴＯ　ＭＡＸ−１ 　　　　ＦＯＲ　Ｎ＝０　ＴＯ　ＭＡＸ−１ 　　　　　　ＩＦ　Ｉ！＝Ｎ　ＡＮＤ　ＵＳＥＲＳ（Ｉ）＝＝ＵＳＥＲＳ（Ｎ）　ＴＨＥＮ＠ＥＲＲ 　　　　ＮＥＸＴ　Ｎ 　　ＮＥＸＴ　Ｉ 　　ＣＯＵＮＴ＝ＣＯＵＮＴ＋１ 　　ＧＯＳＵＢ＠ＨＩＴＢＬＯＷ 　　ＩＦ　ＭＡＸ＜＝Ｉ　ＴＨＥＮ　ＢＢＢＲＥＡＫ＝１ 　　ＰＲＩＮＴ　”　−＞”；ＨＩＴ；”ＨＩＴ　”；ＢＬＯＷ；”ＢＬＯＷ　”；ＭＩＳＳ；”ＭＩＳＳ” 　　ＩＦ　ＡＮＳ＄＝＝ＵＳＥＲ＄　ＴＨＥＮ　ＢＲＥＡＫ＝１：ＢＢＲＥＡＫ＝１：ＣＬＥＡＲＧＡＭＥ＝１ ＲＥＴＵＲＮ ＠ＨＩＴＢＬＯＷ 　　ＦＯＲ　Ｉ＝０　ＴＯ　ＭＡＸ−１ 　　　　ＩＦ　ＡＮＳＳ（Ｉ）＝＝ＵＳＥＲＳ（Ｉ）　ＴＨＥＮ＠ＨＩＴ 　　　　ＦＯＲ　Ｎ＝０　ＴＯ　ＭＡＸ−１ 　　　　　　ＩＦ　ＡＮＳＳ（Ｉ）＝＝ＵＳＥＲＳ（Ｎ）　ＴＨＥＮ＠ＢＬＯＷ 　　　　ＮＥＸＴ　Ｎ 　　　　ＧＯＴＯ＠ＭＩＳＳ 　　　　＠ＨＩＴ 　　　　　　ＨＩＴ　＝ＨＩＴ　＋１ 　　　　　　ＭＩＳＳ＝ＭＩＳＳ−１ 　　　　　　ＧＯＴＯ＠ＭＩＳＳ 　　　　＠ＢＬＯＷ 　　　　　　ＢＬＯＷ＝ＢＬＯＷ＋１ 　　　　　　ＭＩＳＳ＝ＭＩＳＳ−１ 　　　　＠ＭＩＳＳ 　　ＮＥＸＴ　Ｉ ＲＥＴＵＲＮ ＠ＣＬＥＡＲＧＡＭＥ 　　ＰＲＩＮＴ”ＡＬＬ　ＨＩＴ！” 　　ＰＲＩＮＴ”ＣＯＮＧＲＡＴＵＬＡＴＩＯＮ！！” ＲＥＴＵＲＮ ＠ＧＩＶＥＵＰ 　　ＰＲＩＮＴ”ＧＩＶＥ　ＵＰ．．．” 　　ＰＲＩＮＴ”ＡＮＳＷＥＲ：”；ＡＮＳ＄ ＲＥＴＵＲＮ ＠ＲＥＧＡＭＥ 　　ＰＲＩＮＴ”” 　　ＰＲＩＮＴ”ＲＥＴＲＹ？（Ｙ／Ｎ）” 　　ＰＲＩＮＴ”＞”； 　　ＧＯＳＵＢ＠ＲＥＡＤＬＩＮＥ 　　ＲＥＴＲＹ＄＝ＲＥＡＤＬＩＮＥ＄ 　　ＰＲＩＮＴ””：ＰＲＩＮＴ”” 　　ＩＦ　ＲＥＴＲＹ＄＝＝”Ｎ”　ＯＲ　ＲＥＴＲＹ＄＝＝”ｎ”　ＴＨＥＮ　ＥＸＩＴ＝１ ＲＥＴＵＲＮ ＠ＥＲＲ 　　ＢＥＥＰ　２：ＰＲＩＮＴ”” 　　ＰＲＩＮＴ”ＥＲＲＯＲ！！” 　　ＢＢＲＥＡＫ＝１ ＲＥＴＵＲＮ ＠ＥＸＩＴ 　　ＰＲＩＮＴ”ＧＯＯＤ　ＧＡＭＥ　ＰＬＡＹＩＮＧ！” 　　ＥＸＩＴ＄＝”” 　　＠ＷＨＩＬＥ＿ＥＸＩＴ 　　　　ＥＸＩＴ＄＝ＩＮＫＥＹ＄（） 　　ＩＦ　ＥＸＩＴ＄＝＝””　ＴＨＥＮ＠ＷＨＩＬＥ＿ＥＸＩＴ ＲＥＴＵＲＮ ＠ＲＥＡＤＬＩＮＥ 　　ＤＥＦＸ＝ＣＳＲＸ 　　ＲＥＡＤＬＩＮＥ＄＝”” 　　ＲＥＡＤＩＮＫＥＹ＄＝”” 　　ＢＡＣＫＳＰＡＣＥ＝０ 　　＠ＲＥＡＤＷＨＩＬＥ 　　　　＠ＲＥＡＤＣＨＡＲ 　　　　　　ＲＥＡＤＣＨＡＲ＄＝ＩＮＫＥＹ＄（） 　　　　　　ＩＦ　ＫＥＹＢＯＡＲＤ＝＝６０　ＡＮＤ　ＥＮＴＥＲ＝＝０　ＴＨＥＮ＠ＲＥＡＤＣＬＯＳＥ 　　　　　　ＩＦ　ＫＥＹＢＯＡＲＤ＝＝１５　ＡＮＤ　ＢＡＣＫＳＰＡＣＥ＝＝０　ＴＨＥＮ＠ＲＥＡＤＢＡＣＫ 　　　　　　ＩＦ　ＴＣＨＳＴ＝＝０　ＴＨＥＮ　ＥＮＴＥＲ＝０：ＢＡＣＫＳＰＡＣＥ＝０ 　　　　　　ＩＦ　６０＜ＴＣＨＴＩＭＥ　ＴＨＥＮ　ＷＡＩＴ　１：ＢＡＣＫＳＰＡＣＥ＝０ 　　　　　　ＩＦ　ＢＵＴＴＯＮ（２）＝＝１　ＡＮＤ　ＯＬＤＲＥＡＤ＄！＝””　ＴＨＥＮ　ＲＥＡＤＬＩＮＥ＄＝ＯＬＤＲＥＡＤ＄：ＧＯＳＵＢ＠ＲＥＡＤＰＲＩＮＴ 　　　　　　ＩＦ　ＲＥＡＤＣＨＡＲ＄！＝””　ＴＨＥＮ＠ＲＥＡＤＣＯＮＣＡＴ 　　　　ＧＯＴＯ＠ＲＥＡＤＣＨＡＲ 　　　　＠ＲＥＡＤＣＯＮＣＡＴ 　　　　　　ＩＦ　ＲＥＡＤＣＨＡＲ＄＝＝ＣＨＲ＄（１３）　ＴＨＥＮ　ＲＥＡＤＣＨＡＲ＄＝”” 　　　　　　ＲＥＡＤＬＩＮＥ＄＝ＲＥＡＤＬＩＮＥ＄＋ＲＥＡＤＣＨＡＲ＄ 　　　　　　ＲＥＡＤＣＨＡＲ＄＝”” 　　　　　　ＧＯＳＵＢ＠ＲＥＡＤＰＲＩＮＴ 　　　　ＧＯＴＯ＠ＲＥＡＤＷＨＩＬＥ 　　　　＠ＲＥＡＤＢＡＣＫ 　　　　　　ＢＡＣＫＳＰＡＣＥ＝１ 　　　　　　ＩＦ　ＬＥＮ（ＲＥＡＤＬＩＮＥ＄）＝＝０　ＴＨＥＮ＠ＲＥＡＤＷＨＩＬＥ 　　　　　　ＲＥＡＤＬＩＮＥ＄＝ＬＥＦＴ＄（ＲＥＡＤＬＩＮＥ＄，ＬＥＮ（ＲＥＡＤＬＩＮＥ＄）−１） 　　　　　　ＧＯＳＵＢ＠ＲＥＡＤＰＲＩＮＴ 　　　　　　ＰＲＩＮＴ”　”； 　　　　ＧＯＴＯ＠ＲＥＡＤＷＨＩＬＥ 　　　　＠ＲＥＡＤＰＲＩＮＴ 　　　　　　ＰＲＩＮＴ　”　”＊ＬＥＮ（ＲＥＡＤＲＥＡＤ＄）； 　　　　　　ＬＯＣＡＴＥ　ＤＥＦＸ，ＣＳＲＹ 　　　　　　ＰＲＩＮＴ　ＲＥＡＤＬＩＮＥ＄； 　　　　ＲＥＴＵＲＮ 　　＠ＲＥＡＤＣＬＯＳＥ 　　ＥＮＴＥＲ＝１ 　　ＯＬＤＲＥＡＤ＄＝ＲＥＡＤＬＩＮＥ＄ ＲＥＴＵＲＮ

ひとりごと

GOTOの多用によりスパゲティ気味。
絡み合うGOTO。

INPUTの?が邪魔すぎるので入力を自作。
カーソルが無かったりどこか微妙感が漂うけど圧縮されてログが残りやすくなったのでよし。

構造化について指摘を受けたのでサブルーチンであっちこっち飛ぶようにしてみた、
…が行数がかさみまくって非常に気になる。
あと、BREAKとCONTINUEが無いのが凄く辛い。
やはり、SMILE BASICはGOTOに頼らないとやっていけないかなと。

アンケート

選択肢	投票
とても良い	1
良い	0
普通	1
悪い	0
とても悪い	0

CHECKER FLAG (ひとことコメント)

この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)

• 名無しさん : GOTO でなく GOSUB を使いましょう。 (2014/08/19 (火) 20:55:58)
• YOS G-spec : GOSUBはいまいち使い道が思いつかなくて使ってませんでした。ループをさせた時にBRAKE代わりにRETURN使うといいんですかね。 (2014/08/19 (火) 21:57:22)
• 名無しさん : 半分くらいに短くできそう (2014/08/20 (水) 16:10:00)
• かつみ : ERRERは、ERRORです (2014/08/21 (木) 22:40:13)
• YOS G-spec : ありゃ、スペルミス報告ありがとうございます。気が向いたときに直しておきます。 (2014/08/22 (金) 01:03:37)
• 名無しさん : 「構造化プログラミング」について調べてみましょう。これがある程度理解できてGOSUBを使いこなせば、かなりわかりやすく書けます。 (2014/08/22 (金) 22:13:49)
• YOS G-spec : GOSUBである程度GOTOを置き換えてみました。 (2014/08/23 (土) 03:28:59)
• 名無しさん : 読みやすくなっていいですね。後から機能を拡張する事を考えると、短いプログラムでもはじめから構造化を意識して書くのがお勧めです。 (2014/08/23 (土) 12:30:29)
• 中3 : 数学の教科書に載ってた。 (2014/09/15 (月) 06:47:28)

お名前: