第40回 時計の針2

【　問　題　】

ジョー３さんの問題の「時計の針」と全く同じです
違いは、、、

針の動き方が違います
短針・長針・秒針全てが１メモリづつ「カク、カク」と
例えば11：59：59では１２の１つ左手前に針が３本あり
１秒後の12：00：00に３本共に12に動くとします
その１秒後は秒針のみ１つ動き0：00：01となります
（この時点ではまだ短針・長針は動きません）
３本の針が１メモリづつしか動けないとします
長針なら１分づつ、、、
短針も同様に長針の１分の位置までづつ、、、
（１秒づつの位置）
あとはジョー３さんの問題と同じく「時・分・秒」の３点を結びます
違いはその３本の線のどれかが中央を通過しているか否か
中央を通過していたら「○」
中央を通過していなければ「×」としてください

従いまして問題の表はジョー３さんのを使ってください
全く同じで出来ますので

★文字数は解答日まで書かないでください。

使っている関数名は書いて構いません。
ただしその関数の使用個数は書かないでください。

　　　　　　　　　　　　　　（からくちさん）

★sakudaさん提供解答用参考ファイル： 20180402VBA_V2をダウンロード(04/03　22：10更新）

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

解答発表は04/07（土）の２０：００です。それまでは直接数式を

書き込むこと・ポイントとなる関数名を書き込むことはご遠慮ください。

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

Comments

[投稿情報: jyo3]

へーーー・・・

おもしろそう・・・・

でも、、、、ちとのんだら、、、
るーるが、、みえない（かすんでる）
も、、、いちど、、、みてみる

[投稿情報: jyo3]

質問です
>違いはその３本の線のどれかが中央を通過しているか否か
ってことは、、、
時と分
時と秒
分と秒
を結ぶ線のことのどれかが・・・
という理解ですか?

[投稿情報: jyo3]

また、質問
>使っている関数名は書いて構いません
>ただしその関数の使用個数は書かないでください
例えば
sum・・・・・・・・○　　　で、
sumを3回は・・・・×　　　ってことですか?

sumとminとmax・・○　　　ですか？

[投稿情報: y sakuda]

一両日中にVBA作ります^^

[投稿情報: jyo3]

も、、一つ
しつもん（かくにんてん）
が、、、
ありますが、、、

どなたかに、、、おまかせ、、、

[投稿情報: からくち]

針が指している所を結んだ三角形の中に中央があるか否かがジョー３さんの問題でした
今回はその三角形の３辺のどれかが中央を通っているか否かの問題です

文字数は書かないでください
使用関数名は書いても構いません
ですが、、、その使用数は書かないでください
例
SUMを使っています、、、○
SUMを３個使用、、、×
IF・SUM、、、○
IF・SUM・SUM、、、×

[投稿情報: からくち]

わたしの、、、想像です
問題としては前回より易しいけど
文字数的には前回と最終的には粗同数になるかも、、、

[投稿情報: y sakuda]

即席でVBA作って送りました^^
まだやってない

[投稿情報: y sakuda]

とにかくやって見たと言うだけですが・・・・・
IF,OR,MOD,MMULT
と相変わらず関数多数^^

[投稿情報: からくち]

＞相変わらず関数多数
わたしは３種です、、、

[投稿情報: くまぷー]

>即席でVBA作って送りました^^

有り難うございます。
早速、アップしました。m(__)m

[投稿情報: からくち]

sakudaさんへ
この判定の×○はcodeで幾つの×○ですか

[投稿情報: maron]

◆3種類です。

[投稿情報: からくち]

＞3種類です
同じですね、、、
でも出題者としてはこの式では、、、
こんな式を良く考えたな、、、と言う式に、、、
５～７種位は使いたい、、、

[投稿情報: y sakuda]

>この判定の×○はcodeで幾つの×○ですか
ダブルバイトの〇×は時々混乱しますので、今回は英大文字のXとOにしました。
コードは79と88です。

[投稿情報: y sakuda]

少し変わって、IF,OR,ABS,MMULT

[投稿情報: maron]

◆ところで、11：21：26　、　9：3：15　の判定は？

[投稿情報: y sakuda]

maronさんの質問意味分からないです。
両方共普通に中心通らないはずだけど？

[投稿情報: からくち]

＞11：21：26　、　9：3：15　の判定は
共に、、、○です
両方共短針と秒針を結んだ線が中央を通っていますので

[投稿情報: y sakuda]

>両方共短針と秒針を結んだ線が中央を通っていますので
えっ？
短針は、60分立つまで動かないんですか？
>例えば11：59：59では１２の１つ左手前に針が３本あり
この意味の解釈にもよりますが、短針は一分毎にカクって動くと解釈してました。
もし、60分立つまで動かないってことであれば、VBAも書き換えないとなんないです。

[投稿情報: y sakuda]

追加
＞11：21：26　
は短針が動かないとしても25秒じゃなきゃ中心通らないはず？

[投稿情報: maron]

◆○だと思ったのですが、チェックすると×となるため、質問してみました。

[投稿情報: からくち]

11：21：26、、、
短針、、、５６分の位置
長針、、、２１分の位置
秒針、、、２６分の位置
従いまして短針と秒針を結べば中央通過では、、、

秒針は１秒毎に１メモリ
長針は１分毎に１メモリ
短針は１２分毎に１メモリ、、、では
秒針が一回りすると１分故長針が１メモリ
長針が一回りすると１時間故短針は５メモリ
故に、、、短針が１メモリ動くのに必要な時間は１２分では

[投稿情報: からくち]

＞短針は一分毎にカクって動くと解釈してました
それは長針では、、、
短針・長針共に１分毎に１メモリ動いては、、、
ではないでしょうか

[投稿情報: からくち]

＞わたしは３種です、、、
１つ増やして、、、今４つ
もう少し増やしたい、、、

[投稿情報: y sakuda]

>故に、、、短針が１メモリ動くのに必要な時間は１２分では
なるほど、時計の秒を刻む30度を5分割してるメモリ単位って意味ですね。
承知しました。
VBA今晩中に直してくまぷーさんに再送します。

[投稿情報: くまぷー]

>VBA今晩中に直してくまぷーさんに再送します。

では、届き次第更新します。

[投稿情報: くまぷー]

sakudaさん、迅速な対応ありがとうございます。
更新しました。

[投稿情報: y sakuda]

しかし、元々仕様が分かってなかったし、今度は分かったつもりなんだけど、大丈夫かな？
からくちさん、maronさんご覧になったら、早急にチェックしていただければ幸いです。

[投稿情報: y sakuda]

新仕様に合わせて書いてみたんですが、関数は4種
少なくとも、今度私の書いた式はほとんど工夫の余地が無さそう。

[投稿情報: からくち]

＞早急にチェックしていただければ幸いです
流石です、、、完璧です

[投稿情報: y sakuda]

よかった＾＾
しかし、式の方は相変わらず関数が多く、新バージョンの第2弾は関数5種

[投稿情報: ｎｉ]

うーむ、よくわからない

秒針は１秒に１メモリ動く
長針は１分に１メモリ動く
短針は１分に１メモリ動く
ということでしょうか？？？

短針は１２分ごとに１メモリ動く？

１メモリはどの針も３６０度/６０を１メモリとして動く
ということかな？

[投稿情報: y sakuda]

>短針は１２分ごとに１メモリ動く？
こっちだそうです。VBAのV2はこちらに対応して、からくちさんからOKもらいました。

[投稿情報: maron]

◆全数検査しました。完璧です。
◆関数は4種です。

[投稿情報: からくち]

＞こっちだそうです
です、、、これ我が家の古い時計

＞関数は4種です。
わたしも漸く４種になりました
IF・OR・ABS・INT

＞第2弾は関数5種
羨ましいです
目標は５～７種

[投稿情報: からくち]

＞関数は4種です。
関数名　教えてください
それでどんな考え方か想像したいので
当たらないの承知で、、、

[投稿情報: maron]

◆からくちさんと同じです。

[投稿情報: y sakuda]

私の5種は
IF、OR、ABS、INT、MMULT
です。

[投稿情報: からくち]

＞からくちさんと同じです
ええっ、、、と言う事は前回も考え方が同じだったので
若しかして又々同じ、、、何てことも、、、

＞IF、OR、ABS、INT、MMULT
MMULTが分からない、、、
COUNTIF・FREQUENCY・MOD・・・は使えるけど、、、
う～～ん、、、

[投稿情報: y sakuda]

関数多いの作って見た。
ま、niさんのマネっこですが、初めから使えるけどうまくまとまらないのはわかってたから超長大です^^
IF,OR,MAX,ABS,IMABS,IMSUB,IMEXP
と7種^^

[投稿情報: ｎｉ]

ようやくとりあえずの１個目
IF、AND、ABS、MMULT、INT
５種類ですね

[投稿情報: y sakuda]

お遊びはともかく、二個目が全く出てこない^^;

[投稿情報: jyo3]

さて、、、
まだやってない、、、

やらなければ・・・・＝10個ぐらい
気がかりなこと・・・＝5個ぐらい
・・・・・・・・
あと、、、5個ぐらい・・・忘れてそう・・・・

[投稿情報: からくち]

今の処使っている関数は、、、
IF・MID・MOD・INT・ABS・LOOKUP・OR
こんなところかな
COUNTIFやFREQUENCYで書いてみたら
悪戯に長くなったので却下

[投稿情報: ｎｉ]

シンプルにIF,AND,ABS、INTで約２/３になった

[投稿情報: からくち]

取り敢えずと言った感じに３式書いてみたけど
違う関数を使っているけどただ式が３つあるだけ
これではとても出題者解答案として出せないな
どうしよう、、、

[投稿情報: y sakuda]

なんのことはないな。最初にだらっと書いた奴普通にダイエットしたらとりあえずは最良の結果。
IF、OR、INT、ABS
例によって、二番目の（自信作だった）はむずかしいことやりすぎてた^^;

[投稿情報: ｎｉ]

そうか、ANDじゃなくてORにすると１文字減るのか

ん？まさか、全員同じ答えとか・・・

[投稿情報: ｎｉ]

無理やり関数一つ削ってみたけど、短くならなかった

[投稿情報: y sakuda]

>ん？まさか、全員同じ答えとか・・・
関数5種のも関数And/OR以外同じだから事実上同じ式だと思ってます。
4種の関数同じのは同じ答えかた^^
やって見るとこれ、あまり別手法の余地がないんじゃないかな。
関数5個のも基本的には判定方法同じですもの。
別の判定としては、無理やり作った複素数使って見た長大なやつ。
ジョー3時みたいにうまくまとめる方法無さそうですから実際的じゃないけど。

[投稿情報: からくち]

＞まさか、全員同じ答えとか・・・
そうですか、、、
ではそれを確かめる意味でも条件を付けて見ます

＜条件＞
次の関数は使用禁止と致します
ＡＢＳ・ＡＮＤ・ＯＲ・ＩＦ

[投稿情報: y sakuda]

>次の関数は使用禁止と致します
長くなるけど、できた。
MID、N、INT、SUM

[投稿情報: からくち]

やはり、、、似て非なるもの、、、かも
最終確認させてください

＞次の関数は使用禁止と致します
ABS・AND・OR・IF・MID・TEXT
及びこれらを含む関数（IMABS・MIDB 等）

[投稿情報: maron]

＞次の関数は使用禁止と致します
◆作ってみました
CHAR・COUNT・FIND・TRUNC

[投稿情報: からくち]

＞作ってみました
ありがとうございます
やはり違う考え方の様ですね

若しかして１つしかと頭を過りました
違って良かったです

[投稿情報: y sakuda]

MIDも禁止だと、代わりにCharでできるはず。やってないけど。
お遊びの複素数の方はIMABSアウトだとどうにもならないと思うけど、元々本線の式とは判定方法も別路線^^

[投稿情報: からくち]

今回の禁止条件はあくまで皆さんが全く同じ式では
と言う思いを確認したかっただけです
しかしmaronさんのコメントから
皆さんが同じ考え方では無いことが確認できましたので
禁止条件は終了と致します

ありがとうございました

当初文字数は土曜日まで書かないでください
としていましたが土曜日では遅すぎる様ですので
＜禁止条件は無し＞
＜文字数もＯＫ＞
と致したいと思います
ご迷惑お掛けしました

[投稿情報: からくち]

と言う事で、、、
文字数、、、６２です

[投稿情報: y sakuda]

62です。
MMULT使用の方は、単に難しくやってただけみたいなものですが、74
お遊びの複素数版は、なんと244^^

[投稿情報: からくち]

＞62です。
これは、、、若しかして、、、
これ以外では逆に文字数は増えて
６６～１０７
好みは、、、７６、、、かな、、、

[投稿情報: からくち]

MMULT、、、全く考えていませんでした
好みの７６は、、、LOOKUPです

[投稿情報: からくち]

わたしもお遊び版を書いてみました
関数７種で１５２

＞なんと244^^
負けた～～
せめてその式７種未満であってください

[投稿情報: y sakuda]

>これ以外では逆に文字数は増えて
｛｝になっちゃった奴です。
平べったく書くと84でこれが原型。
同じ発想でMMULTでまとめたのは74です。
私はLOOKUP上手く使えないからどうしても行列方面へ・・・・

>せめてその式７種未満であってください
IF,OR,MAX,ABS,IMABS,IMSUB,IMEXP
と7種^^
要するに無理やりniさんのマネっこやって自爆したやつです。
1秒毎に動くやつはniさんがエレガントにやってますが、こちらはきれいにはまとまらず力技です。

[投稿情報: y sakuda]

私は式としては、MMULTの74の方が好きですねーー
これはniさんもAndとORの違いだけでMMULTっていってましたから同じ式かと
また、これだとすると発想は同じだから62の方もniさんと同じだと思います。

[投稿情報: maron]

◆62です。
◆からくちさんと、関数も文字数も同じなので、同じかな？

[投稿情報: y sakuda]

やっぱり、IF,OR,ABS,INTの62同じような気がするけど・・・・

[投稿情報: からくち]

皆さんありがとうございます

出題者解答案、、、まだ早いかな、、、
ABS・INT・LOOKUP・OR、、、４種７６文字
この式にするかな、、、
これなら被らない、、、かも

[投稿情報: からくち]

今回一番の収穫、、、
それはわたしのＰＣは古くオンボロなので特別かもですが
・式の文字数
・配列数式を使用しているか
・どんな関数を使用しているか
sakudaさんの判定を1000回にしてどれが１番早いか
結果、、、その差は僅かでしたが
文字数が１番長くしかも配列数式の式でした
使用している関数の違い
重い関数と軽い関数、、、この違い
配列＝重い
思い込みは捨てよう

[投稿情報: y sakuda]

ループの時間、原因不明で遅くなったりするのであまりあてには・・・・・
Calculateが入った時、他のシートが動いてるかどうかもはっきり言って良く分かりませんし、他にIE等別アプリが動いてる場合もあるし・・・・

[投稿情報: maron]

◆CHAR・COUNT・FIND・TRUNCの76文字のしようかな

[投稿情報: y sakuda]

ジョー3時計問題もう一つあるっておっしゃってたけど、出題あるのかなーー

[投稿情報: jyo3]

>ジョー3時計問題もう一つあるっておっしゃってたけど、出題あるのかなーー
あります。
日曜まで、、、まとめます。

それは、秒針を除いた

とっつきやすい、、、
簡単×2問か、、3問です。

今患い事が少しあって・・・
回答に、、、集中できない状態ですが・・・・
作ることは、、、大丈夫そうです。

[投稿情報: y sakuda]

>今患い事が少しあって・・・
ありゃま、お大事にーー

出題よろしく＾＾

[投稿情報: jyo3]

>ありゃま、お大事にーー
おだいじにー・・・ていうほど深刻ではないが、、、

あれとこれと・・・10個ぐらい、、、
しなくっちゃー・・・・

でも、この頃忘れっぽいのだ・・・・

そんなレベルの・・・患いごと、、、

例えば、、、予定を書いて（エクセルに）
あれれ、、、どこのフォルダーに、、、いれたっけ、、、
何て言う、、、お年寄りレベル・・・に、、、なっちゃった。

[投稿情報: jyo3]

あ、、、今ワイン飲んでたら、、、
良いこと考えた（酒が勝手にいいと判断?）

まず1問：くまぷーさんに・・・送ります。

ささっと、解かれたら・・・
もう1問出題。

足りないなら、、、もう・・・3問目を出題。

ってことで、、、

もう、今日か明日1問目を送りますね、、、

[投稿情報: ｎｉ]

IF,or,INTの62(配列)にしよう

[投稿情報: jyo3]

>IF,or,INTの62(配列)にしよう
niさん、、、若々しいねーーー
って、、、おもった。

[投稿情報: y sakuda]

>IF,or,INTの62(配列)にしよう
ん？私の62、ABSを無くすことはできるけど、多分2文字くらい増えちゃう。
なにがちがうんだろ？

[投稿情報: くまぷー]

>もう、今日か明日1問目を送りますね、、、

お待ちしていますね。

[投稿情報: からくち]

トドのつまり、、、
＞ABS・INT・LOOKUP・OR、、、４種７６文字
この式を送ってしまいました

今回の収穫は、、、
＞今回一番の収穫、、、
結局sakudaさんの手をお借りしての収穫

[投稿情報: y sakuda]

問題の図眺めてて、時計シリーズのアイデア二つ三つ
スマートに解けるかどうかは置いて置いてですが。
ただ、内二つは探させるケースがあるのかないのか？？（一見ありそうだけど）
成立するかどうかはその辺調べて見ないと分かりません。

しかし、問題としての独創性はジョー3の第一弾秀逸としか言いようがないですねーー

[投稿情報: maron]

＞問題の図眺めてて、時計シリーズのアイデア二つ三つ
◆しばらく、時計シリーズが続きそうですね。

[投稿情報: jyo3]

日付といえば、、、
角田さんと、、、みなさん・・・・が、、、敬意を、、、

で、、、

彼は、、、

時間は関心ないんでしょうかね、、

[投稿情報: jyo3]

10分ぐらいしたら、、、
次の（もしかして次の次？、次の次の次？）問題を送りますが、、、

文字数が、、、少ないも良いですけど、、、、

現実的には、、、
軽く動く・・・ってのも、、、魅力ですね
分かりやすいってのも、、、良いけど・・・・

[投稿情報: jyo3]

で、、、送りました。

[投稿情報: y sakuda]

角田さんは暦だけだと・・・・
後郵便番号だったかな？

[投稿情報: くまぷー]

>で、、、送りました。

頂きました。有り難うございます。m(__)m

[投稿情報: y sakuda]

考えてた、アイデアその一
ジョー3のオリジナルの秒単位ですべての針が動く場合は発生しない
からくちさんバージョンの単位毎に動く場合もレアケースもいいとこ。
もう少し考えないと問題にできない^^;
ただ、レアケースの割にはこれまでのノウハウが使えるんで割と簡単

アイデアその２
これは可能なんだけど、どんなケースでも答えを出す方法が良く分からない。
無責任問題だすにしても、正解表示くらいできないと話になんない。

アイデアその３
これも相当面倒でどの程度発生するのかのチェックもできてない。

いずれにしろ問題にできるのはもう少し先^^;

[投稿情報: min]

遅ればせながら、とりあえずやってみました。
62で
if、or、int
でした。

[投稿情報: min]

明日はお休みなので
char、or、intでやってみました。
６１でした。

[投稿情報: y sakuda]

>if、or、int
だけ？
新機軸みたい・・・・

[投稿情報: y sakuda]

一応問題一つつくりました。
が、・・・・かなりの無責任問題です。
まあ、私が回答者の側なら、「最初からこんなもんできるか！」か「一週間じゃ無理！」
のどちらかの反応だと思います。
一応ワークセル使えばできますので、かなり長大になるかもしれませんが、式一つでできるとおもいますけどね^^;
マクロ的にも式書いた途端に異常終了なんてことも起こってしまったのでその辺の手当しなきゃいけません。

[投稿情報: y sakuda]

確かに〇×ではなく、XOなんで、IFをCHARにすれば一文字減りますね。
しかし、私の61はChar、OR、INT、ABSと関数が違う。
minさんのなんだろ？
今日はもう少ししたら外出してそれ程遅くならないはずですが遅刻です。

[投稿情報: からくち]

＞かなりの無責任問題です
いいですね、、、そう言った問題を待っていました
わたしの好きな問題は
ジョー３さんの問題の様な問題か
とてもでは無いけどこの問題は解けないのでは、、、
そんな問題です
無責任、、、大いに歓迎です
出題が待ち遠しいです

[投稿情報: min]

今回の場合ABSを使わなくても同じ文字数になります

短縮を考えるなら50台まではいけるのではないかと思います。

出先から

[投稿情報: くまぷー]

からくちさ~ん
出題者回答例の送付をよろしくで~す　(^O^)／

[投稿情報: y sakuda]

>とてもでは無いけどこの問題は解けないのでは、、、
解けるのは間違いないんですが、式一つでということになると、ちょっとね・・・・
私も実際にはやってないので（VBAや確認のためのシート式はふんだんにワークエリア使ってどうという事なしにやってます）良い手があるのかどうかも不明。
誰も何にも思いつかなければある意味つまんないです^^；

[投稿情報: からくち]

＞出題者回答例の送付をよろしくで~す
６日 0：42に送り済みですが、、

[投稿情報: くまぷー]

>６日 0：42に送り済みですが、、

すみません。見つかりません。
お手数をおかけしますが
再送よろしくお願いします。m(__)m