第１５６回 数＋数字問題

【問 題】 
  ＜上下同数何種＞： 上（前１４桁）と下（後１４桁）両方にある１桁の数（重複は除く）
 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（からくちさん出題）

 解答用参考ファイル：Q156_1をダウンロード（xlsx） Q156_1をダウンロード(xls)

**********************************************************************************

尚、解答締め切りは０２／０２（土）の午後８時の予定です。状況によっては

変更される可能性があります。

また、解答発表までは直接数式を書き込むこと・ポイントとなる関数名を

書き込むことはご遠慮ください。

********************************************************************************

Comments

[投稿情報: y sakuda]

からくちさんらしい問題だけど・・・・
なんか難しそう^^;

[投稿情報: ジョー３]

こ、こ、、、、ここ、、、、、
こりゃ、、またーーーー

よく、、、くまぷーさんが、、、、３こ、、同時を、、、、
・・・・・・・・・・・・・・・・

[投稿情報: ジョー３]

あのねーーー
今後3週間忙しいから・・・・・
・・・・・・・・・・・・・・・・
この問題3問で・・・・4週間でも、、、、いいかもなーーー

ぱっとみ、、、2問目を今週やろうかなーーー・・・・なんて、、、

[投稿情報: ジョー３]

2問目、やりました。50回　f9・・・・合格でした。

ん、、、、文字数！！・・・それは、、、無視・・・・
１，３は、、、明日以降の予定です。

[投稿情報: ジョー３]

あ、、、、
見落としてました。

？？？

4問かーーー

やったのは3問目だった。

[投稿情報: ジョー３]

あああーーーー・・・・・
とほほ、、、

[投稿情報: くまぷー]

>やったのは3問目だった。

ジョー３さんが２問目と仰っていたので････(^^ゞ
いりいろと不手際で申し訳ありません。m(__)m

あ、xlsxとxlsの２種類あるわけは、どういうわけかxlsで
保存しようとしたら、互換性の問題があるって警告が出たので･･･

急いでアップするために２種類にしてしまいました　m(__)m

[投稿情報: y sakuda]

結局今週は一問だけってことになるんですね。

ちょっと質問です。極稀にですが、下が１４ケタ以下になっちゃう場合があるんですが、無視していいですか？
無視しない場合はどのような取扱いでしょうか？

また、
下は一例ですが、
47433923141475
38681073818244
私は同じ数は１が２個、２が一個で数が一致し、２種が正解だと思うのですが、問題シートでは５になって来る。
問題の意味分かってないのかな？

とりあえず作ったやつは↑によって初めから正解じゃないかも知れませんし、欠陥があるの分かってるんですが、無茶苦茶長い^^;

[投稿情報: maron]

47433923141475
38681073818244
＞上（前１４桁）と下（後１４桁）両方にある１桁の数（重複は除く）
◆1,2,3,4,7の５ではないでしょうか？

[投稿情報: ジョー３]

>結局今週は一問だけってことになるんですね。
くまぷーさんは、、
３もんとか、４もんとか、、同時は、、、なかなか、、、ゆるしてくんないと、、おもってた。

＞◆1,2,3,4,7の５ではないでしょうか？

うんうん、、、

[投稿情報: y sakuda]

>◆1,2,3,4,7の５ではないでしょうか？
あっ、そうか、使用数は一致してなくても良いのか^^;

maronさんありがとうございます。
で、答えは合いましたが、１００オーバー
どうしようもネーなｗ

[投稿情報: maron]

◆とりあえず７０台

[投稿情報: ジョー３]

短かしさ・・・・

１）文字数
２）関数の数
３）考え方
・・・・・・・・・・・・・・・・
なんかねーーーー
・・・・・・・・・・・
閃かないが、、、ありそうなんだよねーーー・・・・・なんかが、、、
・・・・・・・・・・・・・・・・・だが、、、勘は、、、、むむーーーー

[投稿情報: からくち]

＞とりあえず７０台
４問合計で、、、すご過ぎる
２問目だけで、、、もう少し頑張れる

わたしは３－４－１－２の順です

[投稿情報: maron]

＞４問合計で、、、すご過ぎる
◆うそでしょう、！
◆＜上下同数何種＞だけですけど

[投稿情報: y sakuda]

発想変えて別法考えたら、わずかに減っただけ・・・・
で、もうチョイ短くしてやっと二けた（と言っても９０台）にしたら、あるケースであえなく撃沈^^;
今日はもうやめです・・・・・

[投稿情報: y sakuda]

対応しようとしたら、若干増えて97まで戻った。
でも10000回に一回くらい下が12ケタ以下になる場合で条件が合うとこける。
（VBAで回しっぱなしにしてチェックしました）
原因が分かってるから対応可能ですが、対応すると100は確実に超える。

からくちさん、合計28ケタ以下も対応するのかどうか条件の明示をお願います。

[投稿情報: からくち]

＞合計28ケタ以下も対応するのか
２問目（上下同数何種）の問題は
仮に２８桁未満になってしまった時（例えば２７桁に）
表示上の上下では無くあくまで先頭より１４桁
と
１５桁目以降の数字（この場合１３桁）
での判断でお願い致します

[投稿情報: y sakuda]

>１５桁目以降の数字（この場合１３桁）
了解ですが、長くなる一方ｗ
しかし、可能性としては合計14ケタ以下なんてのも起こり得るな^^；

[投稿情報: y sakuda]

そこまで厳しいと、今の所Excel2007以上限定で78
2003以下ではきちんと整理したのないですが、100前後かな？

[投稿情報: y sakuda]

整理しなおしたら、2003以下でも83になった^^
やっぱり夜中（明け方）より朝ですねーー

[投稿情報: y sakuda]

テスト用コードの提示
力技でエラーケースを検出するコードです。
A1にテストしたいセルアドレス例えばE6　を入れて実行してください。
エラーが発生するまでループして、ループ回数を表示します。
Sub test()
Dim wTarget As Range, I As Long, wFlg As Boolean
Application.ScreenUpdating = False
With ActiveSheet
Set wTarget = .Range(.Range("A1"))
I = 0
wFlg = True
Do While wFlg
Application.Calculate
I = I + 1
If .Range("G6") <> wTarget Then
wFlg = flase
End If
Loop
MsgBox I
End With
Application.ScreenUpdating = True
End Sub
なお、エラーが発生しないような場合は無限（と言ってもカウンタがオーバーフローするまで）止まりませんので、CTRL+BreakでVBAの実行を強制終了してください。
参考まで。

[投稿情報: min]

やってみましたが、７２。
何とも無駄のありそうな式ですが。
とりあえず。。

[投稿情報: y sakuda]

>やってみましたが、７２。
無駄がありそうでこれはすごいのでは？
2003版ですが、これなら減るってアイデア試してみたら、見落としがあって、関数一つ減らしたけど、字数は82と一文字減っただけ。
2007以降版は同じアイデアでは却って一文字増えた^^;
結局78/82で停車中です。

[投稿情報: min]

風呂上がりにちょっと無駄を省きましたが、根本的に考え方が変わらないので
６３にしかなりません。
ここの皆さんなら、常識の範囲だと思いますので
こんなのは大したことないと思いますが。

もう少し発想を変えないとデスネ。

[投稿情報: ｎｉ]

皆さん、２問目とか４問合計とか？？？
xlsでは１問しかありませんけど、上下同数何種？　ですよね。

がんばって６６文字

チェック用マクロ
wFlg = flase　→　wFlg = false
ですね。

[投稿情報: y sakuda]

>wFlg = flase　→　wFlg = false
そうです。飛んだ失礼をいたしました。
Option Explicitを入れてなければ、値のない変数扱い（つまりゼロ）ですから動きます。

修正版です。
Sub test()
Dim wTarget As Range, I As Long, wFlg As Boolean
Application.ScreenUpdating = False
With ActiveSheet
Set wTarget = .Range(.Range("A1"))
I = 0
wFlg = True
Do While wFlg
Application.Calculate
I = I + 1
If .Range("G6") <> wTarget Then
wFlg = False
End If
Loop
MsgBox I
End With
Application.ScreenUpdating = True
End Sub

[投稿情報: y sakuda]

niさんが66、minさんが63・・・・・
私とはやってることが全く違うんだろうな・・・・・

[投稿情報: y sakuda]

67
何なんだろ、この微妙な違い。
しかし、今回はジョー3がおとなしいですね。忙しいのかな？

[投稿情報: からくち]

何か、、、出題ミスかな・・・余りに静か、、、

それに文字数も４問中の２問目だけで
後の３問（１・３・４問目）は全く、、、

すみません。。。

[投稿情報: y sakuda]

>何か、、、出題ミスかな・・・余りに静か、、、
結構面白いですよーー
あまり、面白い回答作れてませんけど＾＾

[投稿情報: maron]

＞それに文字数も４問中の２問目だけで
◆最初は４問が出題されましたが、途中で２問目だけに訂正されましたので、
◆みなさんの解答が２問目だけになっているのだと思います

◆ところで、最初の７２から減りません(*_*;

[投稿情報: y sakuda]

>◆最初は４問が出題されましたが、途中で２問目だけに訂正されましたので
私もちらっと見たけど、その時は他の作業やってたかなにかでダウンロードしなかった。

[投稿情報: からくち]

＞途中で２問目だけに訂正されましたので
あっ！本当だ、、、知りませんでした
１・２は同類の問題
３・４も同類の問題だったのですが、、、

＞niさんが66、minさんが63
＞67 何なんだろ、この微妙な違い
＞最初の７２から減りません
解答例は５８を予定
これは面白くも何とも無い式です
一般的に考えれば極当たり前の式です
少なくてもわたしの感覚では
因みにC6の値は何桁でもＯＫです
１桁でも１００桁でも、、、

[投稿情報: y sakuda]

うーーん、50台でできるのか・・・・

[投稿情報: ジョー３]

>しかし、今回はジョー3がおとなしいですね。忙しいのかな？
ただいまーーー
さっきまでズー-と、忙しかった。
9割方・・・・okで、、、今やってみる。
・・・・・
勘は、,,うまい方法があると、言っている。しかし、、、閃かない。
・・・・・・・・・・・・・・・
では、、、、では、、、、

[投稿情報: ジョー３]

出来た。・・・・・
自信あるぞ・・・・
数えたら・・・・５８・・・・おおーーーーーいいぞーーーー

で、答えが、、、、3回に1回しか合わない・・・・合うはずなのにーーー

・・・・・・・・・・・・・・・
あはは、、、
・・・・・・・・・・・・・・・

[投稿情報: からくち]

う～～～ん、、、しかし困った
＞解答例は５８を予定
これは４問出題時の解答例

他の３問はこの問題を解く為の通過点
言い換えれば、、、ヒントの様な問題
この問題の解答例は他の３問の寄せ集めに過ぎない
つまり他の３問の解答例も書いている事になってしまう

どうしよう。。。

[投稿情報: ジョー３]

>どうしよう。。。
だいじょうぶ、だいじょうぶ、、、、気付きません・・・・
・・・・・・・・・・・・・・・
あ、、、ごめんごめん、、、俺だけかも、,,
・・・・・・・・・・・・・・・・・
そういうことってあるよねーーー
・・・・・・・・
では、、、4問にして、・・・・
1ヶ月問題にするかも・・・・くまちゃんが、、、、・・・・
・・・・・・・・・・・・・・・・

[投稿情報: くまぷー]

>1ヶ月問題にするかも・・・・くまちゃんが、、、、・・・・

そうしてもいいのですけど
間延びしてしまいませんか？

[投稿情報: からくち]

＞気付きません・・・・
いえ、、、分かります

仮にこの問題が
最大値と最小値の合計は、、、とした場合
=MAX()+MIN()が解答例
他の問題が
最大値は・最小値は、、、

[投稿情報: y sakuda]

>間延びしてしまいませんか？
まあ精々一週間延長が限度では？
私の場合、できるかできないかは確実に1～2日できまっちゃうからそれ以上長くても意味ないです。
私の67はジョー3が使ったことないとおっしゃってた関数使ってるんで、それ外すことを考えたら間延びして大幅に伸びちゃった^^;
多分例によって難しく考えすぎてるんだろうな・・・・・

[投稿情報: ジョー３]

うむむ、、、では、、、
出題者が、、、決めたら、、、いいと、、おもう。
・・・・・・・・・・・・・・・
4問、、、
１Wでも
２Wでも
３Wでも、、、
・・・・・・・・・・・・・・
４Wでも、、、
・・・・・・・・・・・・・
いいでーーー

[投稿情報: y sakuda]

ところで、くまぷーさん変な投稿が入ってるのお気づきですか？
http://kumapooh.typepad.jp/blog/2009/01/post-a4b5.html?cid=6a013485c89725970c017ee8155b1c970d#comment-6a013485c89725970c017ee8155b1c970d

なおこのコメントは削除願います。

[投稿情報: くまぷー]

お早うございます。

＞なおこのコメントは削除願います。

そうします。m(__)m

[投稿情報: む印]

虫歯が痛んで、、全くやる気になれなかったのですが
仕方なく歯医者で神経抜いてもらって
麻酔が効いているうちにやってみました

最初に出来たのが61、短縮試みて58になりましたが
これ以上は思いつきません、、

[投稿情報: y sakuda]

>最初に出来たのが61、短縮試みて58になりましたが
皆さん凄いな・・・

ところで、くまぷーさんこれは予定通り今週答え合わせなんでしょうか？

[投稿情報: ジョー３]

>ところで、くまぷーさんこれは予定通り今週答え合わせなんでしょうか？
からくちさんの、出題意図からして（わたしの半ば想像だが）、、
同時4問にして、、来週・・・答え合わせというのは、、どうでしょうか？
・・・・・・（さてさて、、、実は、この問題さえきちんと解いてないじょーなのだ）

[投稿情報: ジョー３]

しかし、、、からくちさんは、、、数字問題が・・・・おすきですねーーー
ていうか、、、、すごいですねーーーー
で、かれに、おつきあいできちゃう、、、、みなさんも・・・すごいけど、、、
・・・・・・・・・・・・・
で、、、名案が迷案になり、、、ちょっとこまってるじょーーーなのだ、、、

[投稿情報: くまぷー]

>ところで、くまぷーさんこれは予定通り今週答え合わせなんでしょうか？

はい、予定通り、これ1題でいきます。
現在、在庫もないですし・・・

[投稿情報: y sakuda]

了解です。
って言っても67から全くダメですから半分観客モードですがｗ
ついでですが明日は遅刻の予定です。

>現在、在庫もないですし・・・
ここはやっぱ、ジョー3の出番ですねーー

[投稿情報: ジョー３]

>って言っても67から全くダメですから半分観客モードですがｗ
あ、、、私は６９です。・・・・むむーーー

[投稿情報: ジョー３]

>あ、、、私は６９です。・・・・むむーーー
数え違え、、、７１・・・・
で、違う考え方・・・・どうだーーーー

あ、、、６７だ。

[投稿情報: ジョー３]

何か良い考えがありそうで、何かに気付いていない・・・感じ・・・
駄目みたいです。sakudaさんと、同じ文字、、でも、、違う手段だろうなーーー

[投稿情報: maron]

◆みなさんよりは多いですが、７２が６９になりました

[投稿情報: ジョー３]

> ◆みなさんよりは多いですが、７２が６９になりました
67も69も同じようなものですね、、、50台を横に置くと、、、
で、いろいろ、60台もありそうで・・・これも面白かった。

[投稿情報: min]

ちょっと時間があったので、もう少しやってみましたが、６０にしかなりませんでした。

それにしても今日この問題だけの答え合わせだと、
からくちさんは困らないのだろうか。