プログラミングとかエクセルとかの技術を検索するとき
■ このスレッドは過去ログ倉庫に格納されています
こっちが検索しようとも思わないスキルをつらつら書き連ねてるのがごまんとあるぞ ここで聞くととんでもないバケモンがたまに居たりする
たった1行の式だけで素数を何十万行も出したりする奴とか
たった1行の式だけでウラムの螺旋を完成させる奴とか ていうかよく発見したなコレって感じスゲェ
そういうシステムがあったら100~500円ぐらい入れたいよね >>7
A1に↓の式で素数29万行
=LET(h,LAMBDA(h,i,arr,pn,IF(i=0,arr,h(h,XLOOKUP(i+1,pn,pn,0,1,2),FILTER(arr,(arr/i<>INT(arr/i))+(arr=i)),pn))),g,LAMBDA(g,i,arr,IF(i>MAX(arr)^0.5,arr,g(g,XLOOKUP(i+1,arr,arr,,1,2),FILTER(arr,(arr/i<>INT(arr/i))+(arr=i))))),f,LAMBDA(f,from,to,LET(from,MAX(2,-INT(-from)),to,INT(to),z,2^20,IF(to<from+z,IF(from=2,g(g,2,SEQUENCE(to-1,,2)),h(h,2,SEQUENCE(to-from+1,,from),f(f,1,INT(to^0.5)))),
LET(a,f(f,from,to-z),b,h(h,2,SEQUENCE(z,,to-z+1),f(f,1,INT(to^0.5))),seq,SEQUENCE(COUNT(a,b),,1-COUNT(a)),IF(seq>0,INDEX(b,seq),a))))),LAMBDA(from,to,f(f,from,to))
http://imgur.com/3arqzac.png
http://imgur.com/nR2FEmJ.png >>7
A1に↓の式でウラムの螺旋
=LET(size,236,ofst,42-1,width,2*size+1,x,SEQUENCE(,width,-size),y,SEQUENCE(width,,-size),n,IF(ABS(x)>ABS(y),ABS(x),ABS(y)),region,1+(x>y)+2*(x+y>0),spiral,CHOOSE(region,4*n^2+1+(y+n),4*n^2+1-(x+n),4*n^2+2*n+1+(x+n),4*n^2-2*n+1-(y+n))+ofst,i,(2*size+1)^2+ofst,prime,(SEQUENCE(i)=2)+ISODD(SEQUENCE(i))*(MMULT(--(MOD(SEQUENCE(i),1^SEQUENCE(i)*SEQUENCE(,SQRT(i)/2+0.5,,2))=0),1^SEQUENCE(SQRT(i)/2+0.5))=1+(SEQUENCE(i)<=SQRT(i))),ULAM,spiral*INDEX(prime,spiral),IF(ULAM=0,"",ULAM))
http://imgur.com/zcEMy12.png
http://imgur.com/z1EzCYT.png そのへんはどっかから拾ってきたコピペじゃないの流石に 最初の頃はこんなに短い式で2万行が限界だった
http://imgur.com/Vuyz12X.png
その後LAMBDA関数の登場で29万行まで計算出来るようになった ■ このスレッドは過去ログ倉庫に格納されています