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

パンくずリスト

• トップ
• Toukou
• 計算トライアタック 圧縮版

2012年06月15日投稿 / 投稿者 : わぁぃ＠ / タグ : 投稿プログラム ゲーム 1画面プログラム 計算 QRコード mkII専用

概要

ひたすら計算を解くゲームです。
普通に組んでも一画面に収まりますが、あえて圧縮しました。

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

動作しているところを撮影した写真や動画があれば貼り付けてください。

Toukou/簡易スクリーンショットカメラで撮影して、ＳＤカードＧＲＰビューワで変換しました。

QR コード

プチコンmkII 向けのQRコードです。

PRG:KEISAN

プログラムリスト

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

• この作品に対するコメントがあれば一言どうぞ。(マナーを守ろう。作品にほとんど関係のない質問や雑談は掲示板などでお願いします。)

  +

  6月までの書き込み

  名無しさん : 解答に時間制限があったほうが良さそう (2012/06/15 (金) 19:59:41) わぁぃ＠ : ＩＮＰＵＴの特性上、代用ＩＮＰＵＴを組まないとだめですね。（実は代用ＩＮＰＵＴはもうできてる） (2012/06/15 (金) 20:03:49) 名無しさん : さらに圧縮してみた (2012/06/15 (金) 22:21:27) Ｅ＝０？”ケイサントライアタック ＠Ａ Ｅ＝Ｅ＋１ ？Ｅ”モンメ”：Ａ＝ＲＮＤ（１００）＋１ Ｂ＝ＲＮＤ（１２０）−５９ ？Ａ”＋”＊（Ｂ＞＝０）；Ｂ”＝”；：ＩＮＰＵＴ　Ｃ Ｗ＝Ｃ＝＝Ａ＋Ｂ：ＢＥＥＰ　４＋Ｗ＊３ ＩＦ　Ｗ　ＴＨＥＮ　＠Ａ Ｅ＝０？”ケイサントライアタック”：ＦＯＲ　Ｉ＝０ＴＯ　Ｗ：Ｅ＝Ｅ＋１？Ｅ”モンメ”：Ａ＝ＲＮＤ（１００）＋１Ｂ＝ＲＮＤ（１２０）−５９？Ａ”＋”＊（Ｂ＞＝０）Ｂ”＝”；：ＩＮＰＵＴ　Ｃ Ｗ＝Ｃ＝＝Ａ＋Ｂ：ＢＥＥＰ　４＋Ｗ＊３Ｉ＝０ＮＥＸＴ Lv100 : ↑CLEARとかしないとダメなのでは？ (2012/06/15 (金) 22:43:48) わぁぃ@ : ↑ＤＩＭがなければ0代入でOKです。 (2012/06/15 (金) 22:56:33) わぁぃ@ :↑*3 ああそうだ　ＦＯＲがあったと　思い出す(何気に川柳になってるw) (2012/06/15 (金) 23:00:14) 名無しさん : このプログラムをどれだけ圧縮できるかを競うゲームですか？ｗ (2012/06/15 (金) 23:58:54) イタボールド : ↑おいおい (2012/06/16 (土) 10:31:06) わぁぃ@ : ↑↑それいいね！「圧縮トライアタック」みたいな？ww (2012/06/16 (土) 12:22:41) 名無しさん : 「ケイサントライアタック」を表示しなければ1行に収まりそう (2012/06/16 (土) 12:30:22) ウイング : なんかすごいことになっとる・・・。 (2012/06/16 (土) 12:45:26) 名無しさん : 1行に収まった (2012/06/16 (土) 16:38:54) Ｅ＝０ＦＯＲ　Ｉ＝０ＴＯ　Ｗ：Ｅ＝Ｅ＋１Ａ＝ＲＮＤ（１００）＋１Ｂ＝ＲＮＤ（１２０）−５９？Ｅ”モンメ”Ａ”＋”＊（Ｂ＞＝０）Ｂ”＝”；：ＩＮＰＵＴ　Ｃ：Ｗ＝Ｃ＝＝Ａ＋Ｂ：ＢＥＥＰ　４Ｉ＝０ＮＥＸＴ ＦＯＲ　Ｉ＝０ＴＯ　Ｃ＝＝Ａ＋Ｂ：Ｅ＝Ｅ＋１Ａ＝ＲＮＤ（１００）＋１Ｂ＝ＲＮＤ（１２０）−５９？Ｅ”モンメ”Ａ”＋”＊（Ｂ＞＝０）Ｂ”＝”：ＩＮＰＵＴ　Ｃ：Ｉ＝０ＮＥＸＴ 名無しさん : ↑最初にコンソールでＥ＝０ (2012/06/16 (土) 17:15:40) 名無しさん : をしないといけない (2012/06/16 (土) 17:15:52) 名無しさん : 。 (2012/06/16 (土) 17:16:00) 名無しさん : さらに圧縮 (2012/06/16 (土) 19:29:50) ＦＯＲ　Ｅ＝１ＴＯ　Ｅ＋（Ｃ＝＝Ａ＋Ｂ）Ａ＝ＲＮＤ（１００）＋１Ｂ＝ＲＮＤ（１２０）−５９？Ｅ”モンメ”Ａ”＋”＊（Ｂ＞＝０）Ｂ”＝”：ＩＮＰＵＴ　Ｃ：ＮＥＸＴ Petit : 一体このプログラムの圧縮大会はいつまで続くんだ... (2012/06/16 (土) 22:23:08) 名無しさん : 参加したければすればいいんだぜ？ (2012/06/16 (土) 23:04:53) 燻製 : これ以上圧縮は不可能だろww (2012/06/16 (土) 23:30:42) 麿 : ↑予めコンソールで変数に代入すればもう少しいけそう (2012/06/17 (日) 00:18:55) ＦＯＲ　Ｅ＝１ＴＯ　Ｅ＋（Ｃ＝＝Ａ＋Ｂ）Ａ＝ＲＮＤ（Ｆ）＋１Ｂ＝ＲＮＤ（Ｇ）−Ｈ？Ｅ”モンメ”Ａ”＋”＊（Ｂ＞＝０）Ｂ”＝”：ＩＮＰＵＴ　Ｃ：ＮＥＸＴ 麿 : ↑コンソールで、Ｅ＝０：Ｆ＝１００：Ｇ＝１２０：Ｈ＝５９してからＲＵＮ (2012/06/17 (日) 00:22:51) 麿 : 表示を変えるのも手かも。＝の省略、ＮモンメをＮ）やＮ：に差し替えなど。連投すみません (2012/06/17 (日) 00:37:30) 名無しさん : ＞コンソールで変数代入　それはちょっと行きすぎだｗ (2012/06/17 (日) 05:34:13) バイカウントメルビル : 6文字少なくした（コンソール代入ではない） (2012/06/17 (日) 08:24:27) ＦＯＲ　Ｅ＝１ＴＯ　Ｅ＋（Ｃ＝＝Ａ＋Ｂ）Ａ＝ＲＮＤ（９９）Ｂ＝ＲＮＤ（９９）−５０？Ｅ”）”Ａ”＋”＊（Ｂ＞＝０）Ｂ”＝”：ＩＮＰＵＴ　Ｃ：ＮＥＸＴ バイカウントメルビル : たぶん足し算だけにしちゃえばかなり・・・（え (2012/06/17 (日) 08:27:47) 麿 : Ａ＝ＲＮＤ（９）とかにしちゃえば３文字短・・・（行き過ぎ (2012/06/17 (日) 10:40:38) 燻製 : もはや見ていてどんなプログラムかわかんなくなっていく・・・ (2012/06/17 (日) 10:51:33) 燻製 : もはや見ていてどんなプログラムかわかんなくなっていく・・・ (2012/06/17 (日) 10:56:05) 名無しさん : 問題の表示を無くして答えを予想して入力すればさらに短くなるけどそれだともはやただの数当てゲームだなｗ (2012/06/17 (日) 11:12:14) マリオ師匠 : 超圧縮版（？） (2012/06/17 (日) 11:48:43) ＩＮＰＵＴ　Ｃ：ＩＦ　Ｃ＝＝２　ＴＨＥＮ　？”セイカイ”　ＥＬＳＥ　？”フセイカイ” 燻製 : ↑最初の変数代入の意味なくね？ (2012/06/17 (日) 12:02:38) 燻製 : そしてもはや計算ですらない (2012/06/17 (日) 12:05:22) 名無しさん : これならどうだ　INPUT C:BEEP 6+(C==RND(3)) (2012/06/17 (日) 12:23:44) 名無しさん : ↑↑↑↑なんだこれ (2012/06/17 (日) 15:50:27) 名無しさん : ↑↑↑↑↑その場合はこれがよいかもＩＮＰＵＴ　Ｃ：ＩＦ　Ｃ！＝２　ＴＨＥＮ　？”フ”？”セイカイ” (2012/06/17 (日) 21:01:22) 名無しさん : INPUT C:?MID$("ﾌｾｲｶｲ",C-1,5) でいいだろ (2012/06/18 (月) 15:56:34) 名無しさん : ↑その発想はなかった (2012/06/18 (月) 19:04:55) 麿 : ○мとか、ＯＸでよくね？ｗ (2012/06/19 (火) 17:51:41) 名無しさん : ○と×を使った場合は↑x3よりも長くなってしまう (2012/06/19 (火) 18:19:15) わぁぃ@ : 私の最高記録95字、引き算もできます。 (2012/06/19 (火) 18:31:02) 名無しさん : ↑1画面ギリギリに詰め込んだゲームとかは作らないの？ (2012/06/19 (火) 18:35:22) わぁぃ@ : ↑私はあまり1画面作らないです。:↑↑記録更新81字(足し算のみ) (2012/06/19 (火) 18:37:55) わぁぃ@ : 作者公認で「圧縮トライアタック」を開催します！以下の条件をみたした最短のプログラムを作ってください。-4則演算のいずれかが出題される。-問題番号と計算式が表示される。-コンソール代入でない。-正解か判定する。-数字が毎回変わる。 (2012/06/19 (火) 18:44:16) 名無しさん : 足し算、引き算混合ではなくどちらか一方でいいの？計算の桁数はないけど1桁＋1桁の問題もあり？ (2012/06/19 (火) 18:49:07) 名無しさん : それとループ無しで1回ごとRUNするものでもOK？ (2012/06/19 (火) 18:51:01) 名無しさん : ↑問題番号ってあるからループは必須になってるね (2012/06/19 (火) 18:51:54) 名無しさん : 足し算だけなら75文字になった (2012/06/19 (火) 19:11:47) わぁぃ@ : 計算は一方でOKです。ただし、「トライアタック」なので正解数のカウントは必須です。また、正解の場合には中断しない仕様にしてください。桁数は自由ですが、評価に影響します。 (2012/06/19 (火) 19:16:59) 名無しさん : 6人か5人が参加しているのか (2012/06/19 (火) 20:18:30) 名無しさん1 麿 バイカウントメルビル マリオ師匠 名無しさん2 名無しさん3 ※名無しさん2と3は同一人物の可能性あり 名無しさん : ↑名無しさん1、2、3はどうやって区別を付けてるの？ｗ　全部俺一人の自演かもしれないよ。 (2012/06/19 (火) 20:28:04) 名無しさん : ↑名無しさん1は自分なので (2012/06/19 (火) 20:53:38) 名無しさん : さらに圧縮 (2012/06/16 (土) 19:29:50)までが自分の圧縮 (2012/06/19 (火) 20:54:53) マリオ師匠 : よーしできたぞ (2012/06/20 (水) 17:09:55) 名無しさん : どこにプログラムリストを書きゃいいんだァ？ (2012/06/20 (水) 20:34:29) 名無しさん : ↑編集でコメント欄に追加する (2012/06/20 (水) 22:04:32) バイカウントメルビル : 文字数少なくって言うんだったら数行に分かれれば「:」の分稼げちゃうから一行ってのを条件に入れるべき (2012/06/20 (水) 22:06:02) 名無しさん : 改行コードを含めた文字数にすればいいだけでは？ (2012/06/20 (水) 23:13:39) 名無しさん : 今のところ↑×１１さんの７５文字が最短か (2012/06/20 (水) 23:20:56) 麿 : 一日経ったらいつの間にかすごい展開になっていたｗ (2012/06/20 (水) 23:27:34) バイカウントメルビル : たぶんこれ以上シンプルにするのはキツイと思う(57文字) (2012/06/21 (木) 01:12:17) 見た目を重視したバージョン(たしひきかけわり全Ver) ＦＯＲ　Ｅ＝１ＴＯ　Ｅ＋（Ｃ＝＝Ａ＋Ｂ）Ａ＝ＲＮＤ（９）Ｂ＝ＲＮＤ（９）？Ｅ”）”Ａ”＋”Ｂ：ＩＮＰＵＴ　Ｃ：ＮＥＸＴ ＦＯＲ　Ｅ＝１ＴＯ　Ｅ＋（Ｃ＝＝Ａ−Ｂ）Ａ＝ＲＮＤ（９）Ｂ＝ＲＮＤ（９）？Ｅ”）”Ａ”−”Ｂ：ＩＮＰＵＴ　Ｃ：ＮＥＸＴ ＦＯＲ　Ｅ＝１ＴＯ　Ｅ＋（Ｃ＝＝Ａ＊Ｂ）Ａ＝ＲＮＤ（９）Ｂ＝ＲＮＤ（９）？Ｅ”）”Ａ”ｘ”Ｂ：ＩＮＰＵＴ　Ｃ：ＮＥＸＴ ＦＯＲ　Ｅ＝１ＴＯ　Ｅ＋（Ｃ＝＝Ａ／Ｂ）Ａ＝ＲＮＤ（９）Ｂ＝ＲＮＤ（９）？Ｅ”）”Ａ”／”Ｂ：ＩＮＰＵＴ　Ｃ：ＮＥＸＴ 出来るだけ短くすることを重視したバージョン(ひきかけわりはここでは省略)(左…問題番号、中…たされる数、右…たす数)(55文字) ＦＯＲ　Ｅ＝１ＴＯ　Ｅ＋（Ｃ＝＝Ａ＋Ｂ）Ａ＝ＲＮＤ（９）Ｂ＝ＲＮＤ（９）？Ｅ，Ａ，Ｂ：ＩＮＰＵＴ　Ｃ：ＮＥＸＴ バイカウントメルビル : もし一行縛りでなければコロンのところを改行させれば２文字稼げる（57文字、53文字にできる） (2012/06/21 (木) 01:40:12) 名無しさん : 正解と不正解の表示は行わなくてもいいの？ (2012/06/21 (木) 02:01:02) 名無しさん : ↑↑割り算は割り切れる問題でないと即ゲームオーバーになるぞ (2012/06/21 (木) 02:49:57) 名無しさん : あとBの値が0の場合はエラーになる (2012/06/21 (木) 02:54:09) 麿 : ＲＮＤ（Ｅ）なんてのも面白いかも。最初のうちはかなり簡単になるけど (2012/06/21 (木) 06:17:30) 麿 : ↑*5 それならＴＯ（Ｃ＝＝Ａ＋Ｂ）＋Ｅでさらに１文字減らせますね (2012/06/21 (木) 06:42:55) わぁぃ＠ : 正解か不正解は分かれば音でも何でもＯＫです。 (2012/06/21 (木) 11:41:49) 名無しさん : IF C=A+B THEN TALK "セイカイ" (2012/06/21 (木) 13:45:19) バイカウントメルビル : ↑↑↑↑↑↑あ、それは気が付かんかった　んじゃなかったことに(笑) (2012/06/21 (木) 18:50:21) バイカウントメルビル : ↑↑↑↑んでもその後のＥとＡの間開けないとだから結局一文字減らせない (2012/06/21 (木) 18:57:10) 麿 : ↑改行コードをカウントしなければ、ＥとＡの間を改行すればよいかと (2012/06/21 (木) 20:27:39) 麿 : ↑*4 C==A+B (2012/06/21 (木) 20:32:25) 麿 : 既出かもしんないけど、不正解だったら中断しないとダメですか？ (2012/06/21 (木) 20:35:35) 名無しさん : 正解数のカウントをするのが条件だから問題数と正解数を別途カウントすれば中断しなくても良さそう (2012/06/21 (木) 20:52:02) バイカウントメルビル : ↑↑↑↑あ、なるほ　そういうことか^^ (2012/06/21 (木) 21:48:35) わぁぃ@ : 不正解のときに必須なのは正解数のリセットだけですので続行してOKです。 (2012/06/21 (木) 23:02:22)

• マリオ : 6月からノーコメントｗｗｗ (2012/08/13 (月) 16:14:41)
• 道産子の初心者 : ちなみに普通に作ったら(圧縮しないバージョン)どうなるんですか? (2012/10/12 (金) 15:13:37)
• 名無しさん : え？　普通に計算トライアタックになるんじゃないの？　 (2013/01/07 (月) 18:34:15)
• ななし : ↑圧縮してない、プログラムリストが見たいんですよ。 道産子の初心者さんもきっとそうだと思います。 (2013/02/09 (土) 15:36:24)
• 名無しさん : 圧縮されてないものならば最初に書いているプログラムにおいて論理式の部分をIF文にすればいいだけでは？ (2013/02/09 (土) 15:53:10)
• 天郷思音 : こんな感じですね。 (2013/02/09 (土) 15:53:39)

• 天郷思音 : 1箇所だけ論理式がありますので説明します。まずＢ＞＝０というのはB>=0の時1になります。そうでない時はには0になります。なので、”＋”＊（Ｂ＞＝０）というのはＢ＞＝０の時だけ＋を入れる。ということです。 (2013/02/09 (土) 15:55:13)
• ななし : これが1行まで圧縮出来るんだからすごいな(僕には無理無理) (2013/02/12 (火) 20:44:24)
• 名無しさん : 基本さえ理解しておけば難しくはない (2013/02/12 (火) 20:56:54)