1.今回の自慢解答。(^^)ゞ
基本の「お決まり」の関数のみ。
三四郎49
=If(Fp(((6-Row(A1))*(6-Col(A1))^2)^2^(1/3)),,"*")
Excel 50
=LEFT("*",LEN(((6-ROW())*(6-COLUMN())^2)^(1/3))<3)
=MID("**",LEN(((6-ROW())*(6-COLUMN())^2)^(1/3)),1)
2.悪児最短
3種類あるけど、みんな、長さも、基本も同じ。(^^;)(^^;)
三四郎47
=If(Atan2(Row(A1)-6,Col(A1)-6)*4 MOD Pi(),,"*")
=If(Fp(Atan2(Row(A1)-6,Col(A1)-6)*4/Pi()),,"*")
=If(Len(Atan2(Row(A1)-6,Col(A1)-6)/Pi())<6,"*")
Excelでは、エラーになってしまう・・・(-_-;)(-_-;)
(まぁ、三四郎47がExcelでは、48に当たることの証明、ということで)
Excel48(ちょいズル)
=LEFT("#",LEN(ATAN2(ROW()-6,COLUMN()-6)/PI())<6)
3.最初の60切り
三四郎56
=If(Fp((Abs(Rows(A1:A$6)^2-Cols(A1:$F1)^2)+1)^0.5),,"*")
Excel58
=MID("*",LEN(SQRT(ABS(ROWS(1:$6)^2-COLUMNS(A:$F)^2)+1)),1)
4.基本的な方法
三四郎60
=If((Row(A1)=6)+(Col(A1)=6)+(Rows(A1:A$6)=Cols(A1:$F1)),"*")
Excel60
=LEFT("*",(ROW()=6)+(COLUMN()=6)+(ROWS(1:$6)=COLUMNS(A:$F)))
今、帰ってきました。
・・・・・・・・
ど、どれも難しいです。
特に・・・
・・・))^2)^2^(1/3
・・・よくこんな定数の組合せを見つけましたね~。
驚きです。
投稿情報: くまぷー | 2007/11/03 22:27
私も50文字になったので
悪児さんの50と同じかと
思ってましたが、全く違うので
驚きました。
いろんなのが有るもんですねぇ~
( + o - )>
投稿情報: えくせるバカ | 2007/11/03 22:40