電車はなかなか動きません。悪児の頭もなかなか動かず、進展しません。「救出作業は終わったが、車両に異常があるようで、現在点検中。さらに時間がかかる」というアナウンス。定刻から１時間半後に、人と会う約束があるので、それまでには行かなくてはならないのですが、車両故障まで発生したとなると・・・。それ以上遅れる可能性が出たかな、と思いましたが、もう腹をくくったのです。そのまま、一筆書きを考え続けました。と、そうか、2.5でも良いんだ、と思いつきました。2.5でも整数までなら、５で割るとあまりがでるんだ。早速、5^()の5を2に代えてみました。
=If(2^(2-Abs(Row(A1)-6))*(Col(E1) MOD 10) MOD 5,,"*")
これで、１＆１１列はＯＫです。あとは、４行目と８行目を0にする。
こっちは、直ぐに思いつきました。０乗して１になっているので、それから、１を引けばよい。他の行は、１を引いても、整数は整数、小数は小数のままだから、影響ない。そう思ってやってみると、
=If((2^(2-Abs(Row(A1)-6))-1)*(Col(E1) MOD 10) MOD 5,,"*")
できました。できました。(^^)(^^) 三四郎57文字。
まだ、57文字ですが、いかにも無駄が多そうな式で、まだまだ削れそうです。電車はまだ動きません。ということは、まだまだ時間があります。まずは、Ｒの方。これは、いつものパターンで、Abs()を使うのであれば、Rows()を使った方が、短くなることが多い。早速書き換えです。
=If((2^(3-Rows(A1:A$6))-1)*(Col(E1) MOD 10) MOD 5,,"*")
三四郎55。２文字短縮です。次は、Ｃの方。現在は、A1セルのColの引数に「E1」を入れ、それを10で割った余りを求めることによって、Ａ列Ｋ列は５、Ｆ列は０が返るようになっています。考えているうちに、やっと電車が動き始めました。これで、最低約束の時間には間に合いそうです。しかし、着くまでにあと５文字、何とか、縮めたい・・・
－－－－－－－－－－－－－－－－－－－－－－－－－－
腹をくくれて、良かったね、
＆
事故、さまさま、、かもしれない。
終わってしまえば、、
投稿情報: ジョー３ | 2007/11/13 09:26