七行プログラミング part6
■ このスレッドは過去ログ倉庫に格納されています
print'''■■■■■■■__ _____■___ ___■■____ _■■______ ■_______■ ■_______■ _■■■■■■■_''' g=:(],],.])^:[(' '(<2 1)}]\4$' *')"_ シェルピンスキーのギャスケット in J alert('\u003e\u003e\u0031\u000a\u4E59') <body id=D onkeydown=K=event.keyCode-38 onload="Z=X=[B=A=12];function Y(){for(C =[q=c=i=4];f=i--*K;c-=!Z[h+(K+6?p+K:C[i]=p*A-(p/9|0)*145)])p=B[i];for(c?0:K+6?h +=K:t?B=C:0;i=K=q--;f+=Z[A+p])k=X[p=h+B[q]]=1;h+=A;if(f|B)for(Z=X,X=[l=228],B=[ [-7,-20,6,h=17,-9,3,3][t=++t%7]-4,0,1,t-6?-A:2];l--;)for(l%A?l-=l%A*!Z[l]:(P+= k++,c=l+=A);--c>A;)Z[c]=Z[c-A];for(S=P;i<240;S+=X[i]|(X[i]=Z[i]|=++i%A<2|i>228) ?'':'Q')i%A||(S+='\n');D.innerText=S;Z[5]||setTimeout(Y,i-P)}Y(h=K=t=P=0)"> B=:'0123456789+/',~a.{~,(a.i.'Aa')+/i.26 enc=:3 :'(B{~#._6[\,(8#2)#:a.i.y),(0 2 1 i.3|#y)#''=''' dec=:3 :'(a.{~#._8[\,(6#2)#:B i.y)}.~_2>.(i.&''=''-#)y' BASE64エンコード&デコード in J 前スレで7行ASMってネタ出てたけど、実際どこまで出来るものかな? org 100h mov ah,9 mov dx,msg int 21h mov ax,4c00h int 21h msg db "Hello, world!$" 7行でHello, world! アセンブリはCPUやコンパイラやOSによってかなり依存するからなぁ >>13 はx86/DOS/NASMか http://codepad.org/LN7ZIsBO ↑こういうコードがかけるらしい。qsortの第4引数が int strcmp(const char**a, const char**b) { while(**a == **b) { if(**a == '\0') return 0; (*a)++; (*b)++; } return **a - **b; } をコンパイルしたコードだとか。C言語で無名関数を渡す方法は他にもあるのかな? こういうのもゴルフのテクニックのひとつ? >>15 partIあたりに、 int main=0xc3; ってのがあったぜ。 >15にしろ上のコードにしろ、実行環境依存するから美しくはないが 面白い発想ではあるな diffとpatchコマンドをそれぞれWin32用に7行でってのは既出ネタかな。 もしまだだったら面白そうだからやってみようと思ってたり。 暇な人用仕様を念のため。 ・Cベースのパッチ作成&適用ツール ・差分ファイルのフォーマットは自由。7行diffで書き出した差分ファイルで7行patchが正常に動けばOK。 ・テキスト関連の機能はなし。あくまでも差分書き出しと差分適用に限定。 ・ディレクトリ差分、複数ファイルの差分をひとつの差分ファイルにまとめる機能も省略。 差分作成:diff.exe old.exe new.exe update.diff 差分適用:patch.exe old.exe update.diff このネタのミソは、いかに差分を小さくする工夫があるか(同一パターンの発見精度の高さ)だよなぁ ん? /*diff.c*/ #include<windows.h> main(int c,char**v){CopyFile(v[2],v[3],1);} /*patch.c*/ #include<windows.h> main(int c,char**v){CopyFile(v[2],v[1],0);} それは無関係なファイルも上書きしてしまうからパッチになってない。 http://codepad.org/xZjkIm7R asmも使えることを確認した。実行環境依存のものだけはここで通るように条件つけたら? なんで特定のOSや特定のCPUに限定する必要があるのか理解できん >>23 前スレで#include <windows.h> を連発されてウザかったから。 >>26 提案しただけで命令したわけではないし、>>26 にUNIX板の使用を強制されるいわれもない。 反論できなくなったら「氏ね」か。 頭のほどが知れるわ / \ /\ キリッ . / (ー) (ー)\ "反論できなくなったら「氏ね」か。" / ⌒(__人__)⌒ \ "頭のほどが知れるわ " | |r┬-| | \ `ー'´ / ノ \ /´ ヽ | l \ ヽ -一''''''"~~``'ー--、 -一'''''''ー-、. ヽ ____(⌒)(⌒)⌒) ) (⌒_(⌒)⌒)⌒)) ____ /_ノ ヽ、_\ ミ ミ ミ o゚((●)) ((●))゚o ミ ミ ミ だっておー!!! /⌒)⌒)⌒. ::::::⌒(__人__)⌒:::\ /⌒)⌒)⌒) | / / / |r┬-| | (⌒)/ / / // | :::::::::::(⌒) | | | / ゝ :::::::::::/ | ノ | | | \ / ) / ヽ / `ー'´ ヽ / / | | l||l 从人 l||l l||l 从人 l||l ヽ -一''''''"~~``'ー--、 -一'''''''ー-、 ヽ ____(⌒)(⌒)⌒) ) (⌒_(⌒)⌒)⌒)) 言っとくけど俺をあまりナメないほうがいいよ vipでコテハンやってるしこのスレ潰すくらいの影響力は持ってるから くだらないことで刺激して後悔しないようにね >>9 は正しくはこうだな <body id=D onkeydown=K=event.keyCode-38 onload="Z=X=[B=A=12];function Y(){for(C =[q=c=i=4];f=i--*K;c-=!Z[h+(K+6?p+K:C[i]=p*A-(p/9|0)*145)])p=B[i];for(c?0:K+6?h +=K:t?B=C:0;i=K=q--;f+=Z[A+p])k=X[p=h+B[q]]=1;h+=A;if(f|B)for(Z=X,X=[l=228],B=[ [-7,-20,6,h=17,-9,3,3][t=++t%7]-4,0,1,t-6?-A:2];l--;)for(l%A?l-=l%A*!Z[l]:(P+= k++,c=l+=A);--c>A;)Z[c]=Z[c-A];for(S=P;i<240;S+=X[i]|(X[i]=Z[i]|=++i%A<2|i>228) ?'■':'_')i%A||(S+='\n');D.innerText=S;Z[5]||setTimeout(Y,i-P)}Y(h=K=t=P=0)"> / \ /\ キリッ . / (ー) (ー)\ "vipでコテハンやってるし" / ⌒(__人__)⌒ \ | |r┬-| | \ `ー'´ / ノ \ /´ ヽ | l \ ヽ -一''''''"~~``'ー--、 -一'''''''ー-、. ヽ ____(⌒)(⌒)⌒) ) (⌒_(⌒)⌒)⌒)) ____ /_ノ ヽ、_\ ミ ミ ミ o゚((●)) ((●))゚o ミ ミ ミ だっておー!!! /⌒)⌒)⌒. ::::::⌒(__人__)⌒:::\ /⌒)⌒)⌒) | / / / |r┬-| | (⌒)/ / / // | :::::::::::(⌒) | | | / ゝ :::::::::::/ | ノ | | | \ / ) / ヽ / `ー'´ ヽ / / | | l||l 从人 l||l l||l 从人 l||l ヽ -一''''''"~~``'ー--、 -一'''''''ー-、 ヽ ____(⌒)(⌒)⌒) ) (⌒_(⌒)⌒)⌒)) 専ブラ用あぼ〜ん条件を正規表現で79*7バイトで書いたら、 そこそこ強力なフィルタが書けそうだな たしかにwindows.hが続いてたとき 環境依存うぜーって話はなかったのに、 それ以外の時は出るんだよな。 winユーザーが多いのは認めるが、それでも環境依存って ことには代わりはないとは思うがね >>39 俺は環境依存はそんなに気にならないかな。 特定の環境でしか動かないソースってのは「ハードルを下げたら ここまでジャンプして越えることが出来たよ」って言ってるようなもんだから、 依存しようとしてなかろうと作者の工夫次第と思ってる。 # 別にwindows.hを使うのが幼稚だと言ってるワケじゃないからあしからず ;-) 環境依存は少ないほうが好みだけど、ライン引きが難しいから 「標準出力がゲーム機で動かないじゃないか」というツッコミまで許すことになりそうで怖い。 FirefoxでBase64エンデコード <p id=B></p><textarea cols=64 rows=8 onblur=B.innerHTML=/[^+/-9A-Z]/i.test(v=value)?btoa(unescape(encodeURI(v))):decodeURIComponent(escape(atob(v)))> >>39 標準Cにない機能を使うための止むを得ない環境依存と、 字数を減らすためだけの"馴れ馴れしい"環境依存の違いだと思うよ(後者が悪いとは言わない)。 音を鳴らすという課題なら、windows.hなりXlib.hなり#includeしないわけには行かないだろう。 もちろん79x7の範囲でクロスプラットフォームにできれば言うことはないw 少なくとも前スレのwindows.hのやつはstdio.h使わずにprintfしてたと思うがね なぜそこに突っ込まないのか…‥ もしかしてwindows.hにprintfがあるのか? それはwindows.hうんぬんの話ではなくて、コンパイラ依存になるってのが論点になるよ・・・ なんでもありでいいじゃない (面白|凄)ければ評価されるだろうし、逆も然り。 納得できないコードだったら自分で直して投下すればいい コードで語ろうぜ printfだけなら、stdio.hつかわないでもプロトタイプ宣言してやればいい。 っていうかインクルードファイル内でprintf使ってれば当然宣言済みなんじゃないのか? 前スレで7行ライブラリの話が出てたのを皆忘れてしまったのだろうか? どのインクルードファイルがprintf使ってるんだ。 調べといてよ。 とりあえず、インクルード内でstdio.h含めインクルードしてるのはよくあるんじゃないか? よく移植の時に重複定義で悩ませられるような。 重複定義で悩ませられるってなんだよそれ。 標準ライブラリのヘッダがインクルードガードしてないわけがないじゃん。 >>52 なぜかすっぽ抜けてたりしてわけがわからない時に悩むんだっての。 とりあえずまあガードしてるってことはどちらでも問題ないってことじゃないのか? 言ってることが分からん。 多いのは問題ないが、足りないのは問題だろ。 多くたって問題だからガードするんだろ? 問題だったら省略されるわけないんだから、多少忘れたって足りない問題は起きない。 標準ライブラリでガードされてないなんて、どこの標準非準拠処理系だよ だから、ガードを前提にそこら中でインクルードしまくられてるんだから どっかでインクルードされてりゃ問題ないだろって話。 そもそも他でインクルードされてなきゃ、ガードなんて無駄なだけじゃないか。 #include<stdio.h>/*第一引数のファイル名を検索*/ #include<dirent.h>/*bcc限定かも……*/ char*f,r[4]="B:";void _(char*v){DIR*d;struct dirent*e;int c=0,i;char b[512];A: if(!(d=opendir(strcmp(v,"C:")?v:"\\")))return;if(c)for(i=0;i<c;i++)readdir(d);B :while(c++,e=readdir(d)){if(*e->d_name=='.')goto B;sprintf(b,"%s\\%s",v,e-> d_name);if(fclose(fopen(b,"r"))?closedir(d),_(b),1:strcmp(f,e->d_name)?0:puts(v ))goto A;}}main(int c,char**v){if(c==2){f=v[1];for(;r[0]++-75;)_(r);}return 0;} #include<stdio.h> *s,*d;main(int c,char**v){long W,H,*t,x,y=0,a;unsigned char h[54],f[3];s=fopen( v[1],"rb");d=fopen(v[2],"wb");fread(h,1,54,s);W=*(t=(long*)&h[18]);H=*(t+1);a=4 -W*3%4;fwrite(h,1,54,d);for(;y++<H;){for(x=0;x++<W;)fread(h,1,3,s),f[0]=f[1]=f[ 2]=77*h[2]+150*h[1]+29*h[0]>>8 ,fwrite(f,1,3,d);a-4?fread(h,1,a,s):0;}} bmp形式の画像(24bit限定)をグレイスケールに変換 一応4ビット境界にも対応させてある こんなに可読性の低いコード書いてて恥ずかしくないの? すげー誤読してた >>64 に「こんなに可読性の高いコード書いてて恥ずかしくないの?」 って言ってるんだと思って普通に読み流してた >>64 * main(c,v)char**v{って書くのが一番短いよ。 * yはグローバル変数にすれば初期化は不要だよ。 * H=*++t;とすればちょっと得するよ。 * (ANSI C) *s,*d;のように型無しで変数を定義するのは認められてないよ。 #include<stdio.h> int*s,*d,y;main(c,v)char**v;{long W,H,*t,x,a;unsigned char h[54],f[3];s=fopen(v [1],"rb");d=fopen(v[2],"wb");fread(h,1,54,s);W=*(t=(long*)&h[18]);H=*++t;a=4-W* 3%4;fwrite(h,1,54,d);for(;y++<H;){for(x=0;x++<W;)fread(h,1,3,s),f[0]=f[1]=f[2]= 77*h[2]+150*h[1]+29*h[0]>>8 ,fwrite(f,1,3,d);a-4?fread(h,1,a,s):0;}} こんな感じかな for(;y++<H;)は{ }がいらないと思う あとその次のforは第3項をうまく使えば , が一つ消せそうな freadが3つあるのが気になるけどCだから関数を文字でおく とかはできないんだよな こんなもんか #include<stdio.h> int*s,*d,y;main(c,v)char**v;{long W,H,*t,a;unsigned char h[54],f[3];fread(h,1, 54,s=fopen(v[1],"rb"));W=*(t=(long*)&h[18]);a=4-W*3%4;fwrite(h,1,54,d=fopen(v[2 ],"wb"));++t;for(;y++<*t;a-4&&fread(h,1,a,s))for(c=W;c--;fwrite(f,1,3,d))fread( h,1,3,s),f[0]=f[1]=f[2]=77*h[2]+150*h[1]+29*h[0]>>8 ;} #include<stdio.h> int*s,*d,y;main(c,v)char**v;{long W,H,*t,x,a;unsigned char h[54],f[3];s=fopen(v [1],"rb");d=fopen(v[2],"wb");fread(h,1,54,s);W=*(t=(long*)&h[18]);H=*++t;a=4-W* 3%4;fwrite(h,1,54,d);for(;y++<H;){for(x=0;x++<W;)fread(h,1,3,s),f[0]=f[1]=f[2]= 77*h[2]+150*h[1]+29*h[0]>>8 ,fwrite(f,1,3,d);a-4?fread(h,1,a,s):0;}} 誤爆した上に負けてる… #include<stdio.h> int*s,*d,y;main(c,v)char**v{long W,H,*t,x,a;unsigned char h[54],f[3];s=fopen(v[ 1],"rb");d=fopen(v[2],"wb");for(fread(h,1,54,s),W=*(t=(long*)&h[18]),H=*++t,a=4 -W*3%4,fwrite(h,1,54,d);y++<H;a-4?fread(h,1,a,s):0)for(x=0;x++<W;fwrite(f,1,3,d ))fread(h,1,3,s),f[0]=f[1]=f[2]=77*h[2]+150*h[1]+29*h[0]>>8 ;} あーそうかCでも&&は左から評価なのか 勉強になった >>70 size_t(*r)()=fread; とはできるが、もう少し使用回数が多くないと得にはならないな。 #include<stdio.h> int*s,*d,y;main(c,v)char**v;{long W,*t,x,a;unsigned char h[54],f[3];fread(h,1, 54,s=fopen(v[1],"rb"));W=*(t=(long*)&h[18]);a=4-W*3%4;fwrite(h,1,54,d=fopen(v[2 ],"wb"));++t;for(;y++<*t;a-4&&fread(h,1,a,s))for(x=W;x--;fwrite(f,1,3,d))fread( h,1,3,s),f[0]=f[1]=f[2]=77*h[2]+150*h[1]+29*h[0]>>8 ;} これならいいか >>77 >>78 じゃあyもlongにして、あとtも消せる? #include<stdio.h> int*s,*d;main(c,v)char**v;{long W,x,y,a;unsigned char h[54],f[3];for(fread(h,1, 54,s=fopen(v[1],"rb")),W=*(long*)&h[18],fwrite(h,1,54,d=fopen(v[2],"wb")),a=4-W *3%4;y++<*++&W;a-4&&fread(h,1,a,s))for(x=W;x--;fwrite(f,1,3,d))fread(h,1,3,s),f [0]=f[1]=f[2]=77*h[2]+150*h[1]+29*h[0]>>8 ;} >>79 お前ちゃんと走らせてるのか? 出力が同じになることぐらい確認しとけよ。 面倒だからみんなlongで #include<stdio.h> long*s,*d,y;main(c,v)char**v;{unsigned char h[54],f[3];long *t=&h[18],x,a;fread (h,1,54,s=fopen(v[1],"rb"));a=4-*t*3%4;fwrite(h,1,54,d=fopen(v[2],"wb"));for(;y ++<t[1];a-4&&fread(h,1,a,s))for(x=*t;x--;fwrite(f,1,3,d))fread(h,1,3,s),f[0]=f[ 1]=f[2]=77*h[2]+150*h[1]+29*h[0]>>8 ;} #include<stdio.h> unsigned char h[54],f[3];long*s,*d,y,*t=h+18,x,a;main(c,v)char**v;{fwrite(h,1, fread(h,1,54,s=fopen(v[1],"rb")),d=fopen(v[2],"wb"));for(a=4-*t*3%4;y++<t[1];a- 4&&fread(h,1,a,s))for(x=*t;x--;fwrite(f,1,3,d))fread(h,1,3,s),*f=f[1]=f[2]=77*h [2]+150*h[1]+29**h>>8 ;} おまえらそんな可読性の高いコード書いてて恥ずかしくないの? JavascriptでBase64エンデコード <script>S=String.fromCharCode;c='0123456789+/=';for(i=122;64<i;i-=i-97?1:7)c=S( i)+c;document.write(eval('l=v.length;for(i=p=0;i<l;){for(n=0,j='+(/[^+/-9=A-Z]/ i.test(v=unescape(encodeURI(prompt(r=''))))?'3;j--;l<i&&p--)n=n<<8|v.charCodeAt (i++);for(j=4;j--;)r+=c.charAt(n>>6 *j&63)}p?r.slice(0,p)+(p+1?"==":"="):r':'4;j --;t-64||p--)n=n<<6|(t=c.indexOf(v.charAt(i++)))&63;for(j=3;j--;)r+=S(n>>8 *j&25 5)}decodeURIComponent(escape(r.slice(0,p)||r))')))</script> ほぼ限界だと思うんだが、どうなんだろう pやcharAtが冗長な気もするけど・・・ お、79文字に収まった <script>S=String.fromCharCode;c='0123456789+/=';for(i=123;65<i;)c=S(i-=i-97?1:7 )+c;document.write(eval('l=v.length;for(i=p=0;i<l;){for(n=0,j='+(/[^+/-9=A-Z]/i .test(v=unescape(encodeURI(prompt(r=''))))?'3;j--;l<i&&p--)n=n<<8|v.charCodeAt\ (i++);for(j=4;j--;)r+=c.charAt(n>>6 *j&63)}p?r.slice(0,p)+(p+1?"==":"="):r':'4;\ j--;t-64||p--)n=n<<6|(t=c.indexOf(v.charAt(i++)))&63;for(j=3;j--;)r+=S(n>>8 *j&\ 255)}decodeURIComponent(escape(r.slice(0,p)||r))')))</script> <body id=D onKeyDown=K=event.keyCode-38 onload='Z=X=[B=A=12];(Y=function(){for( C=[q=c=i=4];f=i--*K;c-=!Z[h+(K+6?p+K:C[i]=p*A-(p/9|0)*145)])p=B[i];for(c?0:K+6? h+=K:t?B=C:0;i=K=q--;f+=Z[A+p])k=X[p=h+B[q]]=1;h+=A;if(f|B)for(Z=X,X=[l=228],B= [[-7,-20,6,h=17,-9,3,3][t=++t%7]-4,0,1,t-6?-A:2];l--;)for(l%A?l-=l%A*!Z[l]:(P+= k++,c=l+=A);--c>A;)Z[c]=Z[c-A];for(S="";i<240;S+=X[i]|(X[i]=Z[i]|=++i%A<2|i>228 )?i%A?"■":"■<br>":"_");D.innerHTML=S+P;Z[5]||setTimeout(Y,i-P)})(h=K=t=P=0)' innerTextとかIEだけじゃん 環境依(Ry どちらもIEとFirefoxで動いたが、 OperaとSafariではどちらも動かなかった。 Mozilla Firefox 2.0.0.6, Mozilla Firefox-3.0 3.0a8, どっちでも動かないんだが・・・ Firefox では動かないよ まあそんなことはどうでもいいけど、<br> を \n にするだけのために innerText を使うのはいただけない W3C DOMで採択されていないinnerTextを使うなんて…なぜ標準厨が湧かないんだ!! >>101 マジレスするとinnerHTMLもW3C DOM非準拠。 HTML5待ちだよ。 C++で正規表現エンジン?らしきものをやってみました 10行ですが、これ以上は厳しい・・・ #include <iostream> struct a{a*b;char*c,*d;int e,f,g;};struct{int h(a*i,char*j,char*&k){a l={i,k,0, 99,99,1};return(*k-')'&&*k-'|'?(m(0,0,k),*k=='*'||*k=='+'&&++l.f||(l.f=1,*k== '?')?(l.g=*++k-'?')||++k:(l.e=0),l.d=k,i=&l,0):!(j&&(k=i->c,i->b)))||n(i,j,k);} int n(a*i,char*j,char*&k){a l=*i,o=l;return j?l.e<l.f--?m(&l,j,o.c):l.f<0?h(l.b ,j,o.d):l.g&&m(&l,j,o.c)||h(l.b,j,o.d)||!l.g&&m(&l,j,o.c):h(0,0,k);}int m(a*i, char*j,char*&k){int p=*k++;if(p=='('||(p=j&&(p=='$'?!*j:((p-'.'?p==*j:*j)&&++j) )&&n(i,j,k),0))while(!((p=h(i,j,k))&&j||*k++-'|'));return p;}}q;int main(int r, char**s){return 2<r&&q.h(0,s[2],s[1]=(char*)(std::string("(.*?")+s[1]+")"). c_str())&&std::cerr<<"ktkr.\n";} コマンドラインの引数に”正規表現”と”マッチ対象の文字列”をこの順番で与えて実行すると マッチした場合だけ”ktkr”と出力します。使えるメタ文字: . $ ? ?? * *? + +? ( | ) ^はグローバル変数を使わないと実装出来なそうだったので却下しました・・・ あとCのソースを七行×79文字の形式に変換してくれるスクリプトを書きました もし役に立てるのでしたら幸いです http://xxx.s97.xrea.com/x/7amigos/7amigos.cgi >>106 #include <iostream> typedef char*x;struct a{a*b;x c,d;int e,f,g;};struct{int h(a*i,x j,x&k){a l={i, k,0,99,99,1};return(*k-')'&&*k-'|'?(m(0,0,k),*k=='*'||*k=='+'&&++l.f||(l.f=1,*k =='?')?(l.g=*++k-'?')||++k:(l.e=0),l.d=k,i=&l,0):!(j&&(k=i->c,i->b)))||n(i,j,k) ;}int n(a*i,x j,x&k){a l=*i,o=l;return j?l.e<l.f--?m(&l,j,o.c):l.f<0?h(l.b,j,o. d):l.g&&m(&l,j,o.c)||h(l.b,j,o.d)||!l.g&&m(&l,j,o.c):h(0,0,k);}int m(a*i,x j,x& k){int p=*k++;if(p=='('||(p=j&&(p-'$'?(p-'.'?p==*j:*j)&&++j:!*j)&&n(i,j,k),0))\ while(!((p=h(i,j,k))&&j||*k++-'|'));return p;}}q;int main(int r,x*s){return 2<r &&q.h(0,s[2],s[1]=(x)(std::string("(.*?")+s[1]+")").c_str())&&std::cerr<<"ktkr\ .\n";} 9行目にバグがありました、、、 #include <iostream> typedef char*x;struct a{a*b;x c,d;int e,f,g;};struct{int h(a*i,x j,x&k){a l={i, k,0,99,99,1};return(*k-')'&&*k-'|'?(m(0,0,k),*k=='*'||*k=='+'&&++l.f||(l.f=1,*k =='?')?(l.g=*++k-'?')||++k:(l.e=0),l.d=k,i=&l,0):!(j&&(k=i->c,i->b)))||n(i,j,k) ;}int n(a*i,x j,x&k){a l=*i,o=l;return j?l.e<l.f--?m(&l,j,o.c):l.f<0?h(l.b,j,o. d):l.g&&m(&l,j,o.c)||h(l.b,j,o.d)||!l.g&&m(&l,j,o.c):h(0,0,k);}int m(a*i,x j,x& k){int p=*k++;if(p=='('||(p=j&&(p-'$'?(p-'.'?p==*j:*j)&&++j:!*j)&&n(i,j,k),0))\ while(!((p=h(i,j,k))&&j||*k++-'|'));return p;}}q;int main(int r,x*s){return 2<r &&q.h(0,s[2],s[1]=(x)(std::string("(.*?(")+s[1]+"))").c_str())&&std::cerr<<"ktkr\ .\n";} >>108 なるほど。char*が多いのは気になってたのですが、typedefとは。不覚でした >>109 根本的ではないっぽいですが、とりあえず直してみました Part5で9行正規表現はあったね。メタ文字は少なかったけど。 バグとSTL取ったら伸びてしまいました・・・。 その代わりVC++でもコンパイルできる様になりました。これ以上はもう無理そうなので最後にします。 #include <stdio.h> typedef char*a;struct b{b*c;a d,e;int f,g,h;}i={0,0,0,0,1,1};struct{int j(a&k, a l=0,b*m=0){b n={m,k,0,99,99,1};return(*k&&*k-')'&&*k-'|'?(o(k,0,0),*k=='*'||* k=='+'&&++n.g||(n.g=1,*k=='?')?(n.h=*++k-'?')||++k:(n.f=0),n.e=k,m=&n,0):!(l&&( k=m->d,m->c)))||p(k,l,m);}int p(a&k,a l,b*m){b n=*m,q=n;return l?n.f<n.g--?o(q. d,l,&n):n.g<0?j(q.e,l,n.c):n.h&&o(q.d,l,&n)||j(q.e,l,n.c)||!n.h&&o(q.d,l,&n):j( k);}int o(a&k,a l,b*m){int r=*k++;if(r=='('||(r=l&&(r=='$'?!*l:((r-'.'?r==*l:*l )&&++l))&&p(k,l,m),0))while(!((r=j(k,l,m))&&l||(j(k),*k++-'|')));return r;}}s; int main(int t,a*u){for(char v[99]="(",*w=v;*w?(*++w=*u[1]++,1):s.o(*u=v,u[2]++ ,&i)?(puts("ktkr."),0):*u[2];);return 0;} >>111 あれがなければこの挑戦もなかったですね、、、 そこまで縮められるなんて夢にも思わなかったと思うので(日本語でおk) UTF-16BEのテキストファイルをUTF-8に変換 Winの人は(ry #include <stdio.h> FILE*i,*o;int a,b;int F(int c){return putc(128|c%64,o);}int main(int c,char**v) {if(c>2&&(i=fopen(v[1],"r"))&&(o=fopen(v[2],"w")))for(;a=getc(i),a-EOF;((a=a<<8 |getc(i))>>11 !=27)?a<128?putc(a,o):a<2048?(putc(192|a>>6 ,o),F(a)):(putc(224|a>> 12,o),F(a>>6 ),F(a)):(b=getc(i)%4,c=getc(i),a=64+a%1024,putc(240|a>>8 ,o),F(a/4), F(a<<4|b*4|c>>6 ),F(c)));return i&&fclose(i),o&&fclose(o),o?0:!!fprintf(stderr,c <3?"usage: %s input output\n":"fairu wo hirakenaijanaika! itteyoshi!!\n",*v);} エンディアンを自動判定するのは難しそうだな… それから、前スレ969のプログラム(UTF-8→UTF-16)を4文字ほど短縮した #include <stdio.h> FILE*i,*o;int l,p,t[]={0,192,224,240},r=65536;void P(int p){putc(p>>8 ,o);putc(p %256,o);}int main(int c,char**v){if(c>2&&(i=fopen(v[1],"r"))&&(o=fopen(v[2],"w" )))for(fputs("\xfe\xff",o);(c=getc(i))-EOF;(p-=r)>=0?P(p/1024+55296),P(56320+p% 1024):P(p+r))for(p=c-t[l=(c&224)-192?(c&240)-224?(c&248)-240?0:3:2:1];l--;p=p<< 6|getc(i)%128);return i&&fclose(i),o&&fclose(o),o?0:!!fprintf(stderr,c<3?"usag\ e: %s input output\n":"fairu wo hirakenurupoaijanaika! itteyoshi!!\n",*v);} あと、俺以外の人が変数の型を省いて短縮するのはいいけど、 stderrを省いて実行時に落ちるようになるのはやめてくれ むしろ、落ちるくらいなら無駄なメッセージ出力を無くしてしまった方がいい 正直、セキュリティやデバッグ目的で冗長なコードを実装するのは 七行プログラミングとしてどうかと思うがな。 短縮よりも機能や安定性を優先しようと思えば、いくらでも出来るわけで。 七行未満になったなら、糞メッセージを表示するより不正なEOF判定でも入れておけ。 「〜はやめたほうがいい」 「〜はどうかと思う」 なんかは、自分のコードに反映させればいい。 規律と可能性は背反するものだし、正解はないだろう。 要は称えあってれば満足なんですね mixiとかオススメ 卑屈なのが文面から滲み出てくるなあ 一種の言語調教なんだから楽しくやろうぜ? 他人にオナニー見せてるわけだからAV女優並にある程度注文つけられても仕方ないだろ。 え?あいつらタダであんなことやってんの? それtも>>121 が金払ってくれるって話か? カッコの付け方やスペースの入れ方の違いで一生罵り合える人種に 注文付けるななんて中東を平和にするより無茶 #include <windows.h> void _(long*A,HWND B,int C,int D,int E){if(GetWindowRect(B,(RECT*)A),A[2]-=A[0 ]+=26,A[3]-=A[1]+=99,SetForegroundWindow(B)){}while(E>2?Sleep(E),keybd_event(( char)(C>2?E-C:C?88+C:160),0,3-2*D,0),!~(C-=D=!D)?E=0,1:1:(E-->0?SendMessage(B, 513+!E,E,((47+D*16)<<16)+20+C*16),1:++C-A[2]/16?SetCursorPos(A[0]+C*16,A[1]+D* 16),GetPixel(GetDC(0),0,0)==0xFFFFFF?E=2:1:++D-A[3]/16?C=-1:0)){}}void main(){ if(_((long*)malloc(16),FindWindow("マインスイーパ",0),5,1,93),exit(0),0){}} NOP NOP NOP NOP NOP NOP NOP RDTSC MOV ECX,EAX STI HLT RDTSC SUB EAX,ECX RET >>130 無意味な事を無駄なく実行するそのコードの有様に感動したw STIとHLT間のクロック数の計測? 何がすごいのかわからない(たぶん俺の知識がなくて) >>132 STIの後にHLTすると、割り込み許可状態で待機する。まぁOS作ってないと分からんわな。 つまりあれだ、アクセラレータか何かの設定をしたあとSleep(-1);して、 叩き起こされたところでその間に何クロック分の時間が経ったかを計算してるようなもん (しかし2GHzのマシンでさえ2秒強でオーバーフローする!) >>133 解説してくれたのにわるいが、それくらいはわかるんだ。 結局何がすごいの? >>135 あとは感性の問題だからあまり気にするな すごいと思う人がいれば、何も思わない人がいる。それだけだ オーバーヘッドが少ないとか、そういう事じゃないの? >>131 の話からすると。 >>134 インラインアセンブラだとHLTもSTIも無いだろうな。RDTSCもあるかどうか あなたがどんな特殊な/一般的な環境を持っているかは知らないけど。 >>135 明らかに無意味な事を無駄なく7行で表現するにはセンスが必要だと思うが 凄いとは思わんな >>139 > インラインアセンブラだとHLTもSTIも無いだろうな。RDTSCもあるかどうか それはない MSCのインラインアセンブラはDBとかの疑似命令に対応してなかったけどな アセンブラとインラインアセンブラの区別がつかない人が居るスレはここですか? インラインアセンブラにそれがなかったらgasでコンパイルできないのか、そうか gasでコンパイルできないのか。 っていうかインラインの命令って下請けのアセンブラに丸投げなんじゃないの? コンパイラによる。 GCCは丸投げするからなんでも通る。MSCは自前。 逆ポーランド記法な有理数電卓 入力は99文字まで、スタックの大きさは10まで もういじりたくないorz #include <stdio.h> typedef int I;abs(I);G(a,b){for(;b&&(a%=b)&&(b%=a););return abs(a+b);}I s[20],* p=s+20,*q=s+18,g;char f[100],*i=f;long strtol(I*,I**,I);main(){for(fgets(f,100, stdin);*i;++i)47<*i&&*i<58?*--p=1,*--p=strtol(i,&i,0),--i:*i-32&&*i-10?*i-47?*i -42?*i-45?*i-43?0:(p[2]=p[2]*p[1]+p[3]**p,p[3]*=p[1]):(p[2]=p[2]*p[1]-p[3]**p,p [3]*=p[1]):(p[2]*=*p,p[3]*=p[1]):(p[2]*=p[1],p[3]*=*p),(p+=2,g=G(*p,p[1]),p[1]< 0?g=-g:0,*p/=g,p[1]/=g):0;for(;p-q-2;q-=2)printf("%d/%d\t",*q,q[1]);puts("");} #include<stdio.h> #include<stdlib.h> G(a,b){for(;b?a%=b:0;)b%=a;return a+b;}int*v,*u,*r,s[20],*p=s+20,*q=s+18,g,f[25] ;char*i=f;main(c){for(fgets(f,100,stdin);c=*i;++i)47<c&&c<58?*--p=1,*--p=strtol( i,&i,0),--i:(v=p+1,r=p+2,u=p+3,c%=6)-2&&c-4?c-5?c?c-3?c-1||(*r=*r**v+*u**p,*u*=* v):(*r=*r**v-*u**p,*u*=*v):(p[2]*=*p,*u*=*v):(*r*=*v,*u*=*p),(p+=2,g=G(*p,*u),g* *u<0?g=-g:0,*p/=g,*u/=g):0;for(;p-q-2;q-=2)printf("%d/%d\t",*q,q[1]);puts("");} ↑適当に縮めてみました。gccで通るコードでよければ3・4行くらいで書けそうですね。 7行では無い、2行コードですが7行スレへ行けと言われたので・・・ C/C++の宿題スレに書いたものをそのまま転載します。 [1] 授業単元:C/C++(.c/.cpp最小ファイルサイズを目指せ!!) [2] 問題文(含コード): int型のsin,cosテーブルを"sincos.cpp"というファイル名で出力 警告の有無は問わず。 コード:main.c<とりあえずココまで短くなりました> :以下コード f;i;main(){for(f=fopen("sincos.cpp","w");i<450;i++)fprintf(f,"%c%6d,%s",i%10? 32:9,(int)(sin(i*3.141592653589793/180)*65536),i%10<9?"": "\n");fclose(f);} これより短くせよ。但し、出力結果は同じになるように。 [3] 環境 [3.1] Windows [3.2] VisualStudio2005 [3.3] C/C++どちらでも可 ちなみにReleaseで.exeに出力しています。 ちょうてけとー f;i;main(x){for(f=fopen("sincos.cpp","w");i<450;i++)fprintf(f,"%c%6d,%s",i%10 ?32:9,x=sin(i*atan(1)/45)*65536,"\n"+(i%10<9));fclose(f);} あと、 もともとプロトタイプ宣言とか省いて 超コンパイラ依存なコードになってるんだから、 もうぶっちゃけfcloseも省いてよくね? >>150 宿題の相手までしてやる必要はないよ。 調子に乗った教えて君が増えたら困る。 流れブッタ切りですまんが、、、 #include<math.h> して M_PI 使ったほうが短いし、解り易いと思うんだ。 #include<math.h>+M_PI 3.141592653589793 atan(1)*4 どうみてもincludeは長いです. 本当なら #include<math.h>+atan(1)*4 なんじゃないの M_PIはプリプロセッサだから無理だけど atanはリンカで無理やり打ち込める atan(1)*4は気づかなかったw ちなみにM_PIは #define _USE_MATH_DEFINES #include<math.h> M_PI ってなるから長い・・・ そんなオプションが要るのか…w Cは言語仕様と関係ない部分で挙動が変わりすぎて困るね。 C++なら普通におこられるだけだけど。 オプションで、とか言い出したら /Dm=main() つけて、とかそういうことになっちゃう 有名どころでは #include "/dev/tty" とか >>162 目からウロコを射出した 昔の人は天才的なバカだな __FILE__ をうまく使ってファイル名でプログラム書くって技もあったような。 みつけた。これだ。 http://www.ioccc.org/1993/lmfjyh.c > char*_=__FILE__; で、これのファイル名を(ダブルクォートも含めて)次のようにする。 ";main(){puts("Hello World!");}char*C=".c そうすると、 > char*_="";main(){puts("Hello World!");}char*C=".c"; とかになるわけだ。 #include <stdio.h> #include <stdlib.h> #include <stdint.h> #define N 100 int main(int c,char**v){uintmax_t m=1,n=1,o=1,i,p;for(c=c>1?atoi(v[1]):10;c;--c ,o=n+=m+=n,putchar('\n'))for(putchar('0'+(p=o/m)),putchar('.'),i=1;i<N;++i)put\ char('0'+(p=(o=(o-p*m)*10)/m));return 0;} メインとは 「人生オワタ\(^o^)/」で 重大エラー #include <stdio.h> #include <stdlib.h> #include <stdint.h> #define N 100 uintmax_t m=1,n=1,o=1,i;int main(int c,char**v){for(c=c>1?atoi(v[1]):10;c--;o=n +=m+=n)for(printf("\n%d.",o/m),i=1;i++<N;)o=(o-o/m*m)*10,printf("%d",o/m);retu\ rn 0;} あんまり変えずに縮めてみた。 n+=m+=n; この文の繰り返しでフィボナッチ数が生成されるのに感動をおぼえた。 10行分超過 <body id=d onKeydown=k(event.keyCode-38)><div id=I height=100 width=280 valign= bottom><div id=r>○<div id=t>大</div></div></div><p id=g><script>a=-4;b=10;X=3* (Y=90);D=document;s=setInterval;S=parseInt;H="innerHTML";A="style";p="position" ;O="absolute";g[A][p]=I[A][p]=O;r[A][p]="relative";l(o=B=r.v=J=n=0);Q(B,r);P(20 ,r);q=15;E=[0,0,0,0,0,0,0,0];L=E.length;s(G,150);M=s(h,150);w=-20;function Q(z, e){e.y=Y-S(e[A].paddingTop=Y-z+"px");}function l(z){g[H]=z;}function G(){r.v;r. K=r.y;r.v+=a;if(B<(F=r.v+r.y)&&F<Y){Q(F,r);}else{r.v=0;Q(B,r);if(!o){t[H]="大"; }}}function h(){if(Math.random()<0.11+n/50000){for(j=0;j<L;j++){if(!E[j]){E[j]= 1;break;}}if(j<L){T=D.createElement("div");T.id="e"+j;T[H]=(j==4)?"砲":(j%3==1) ?"棘":j%2==0?"亀":"栗";d.appendChild(T);P(X-b,T);T[A][p]=O;Q(w+((j==4)?40:0),T) ;}}for(i=0;i<L;i++){if(E[i]>0){c=D.getElementById("e"+i);R((-b)*((i==5)?2:1),c) ;if(c.x<20){E[i]=0;d.removeChild(c);}if(r.x>c.x-q*0.1&&r.x<c.x+q*1.3&&r.y>(C=c. y-w)-q*1.5&&r.y<C+q*1.5){if(i%3!=1&&r.K>0){E[i]=0;k(0);J=1;d.removeChild(c);c[H ]="";l(n+=100);}else{r.v+=b*3;t[H]="出";clearInterval(M);k=function(){};o=1;}}} }}function P(z,e){e.x=S(e[A].paddingLeft=z+"px");}function R(z,e){if(0<(f=z+e.x )&&f<X){P(f,e);}else{e.V=0;}}function k(z){R(b*z,r);if(!z&&(r.y==B||J)){r.v+=b* 1.7;t[H]="方";J=0;}}</script> 今までの短縮技がまったく生かされてないような 過去の作品を見てみよう! >>176 どうやってもキラーに太刀打ちできなかったww 変な動きする #!/usr/bin/perl # THIS INTERPRETER RUNS UNSTABLY, CANNOT EXECUTE NEST SYNTAXES. if($#ARGV){print"7Lines BF interpreter\nUsage: ./7bfi File [Files..]";exit(-1);} @m=(0)x256;@c=split(//,`cat "@ARGV"`);for($i=$p=0;$i<=$#c;$i++){if($c[$i]eq'['&& !$m[$p]){for($j=$i;$j<=$#c;$j++){$i=$c[$j]eq']'?$j+1:$i;}}if($c[$i]eq']'&&$m[$p] ){for($j=$i-1;$j>=0;$j--){$i=$c[$j]eq'['?$j:$i;}}if($c[$i]eq'>'){$p++;}if($c[$i] eq'<'){$p--;}if($c[$i]eq'+'){($m[$p]%=0xFF)++;}if($c[$i]eq'-'){($m[$p]%=255)--;} if($c[$i]eq'.'){print chr($m[$p]);}if($c[$i]eq','){$m[$p]=unpack('c2',getc);}}; >>179 これがサイズ可変 <body id=B><script>w=5;x=w+1;function f(n,_,g){f[n]^=1;f[n+1]^=1;f[n-1]^=1;f[n+ x]^=1;f[n-x]^=1;for(j=w*x;j;)_+=j--%x?'<a href=javascript:f('+j+',++c)>'+(f[j]? g='●':'○'):'<br>';B.innerHTML=g?_:'Great!!'}for(i=w*x;i;)i--%x&&Math.random(c =0)<.5&&f(i)</script> これが 5 x 5 固定 <body id=B><script>a=f=function(n,_,g){a^=(1<<n)*67.515625;for(j=30;j;)_+=j--%6 ?'<a href=javascript:f('+j+',++c)>'+(a>>j&1?g='●':'○'):'<br>';B.innerHTML=g?_ :'Great!!'};for(i=30;i;)i--%6&&Math.random(c=0)<.5&&f(i)</script> >>179 俺も作ってみた <title>LO</title><body onload="S='',A=[U='<button id=',V=' onclick="U(',W= ')">・</button>'];B=[b=0];Q=['#cab','#f08',x='#867'];for(i=0;++i<42;A[i]=B [i]=0)S+=i>6&i<36?i%6?U+i+V+i+W:'<br>':'';document.getElementById(0).innerHTML= S;U=function(i){B[i]^=b,V(i-6),V(i-1),V(i),V(i+1),V(i+6);for(m=j=0;j++<36;m|=A[ j]);m?0:alert('You got it!')};for(i=7,V=function(i){if(i%6&&i>6&i<36)I=document .getElementById(i).style,I.backgroundColor=y=Q[A[i]^=1],I.color=B[i]?x:y};i<36; i++)i%6?Math.random()<.5?U(i):V(i)+V(i):0;b=1"><pre style="line-height:1" id=0> >>182 unterminated stringと出たのだが(FF3) >>184 " が " になってるんだと思う あと、無理矢理改行されてるから1行にしないとだめ なんだかなぁ using System.Drawing;using System.Drawing.Drawing2D;using f=System.Single; class P{static void Main(string[]a){using(Bitmap i=new Bitmap(a[0])){M(i,1 ,f.Parse(a[1]),f.Parse(a[2]),f.Parse(a[3]));i.Save(a[0]+"-d.bmp");}}static Bitmap M(Bitmap i,f s,f z,f w,f h){if(s>.0001){using(Bitmap t=M((Bitmap)i. Clone(),s*z,z,w,h))using(Graphics g=Graphics.FromImage(i))using(Matrix m= new Matrix()){m.Translate(w,h);m.Scale(s,s);m.Translate(-w,-h);g.Transform =m;g.DrawImage(t,new Point());}}return i;}} usage filename z(<1.0), w, h 悪魔は出てきません。 どういうプログラムか書いてくれると、まとめる時に助かります。 >>187 合わせ鏡みたいな何かです。 文字数に余裕があったので回転も加えてみた using System.Drawing;using System.Drawing.Drawing2D;using f=System.Single; class P{static void Main(string[]a){using(Bitmap i=new Bitmap(a[0])){M(i,1,f. Parse(a[1]),f.Parse(a[2]),f.Parse(a[3]),f.Parse(a[4]));i.Save(a[0]+"-d.bmp");} }static Bitmap M(Bitmap i,f s,f z,f r,f w,f h){if(s>.0001){using(Bitmap t=M(( Bitmap)i.Clone(),s*z,z,r,w,h))using(Graphics g=Graphics.FromImage(i))using( Matrix m=new Matrix()){m.Translate(w,h);m.Scale(s,s);m.Rotate(r);m.Translate( -w,-h);g.Transform=m;g.DrawImage(t,new Point());}}return i;}} usage: filename z(<1.0) r w h なんか逆に汚くなったような… orz #include <stdio.h> main(){ int i=0; i=(i++?i-1:i+1); printf(%d, i); } 悪魔が出るかも? printfの所はともかく、?は副作用完了点なので悪魔は出ない おら、ネタもってきたぞ 空から女の子が降ってくる - ぼくはまちちゃん!(Hatena) http://d.hatena.ne.jp/Hamachiya2/20090109/fallingirl > 文字数が多くて IE6 だと動かないようになっちゃったのが残念です…! > だれかもっと縮めて! > (500文字くらいに!) javascript:(function(){scroll(0,0);H='http://hamachiya.com/' ;D=document;F=Math.floor; R=Math.random;Q=new Image;Q.src=H+'g1.gif';L=function(){var X=F(R()*vw);var Y=0; var r=F(R()*9)+3;var V=Z(X,Y);D.body.appendChild(V);var f=function(){if(Y+r<vh){V.style.top =(Y+=r)+'px'}else{V.style.top=vh+'px';V.src=H+'g2.gif';setTimeout(function(){V.src=H+'g3.gif'},550); clearInterval(t);}};var t=setInterval(f,40)};Z=function(x){var e=D.createElement('img');e.src=Q.src; var s=e.style;s.position='absolute';s.left=x+'px';s.top=0;return e;};var vw,vh;Q.onload=function(){ vw=(self.innerWidth||D.documentElement.clientWidth||D.body.clientWidth)-Q.width;vh=( self.innerHeight||D.documentElement.clientHeight||D.body.clientHeight)-Q.height;setInterval( L,800);Q.onload={}}})() ブックマークレットなんで1行にしてアドレスバーに突っ込むタイプの奴な 512バイトプログラミングか とりあえずお行儀よいコード javascript:(function(H,G,D,R,c,a,T){scroll(T=D.title,0);setInterval(function(o, i){if(R()<.05)a.push(D.body.appendChild(o=new Image)),o.src=H+1+G,i=o.style,i. position='absolute',i.right=R(o.s=R(o.b=99)*3+1)*90+'%';for(i=0;o=a[i++];)with( o)b-=s,b<0&&setTimeout(function(){src=H+3+G;onclick=function(){D.title=[T,++c]; D.body.removeChild(this)}},550,src=H+2+G,a.splice(--i,b=1)),style.bottom=b+'%'} ,40)})('http://hamachiya.com/g','.gif',document,Math.random,0, []) 行儀無視 420 bytes javascript:scroll(H='//hamachiya.com/g',G='.gif',D=document,R=Math.random,a=[], D.title=0,setInterval(function(){if(R(B=D.body)<.05)a.push(B.appendChild(o= new Image)),o.src=H+1+G,i=o.style,i.position='absolute',i.left=R(o.s=R(o.b=99)* 3+1)*90+'%';for(i=0;o=a[i++];)with(o)b-=s,b<0&&setTimeout(function(){src=H+3+G; onclick=function(){D.title++;B.removeChild(this)}},550,src=H+2+G,a.splice(--i,b =1)),style.bottom=b+'%'},40)) まともなカウンター 499 bytes javascript:scroll(H='//hamachiya.com/g',D=document,B=D.body,R=Math.random,a=[], S=B.appendChild(C=D.createElement('b')).style,S[P='position']=A='absolute',S. top=0,S.fontSize='9em',setInterval(function(){if(R(G='.gif')<.05)a.push(B. appendChild(o=new Image)),o.src=H+1+G,S=o.style,S[P]=A,S.left=R(o.s=R(o.b=99)*3 +1)*90+'%';for(i=0;o=a[i++];)with(o)b-=s,b<0&&setTimeout(function(){src=H+3+G; onclick=function(){C.innerHTML++;B.removeChild(this)}},550,src=H+2+G,a.splice( --i,b=1)),style.bottom=b+'%'},40)) C/C++で、 int*a; みたいなスペースが入らない記述があるけど、 これって環境依存?依存しない? 遠い昔こういう書き方をしたらエラーになった気がするけど。 聞く場所間違っているよ。 【初心者歓迎】C/C++室 Ver.64【環境依存OK】 http://pc12.2ch.net/test/read.cgi/tech/1234193151/ こちらへどうぞ。 最長トークンで分けられるので、int, *, a, ;に分けられる。 ゆえに、スペース(大抵スペースといえば、半角のスペースだろうけど)が、入らなくても問題はない。 エラーになった原因はおそらく C89までは、ブロックの先頭でしか変数を宣言できなかったから。 すでに、aという識別子が宣言または定義されていたから。 int*a;より前でなんらかの構文エラーをそのまま引きずって、int*a;が構文エラーと見なされたから。 などなどか。 http://www.youtube.com/watch?v=y9uYEM2osYQ これを作ってみた。テキスト化はやる気が足りなかった。 ESCで終了 :?7%00%DDPYA44P,5@P_4?P],}P^5'2PZ-%qPR545PZ5E]1F}5uAP5,ZP]5w9'PU/5zjPRQu :Nide/com2txt/X-uw'P'5+~PZ5g(P]-vjPRU-*`P5H9P-E)PZ-KaP5V2P]5hTP5BSPRUVES :?[X5;:PZ5WN'PR',~P/5`QP5Z P-UrPEUQ]EENNNNNN:~ :~J_%!f?&3t39w_!!TPgMvBW!K"^_wwM/wCK"#`wwP%d1W!j<PdMOoC<>L@l#l-&@>@Hl#l&0lbjuN :l,?Mrt2L#Ytg7t&h8=PLbtq@l<Pbteq@"c1.#PfRPi^%&3kf&:Mv7!/I"aw6w9Mw_d!L"O9pR33bf :)P\j3bfr)5hIH#nB:'Isf,%`V!9hMn#"3i_!&Lf&pk"!!!!"777!"!!!!"777!"!!!!"!!!!* base64のデコードの方だけだけど、jsで2行でできたw <input onkeyup='event.keyCode-13||window.open("data:text/html;base64,"+ this.value,"","width=400,height=300")' > タブをきれいにスペースに置き換えるスクリプトがほしいです。 http://pc11.2ch.net/test/read.cgi/hard/1235225061/940 <body id=B bgcolor=gray onload="a='fff,ff0,0ff,0f0,f0f,f00,00f,000'.split(','); b='background:#';c=';color:#';d='<tr height=';e='<td align=center style='+b;s=[ '<table width=640 cellspacing=0>','文字が滲んで見えないか','カラーバーの中の四\ 角が見えるか'+d+'200>','階調が見えるか'+d+'80>',d+'80>'];for(i in a){s[1]+=d+ '30>';for(j in a)s[1]+=e+a[j]+c+a[i]+'>液晶TV';s[2]+=e+a[i].replace(/f/g,'eb'). replace(/0/g,10)+'><div style=width:40;height:40;'+b+a[i]+'>';s[3]+=e+(x=(256+4 *i).toString(16).slice(1))+x+x+c+'fff>'+4*i;s[4]+=e+(x=(y=255-4*i).toString(16) )+x+x+'>'+y}B.innerHTML=s.join('<tr><th colspan=8>')"> <body id=B bgcolor=gray onload="a='fff,ff0,0ff,0f0,f0f,f00,00f,000'.split(','); b='background:#';c=';color:#';d='<tr height=';e='<td align=center style='+b;s=[ '<table width=640 cellspacing=0>','文字が滲んで見えないか','カラーバーの中の四\ 角が見えるか'+d+'200>','階調が見えるか'+(f=d+'80>'),f];for(i in a){g=a[i];h=4*i ;s[1]+=d+'30>';for(j in a)s[1]+=e+a[j]+c+g+'>液晶TV';s[2]+=e+g.replace(/f/g,'e\ b').replace(/0/g,10)+'><div style=width:40;height:40;'+b+g+'>';s[3]+=e+(x=(256+ h).toString(16).slice(1))+x+x+c+'fff>'+h;s[4]+=e+(x=(y=255-h).toString(16))+x+x +'>'+y}B.innerHTML=s.join('<tr><th colspan=8>')"> d+'80>'を1つに g=a[i];の追加 h=4*i;入れたら文字数変わらないけどコードの改行位置が変わった <body id=B bgcolor=gray onload="a='fff,ff0,0ff,0f0,f0f,f00,00f,000'.split(','); b='background:#';c=';color:#';d='<tr height=';e='<td align=center style='+b;s=[ '<table width=640 cellspacing=0>','文字が滲んで見えないか','カラーバーの中の四\ 角が見えるか'+d+'200>','階調が見えるか'+(f=d+'80>'),f];for(i in a){g=a[i];h=4*i ;s[3]+=e+(x=(256+h).toString(16).slice(1))+x+x+c+'fff>'+h;s[4]+=e+(x=(y=255-h). toString(16))+x+x+'>'+y;s[1]+=d+'30>';for(j in a)s[1]+=e+a[j]+c+g+'>液晶TV';s[2 ]+=e+g.replace(/f/g,'eb').replace(/0/g,10)+'><div style=width:40;height:40;'+b+ g+'>'}B.innerHTML=s.join('<tr><th colspan=8>')"> s[*]の順番入れ替えて5行目末の\を消した htmlタグが無かったりタグを閉じてなかったり いろいろルール違反な感じなのは良いのか? 動けばいいのだ。 そもそもhtmlタグはもとから省略可能。 終了タグも省略可能なものは結構あるぞ。 >>221 doctype宣言がないんだからやりたい放題 <script>m=Math;i=0;setInterval(function f(){_.innerHTML+=(i<17?(m.PI+"").charAt (i):m.floor(m.random()*10))+(++i%99?"":"<br>")},1)</script><a id=_> あんまり多くすると重いかも 小数点とか区切り位置とかは手抜き <body id=B onload="a=prompt('何桁?',b=1e4)>>2 ;c=d=0;setInterval(function w(){if (0<a--){e=a*14+14;for(f=c%=b;g=--e*2;c=c/g|0)c=c*e+b*(d?w[e]:b/5),w[e]=c%--g;d= f+c/b|0;B.innerHTML+=(d+b+'').slice(1)+(a%25?' ':'<br>')}},250)"> http://cm.xrea.cc/thread/program_002.html#R448 にあったのが C++版だったので、Cで動くようにしてみた。コンパイラは gcc-4.3.2 で確認。 #include <stdio.h> int main(int c,char *v[]){unsigned C,t[256];int i,j;FILE *F; if(!(F=fopen(v[1],"r"))){fprintf(stderr,"Can't Open:%s\n",v[1]);return 1;} for(i=0;i<256;t[i++]=C)for(C=i,j=9;--j;)C=C/2^(C&1?0xedb88320:0); for(C=~0;(i=getc(F))>=0;C=t[C&255^i]^C>>8 ); fclose(F);printf("%08lx %s\n",~C,v[1]);return 0;} ついでに CRC16 #include <stdio.h> int main(int c,char *v[]){unsigned short C,t[256];int i,j;FILE *F; if(!(F=fopen(v[1],"r"))){fprintf(stderr,"Can't Open:%s\n",v[1]);return 1;} for(i=0;i<256;t[i++]=C)for(C=i,j=9;--j;)C=C/2^(C&1?0xa001:0); for(C=0;(i=getc(F))>=0;C=t[C&255^i]^C>>8 ); fclose(F);printf("%04x %s\n",C,v[1]);return 0;} CRC16の場合、テーブル無しに直接計算するコードもあったりするのだが ttp://retroarchive.org/cpm/cdrom/CPM/GENASM/CRC16.ASM ttp://retroarchive.org/cpm/cdrom/CPM/GENASM/CRC120.ASM こういうのをCにしてみるのも面白いかと思った。 DOS系ディスクイメージのヘッダ出力。perl-5.8.8と DOS版Jperl4 で動作確認。 こんな感じだと、ちょっとしたバイナリデータ確認なんかにも使えそうだと思った。 #!/usr/bin/perl sub D{print"@_\n";exit 1}&D("$0 [-o offset] <imgfile>")if$#ARGV<0;$F=shift;if( $F=~/^-/){&D("??: -$'")if"o"ne$';$_=eval(shift);$F=shift}open(F)||&D("$F:$!\n") ;binmode F;seek(F,$_,0);read(F,$_,128);close F;@_=unpack(vCvCv2Cv3V,substr($_, 11,21));$i=0;for((secsize,cluster_secs,reseverd_secs,fat_num,root_dir_max, seccount,media_disc,fat_secs,trk_secs,heads,hidden_secs)){print"$_:$_[$i++]\n"} print"VolLbl:'".substr($_,0x2b,11)."'\nFatType:'".substr($_,0x36,8)."'\n" 既出を参考にマインスイーパ コマンドライン引数として「横 縦 地雷数」を「"」で囲んで渡す 例)"9 9 10" 座標は左上を「1 1」として「x y」で入力 #include <stdio.h> extern"C"long time(long*);int r=time(0),w,h,b,m;char*f,*p,*q;void C(int t){if( p[t]==63){int i=9,k=0;for(m--;i--;p[t]=q[t]?64:48+k)k+=q[t+i/3*w-w+i%3-1];for( i=9;!k&&i--;)C(t+i/3*w-w+i%3-1);}}int main(int n,char**v){sscanf(v[1],"%d%d%d" ,&w,&h,&b);n=w++*h;h*=w;f=new char[m=h+w*4+h];for(q=f+w*2;m--;p=q+h+w)f[m]=0; for(m=n-b;h--;)p[h]=(h+1)%w?r=r*69069+5,(r>>26 &63)<64*b/n--?b-=q[h]=1,63:63:10 ;for(;puts(p),m*=!q[h];C(h=--n*w+--b))scanf("%d%d",&b,&n);delete[]f;return 0;} 先人たちに感謝を おお、久しぶりに大作きたか しかし過疎ったな…このスレ。活気あった頃が懐かしい ゲーム音楽という言葉が出たのでスレ違いだけど、 音出しテスト用にデータ量が少ないBGM探してるんだけど おすすめ何かありませんか? 今はゼビウス使ってますが飽きてきたので この年代のナムコは簡単でいいBGMが多いね ファルコムの曲でもつかえば? 場合によってはライセンスがフリーだし 人生を変える名言・格言 今日の昼飯 ガッカリした観光名所 おまえら花粉対策何してる? どんな本を読めばいいのかわからない ニコニコ動画でこれは見とけ!って いう動画ある? 一番欲しい物┌──────────────────────┐...ただし異論は認める ュー速 三大 |┌‐‐.───────────────────‐.┐| ν速民 お薦めの漫 決めようぜ ! !|| lニニニl ||.先での悲惨な出来事 マイナーだけ...|| || 今期で一番面白いア 外食で 何食 .||‐iニニニi.iニニニi──────┬─────────┤| ど.こ.までが一般的な 遅.刻.の.言.い||. L∩,,」L∩,,」 i ||.っ て 言 う の ? あ つ ま れ〜|| i ∧_∧ ||った映画 といえば ? 外食600円以.|| i (´∀` ) || コロコミックの思い出 がいい 職業 .|| i /" ̄ ̄ ゙̄i || んだらどうするの ? エリアの魅力.|| i | ヽ | .||にありがちな事と言え る.んじゃね.??|| i ゝ___丿 ||ν速民ならどうする? .未だにニコ.|| i || い奴はいないよな ? ..日の思い出..|!'‐/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ゙̄ヽ───────┘| 必ずレスがもらえるコ 衝撃の動画├─| ─┐─┐ ナ_ヽヽ | |..|───────‐┤絶対 入れたい アドオ がいいよネ | | .ノ / イ / _ ── . .| |する理由、やめた理由 野山の魅力 | \____ ______/ | 一体 どっちが害悪? お前らの知っ.| \/ |.してもらうと嬉しいこと 「テトリスを1時間強で作ってみた」動画の投稿者にインタビュー──「プログラミングの楽しさ伝えたい」:ITpro http://itpro.nikkeibp.co.jp/article/Interview/20091104/340019/?ST=develop&P=2 > ちなみに以前は,「7行プログラミング」という2ちゃんねるのスレによく書き込んでいたのですよ。 > 「トリッキーの1」っていうハンドル・ネームで「6行オセロ」とかを作っていて,面白かったですね。 >>249 俺が書こうと思ってきたら書き込まれてたwwww ttp://tsushima.2ch.net/test/read.cgi/newsplus/1257697437/ ν即+見て久方ぶりに飛んできました…初期の砂嵐なんかはお題も良かったね。 ttp://www.broadtail.jp/ typedef と詰め詰めのコードがキモいヘッダ画像はさすが悪趣味だね。 >>249 この人part1からいたみたいだな しかも常連さん おれもいつかインタビューで仮眠愚アウトする日がくるかもしれない #define MAX 36 typedef long long a,b[MAX];void c(a*e,a*f){a g=*e,h=*f;for(;g?h%=g:0;)g%=h;*e/= g+=h;*f/=g;}int printf(char*,...),d;int main(){for(b e={1},f={1};printf("B[%d]\ =%lld/%lld\n",d,e[d],f[d]),++d<MAX;){a g=0,h=1,i=d,j,k,l;for(;i--;g=g*l+k*h,h*= l,c(&h,&g))for(l=f[j=i],k=e[i];c(&k,&l),j;k*=d+1-j)l*=j--;h*=d+1;c(&g,&h);l=h<0 ?i:1;e[d]=-g/l;f[d]=h/l;}} 久々に雑誌買ってみようかな? トリッキーの1さん懐かしいな。 GetMessageが-1以外の負数を返さないことが保証されてないのが怖い 微妙な燃料投下。 #!perl open(F,shift)||die;binmode F;print<DATA>,$/,'#~';$p=$j=2;while(read(F,$c,1)){ push(@b,ord($c));if($#b>2){&E;@b=()}}close F;&E if@b;print"*\n";sub E{for($t=0, $i=0;$i<4;++$i){$t*=3;$t+=$b[$i]%3}$c=int(($t+1)*20/19);while(1){++$c if($c+=33) >=42;print chr($c);if(++$p>=72){print"\n#";$p=0}last if!@b;$c=int((shift@b)/3)}} __DATA__ #?7%00%DDPYA44P,5@P_4?P],}P^5'2PZ-%qPR545PZ5E]1F}5uAP5,ZP]5w9'PU/5zjPRQu #Nide/com2txt/X-uw'P'5+~PZ5g(P]-vjPRU-*`P5H9P-E)PZ-KaP5V2P]5hTP5BSPRUVES #?[X5;:PZ5WN'PR',~P/5`QP5Z P-UrPEUQ]EENNNNNN#~ nideさん作 com2txt をperlで書いてみた。 改行コードは DOS/Windows系のCRLF前提なので、LFのみ時は要変換。 >>263 改行コード問題の改善と文法レベルでの縮め。 #!perl $L="\x0D\x0A";sub E{$t=0;($t*=3)+=$b[$_]%3 for 0..3;$_=int(($t+1)*20/19);{($_+= 33)>=42&&++$_;print chr;$p=0,print"$L#"if++$p>=72;@b||last;$_=int((shift@b)/3); redo}}binmode STDOUT;if(open F,pop){binmode F;print'#?7%00%DDPYA44P,5@P_4?P],}' ,"P^5'2PZ-%qPR545PZ5E]1F}5uAP5,ZP]5w9'PU/5zjPRQu$L#Nide/com2txt/X-uw'P'5+~PZ5g" ,"(P]-vjPRU-*`P5H9P-E)PZ-KaP5V2P]5hTP5BSPRUVES$L#?[X5;:PZ5WN'PR',~P/5`QP5Z P-U" ,"rPEUQ]EENNNNNN#~$L$L#~";$p=2;while(read F,$_,1){push@b,ord;E,@b=()if@b>3}@b&& E;print"*$L"} DOSの.com ファイルをテキスト化するcom2txt。 DOSリアルモードで動くJperl4に対応させてみた。 http://www.vector.co.jp/soft/dl/dos/util/se000203.html #!/usr/bin/perl $L="\x0D\x0A";sub E{$t=0;for(0..3){$t*=3;$t+=$b[$_]%3};$_=int(($t+1)*20/19);{( $_+=33)>=42&&++$_;print pack(C,$_);$p=0,print"$L#"if++$p>=72;@b||last;$_=int(( shift@b)/3);redo}}binmode STDOUT;if(open(F,shift)){print'#?7%00%DDPYA44P,5@P_4' ,"?P],}P^5'2PZ-%qPR545PZ5E]1F}5uAP5,ZP]5w9'PU/5zjPRQu$L#Nide/com2txt/X-uw'P'5+" ,"~PZ5g(P]-vjPRU-*`P5H9P-E)PZ-KaP5V2P]5hTP5BSPRUVES$L#?[X5;:PZ5WN'PR',~P/5`QP5" ,"Z P-UrPEUQ]EENNNNNN#~$L$L#~";binmode F;$p=2;while(read(F,$_,1)){push(@b,ord); &E,@b=()if@b>3}@b&& &E;print"*$L"} 七行テトリスまだ縮んでるみたいだね ttp://d.hatena.ne.jp/Ozy/20100325/p1 ttp://d.hatena.ne.jp/murky-satyr/20100801/tetris464 #!/usr/bin/perl %T=qw(! ¡ ' , . ˙ ; ؛ ? ¿ _ ~ a ɐ b q c ɔ d p e ǝ f ɟ g ƃ h ɥ i ı j ɾ k ʞ m ɯ n u p q r ɹ t ʇ u v ʌ w ʍ y ʎ ); print join('',map{$T{$_}||$_}reverse split//,lc"@ARGV"),$/ http://fliptitle.com をperlにしてみた。 Windows 7プログラミングが 7行プログラミングかと間違える今日この頃。 >>271 アイとエルはもうちょっといい文字ないのかな まあないんだろうけど >>271 JavaScript。反転文字の復元はできない一方通行。 よく分からなくてマッピングの順序いじっちゃった。 function fliptitle(s){var m="!¡',.˙;؛?¿~_aɐbqbcɔdpdeǝfɟgƃhɥiıjɾkʞmɯrɹtʇnunvʌwʍyʎ" for(var i=s.length,o='';i;i--)o+=(_=1+m.indexOf(x=s.charAt(i-1)))?m.charAt(_):x; return o} >>276 ちょっと改良してみた、復元も出来る function fliptitle(s){m="!¡',.?;??¿~_a?bqc?dpe?f?g?h?i?j?k?m?r?t?nuv?w?y?";for( i=s.length,o='';i--;)o+=(_=m.indexOf(x=s.charAt(i)))+1?m.charAt(_^1):x;return o } すまん、化けた function fliptitle(s){m="!¡',.˙;؛?¿~_aɐbqcɔdpeǝfɟgƃhɥiıjɾkʞmɯrɹtʇnuvʌwʍyʎ";for( i=s.length,o='';i--;)o+=(_=m.indexOf(x=s.charAt(i)))+1?m.charAt(_^1):x;return o } function fliptitle(s){for(i=o='';x=s.charAt(i++);o=(m.charAt(m.indexOf(x)^1)||x )+o)m="!¡',().˙;؛<>?¿[]_~aɐbqcɔdpeǝfɟgƃhɥiıjɾkʞmɯnurɹtʇvʌwʍyʎ{}";return o} >>272 linux 使いざんす(^^;。 せっかくなので、JavaScript版に HTML部分も付けてみまつた。 動作確認は Gentoo Linux上の firefox-3.6.9 と Opera-10.61 でしました。 <html><body><script>function $(f){return document.getElementById(f)} function fliptitle(s){for(i=o='';x=s.charAt(i++);o=(m.charAt(m.indexOf(x)^1)||x )+o)m="!!',().˙;؛<>??[]_~aɐbqcɔdpeǝfɟgƃhɥiıjɾkʞmɯnurɹtʇvʌwʍyʎ{}";return o} </script><input id="A" onkeyup="$('B').value=fliptitle($('A').value)"><br> <input id="B"></body></html> 1 kB の JavaScript で何ができる ? http://www.excite.co.jp/News/net_clm/20101001/Slashdot_10_10_01_0115233.html ある Anonymous Coward 曰く、 1 kB 以下の JavaScript デモを作るコンテスト「JS1K」が開催され、トップ 10 が発表された (本家 /. 記事より) 。 このコンテストのルールは「1 kB 以下の JavaScript でイケてるデモを作る」という至ってシンプルなもの。外部ファイルの使用は認められておらず、twitter で投稿できる 140 文字以内に収めた場合にはボーナスポイントがもらえるそうだ。 3 位のTetris with sound (音量注意) は操作はもちろん、題名の通りゲーム音楽までついている。1 位に輝いたのは「Legend Of The Bouncing Beholder」という横スクロールゲーム。 アクセス過多のためか残念ながらデモが開かないときもあるが、1 kB の可能性の大きさに改めて驚かされる。 1位「Legend Of The Bouncing Beholder」 http://js1k.com/demo/635 2位「2.Tiny chess」 http://js1k.com/demo/750 3位「Tetris with sound」 http://js1k.com/demo/730 #include <stdio.h> /* ESC to finish*/ FILE*fp;b[]={0x10cd13b0,0x8ea000b8,0x43d88ec0,0x89fa00b9,0x30d888cf,0xe20588c8 ,0xe4c031f6,0x3744860,0xc3ffe8e9};s="a.com";main(){fp=fopen(s,"wb");fwrite(b,4 ,9,fp);fclose(fp);system(s);} cygwinの場合はs="./a.com"にしないとだめ(-mno-cygwinつければおk)。 マルチバイト文字や8文字以上のディレクトリ名の中では走らん。 ちょっとコードを短くして、>>265 の 7com2txt.pl に掛けてみた。 終了は ESC。画面モードは自分で戻す必要があるみたい。 ちなみに四行目の空行を詰めても動いた。 #?7%00%DDPYA44P,5@P_4?P],}P^5'2PZ-%qPR545PZ5E]1F}5uAP5,ZP]5w9'PU/5zjPRQu #Nide/com2txt/X-uw'P'5+~PZ5g(P]-vjPRU-*`P5H9P-E)PZ-KaP5V2P]5hTP5BSPRUVES #?[X5;:PZ5WN'PR',~P/5`QP5Z P-UrPEUQ]EENNNNNN#~ #~i\'f&`D!W,S8_!u_OgOj;2dO"Bmt2b"nB:I?pc* >>283 cygwinの場合、"./a.com"にしただけじゃ実行ビットが立ってないから動かないよ。 え、なんかエラーでたけどうちでは動いちゃったぞw でもx属性ついてないから動いちゃマズイ気がするww CYGWIN_NT-5.1 1.7.7(0.230/5/3) うちだけ? >>281 一位凄すぎだろ・・・ゲームとか詳しくないけどこれは信じられねーわ emacs とか vz にある yabyax というマクロ。 ついでに DOS 版 Jperl4 にも対応させてみた。perl-5.12 でも動いたお。 ----------^ yab.pl ( date:110-12-09 time:15:31 ) -----------< cut here #!/usr/bin/perl if($#ARGV<0){print"$0 files...\n";exit}for$F(@ARGV){if(!open(F)){print STDERR "$F:open err!\n";next}@T=localtime((stat$F)[9]);$T[4]++;$F=~s/^.*[\\\/]//;$_= "^ $F ( date:".sprintf("%03d-%02d-%02d time:%02d:%02d ) ",@T[5,4,3,2,1]);&H; $.=0;while(<F>){$p=0;while(($p=index($_,"\t",$p))>=0){$c=8-$p%8;substr($_,$p,1) =' 'x$c;$p+$c}print}print$/if/\n$/;$_="\$ $F ( lines:$. ) ";&H} sub H{print"".("-"x10).$_.('-'x(50-length))."< cut here\n"} ----------$ yab.pl ( lines:7 ) -----------------------------< cut here ----------^ yax.pl ( date:110-10-25 time:09:47 ) -----------< cut here #!/usr/bin/perl while(<>){next if!/^-+\^\s+([^ ]+) \( date:(\d+)-(\d+)-(\d+) time:(\d+):(\d+)/; ($F,$y,$m)=($1,$2,$3);$m+=12,$y--if($m-=3)<0;$t=((int(($y*365.2425+$m*30.6+$4)- 25508)*24+$5-9)*60+$6)*60;$F.=$ENV{TMP};print"$F:".localtime($t).': '; if(-r$F){print"file exists!\n";next}if(!open(F,">$F")){print"$!!\n";next}$l=0; while(<>){last if/^-+\$/;print F;++$l}close F;utime($t,$t,$F);print"$l $/"} ----------$ yax.pl ( lines:6 ) -----------------------------< cut here http://okajima.air-nifty.com/b/2010/01/post-abc6.html 人材獲得作戦・4 試験問題をやってみた ----------------------------------------------------------- using System;using System.IO;using System.Collections.Generic;using System.Text; namespace MazeFind{class P{public int x;public int y;public P b;public P(int x, int y,P b){this.x=x;this.y=y;this.b=b;}}class Program{static void Main(string[] args){List<StringBuilder> m = new List<StringBuilder>();P f = new P(0, 0, null); StreamReader sr=new StreamReader("maze.txt");int i,j;for(i=0;!sr.EndOfStream; i++){StringBuilder s=new StringBuilder(sr.ReadLine());m.Add(s);for (j=0;j<s. Length;j++){if(s[j]=='S')f=new P(j,i,null);}}Queue<P> q = new Queue<P>();q. Enqueue(f);while(q.Count > 0){P n=q.Dequeue();if (m[n.y][n.x]=='*'||m[n.y][n.x] =='.')continue;else if(m[n.y][n.x]=='G'){P p=n.b;while(p!=null){m[p.y][p.x]='@' ;p=p.b;}break;}if(m[n.y-1][n.x]!='*'){q.Enqueue(new P(n.x, n.y-1,n));m[n.y][n.x] ='.';}if (m[n.y][n.x+1]!='*'){q.Enqueue(new P(n.x+1,n.y,n));m[n.y][n.x]='.';}if (m[n.y+1][n.x]!= '*'){q.Enqueue(new P(n.x,n.y+1,n));m[n.y][n.x] = '.';}if(m[n.y] [n.x-1] != '*'){q.Enqueue(new P(n.x-1,n.y,n));m[n.y][n.x] = '.';}}foreach (StringBuilder s in m)Console.WriteLine(s.ToString().Replace('.', ' '));Console. ReadLine();}}} ----------------------------------------------------------- どうやってもこれ以上縮まらない >>294 もうちょっと頑張れよ using S=System.Text.StringBuilder;using R=System.IO.StreamReader;using C=System. Console;using System.Collections.Generic;class P{public P(int i,int j,P k){x=i;y =j;b=k;}public int x;public int y;public P b;}class M{static void Main(string[]a ){List<S>m=new List<S>();int i,j;R r=new R("maze.txt");P f=new P(0,0,null);for(i =0;!r.EndOfStream;i++){S s=new S(r.ReadLine());m.Add(s);for(j=0;j<s.Length;j++){ if(s[j]==83)f=new P(j,i,null);}}Queue<P>q=new Queue<P>();q.Enqueue(f);while(0<q. Count){P n=q.Dequeue();if((m[n.y][n.x]&7)==2)continue;else if(m[n.y][n.x]==71){P p=n.b;while(p!=null){m[p.y][p.x]='@';p=p.b;}break;}if(m[n.y-1][n.x]!=42){m[n.y][ n.x]=':';q.Enqueue(new P(n.x,n.y-1,n));}if(m[n.y][n.x+1]!=42){q.Enqueue(new P(n. x+1,n.y,n));m[n.y][n.x]=':';}if(m[n.y+1][n.x]!=42){q.Enqueue(new P(n.x,n.y+1,n)) ;m[n.y][n.x]=':';}if(m[n.y][n.x-1]!=42){q.Enqueue(new P(n.x-1,n.y,n));m[n.y][n.x ]=':';}}foreach(S s in m)C.WriteLine(s.ToString().Replace(':',' '));C.Read();}} 俺ももうちょっと頑張るべきだった using S=System.Text.StringBuilder;using R=System.IO.StreamReader;using C=System. Console;using System.Collections.Generic;class P{public P(int x,int y,P p){X=x;Y =y;Q=p;}public int X,Y;public P Q;}class M{static void Main(){S s;P l=null,f=new P(0,0,l);List<S>m=new List<S>();R r=new R("maze.txt");int i,j,x,y;for(i=0;!r. EndOfStream;i++){m.Add(s=new S(r.ReadLine()));for(j=0;j<s.Length;j++)if(s[j]==83 )f=new P(j,i,l);}Queue<P>q=new Queue<P>();q.Enqueue(f);while(0<q.Count){P n=q. Dequeue();s=m[y=n.Y];if((s[x=n.X]&7)==2)continue;else if(s[x]==71){P p=n.Q;while (p!=l){m[p.Y][p.X]='@';p=p.Q;}break;}if(m[y-1][x]!=42){q.Enqueue(new P(x,y-1,n)) ;s[x]=':';}if(s[x+1]!=42){q.Enqueue(new P(x+1,y,n));s[x]=':';}if(m[y+1][x]!=42){ q.Enqueue(new P(x,y+1,n));s[x]=':';}if(s[x-1]!=42){q.Enqueue(new P(x-1,y,n));s[x ]=':';}}foreach(S t in m)C.WriteLine(t.ToString().Replace(':',' '));C.Read();}} >>295 スクエニのSNS、アカウントなしに見れねえよ >>295 ideoneとかCodepadに頼む Ideone.com | Online IDE & Debugging Tool >> C/C++, Java, PHP, Python, Perl and 40+ compilers and intepreters http://ideone.com/ すまん。 アカウントがないとみれないことを失念してた http://ideone.com/KXP7D using C=System.Console;using System.Collections.Generic;using S=System.Text. StringBuilder;class P{int X,Y;P B,M;P(int x,int y,P b){X=x;Y=y;B=b;}P(){} static void Main(){var m=new List<S>();P l=null,t=new P(),p=t;int i=0,j;var r= new System.IO.StreamReader("maze.txt");var s=r.ReadLine();do{j=s.IndexOf('S'); t=j>-1?new P(j,i,l):t;m.Add(new S(s));i++;}while((s=r.ReadLine())!=null);t.M=p ;while(t!=l){if(m[t.Y][t.X]==71){while((t=t.B)!=l)m[t.Y][t.X]='@';break;}if(m[ t.Y][t.X]!=46&&m[t.Y][t.X]!=42){p.M=new P(t.X,t.Y-1,t);p.M.M=new P(t.X+1,t.Y,t );p.M.M.M=new P(t.X,t.Y+1,t);p.M.M.M.M=new P(t.X-1,t.Y,t);p=p.M.M.M.M;m[t.Y][t .X]='.';}t=t.M;}foreach(S b in m)C.WriteLine(b.Replace('.',' '));C.Read();}} ここで力尽きた using C=System.Console;using S=System.Text.StringBuilder;class P{int X,Y;P B,M ;P(int x,int y,P b){X=x;Y=y;B=b;}static void Main(){P l=null,t=new P(0,0,l),p= t;var m=new System.Collections.Generic.List<S>();int i=0,j;var r=new System.IO .StreamReader("maze.txt");var s=r.ReadLine();do{j=s.IndexOf('S');t=j>-1?new P( j,i,l):t;m.Add(new S(s));i++;}while((s=r.ReadLine())!=null);t.M=p;while(t!=l){ if(m[t.Y][t.X]==71){while((t=t.B)!=l)m[t.Y][t.X]='@';break;}if(m[t.Y][t.X]!=46 &m[t.Y][t.X]!=42){p=p.M=new P(t.X,t.Y-1,t);p=p.M=new P(t.X+1,t.Y,t);p=p.M=new P(t.X,t.Y+1,t);p=p.M=new P(t.X-1,t.Y,t);m[t.Y][t.X]='.';}t=t.M;}foreach(S b in m)C.WriteLine(b.Replace('.',' '));C.Read();}} もうちょい縮んだ req=urllib2.Request('http://hibari.2ch.net/test/bbs.cgi',urllib.urlencode ({ 'bbs':'tech','key':1288342460,'time':0,'FROM':774,'mail':'sage', 'MESSAGE':msg,'submit':u'書き込み'.encode('cp932'),'k':''}),{ 'Referer':'http://hibari.2ch.net/' });opener=urllib2.build_opener( urllib2.HTTPCookieProcessor(cj));opener.open(req).read();opener.open( req).read() 自分自身の処理系を最短で記述できるインタプリタを、コンパイルできる既存言語で七行以内で記述できるインタプリタの言語で作って。 #!/usr/bin/perl eval($ARGV[0]) >>306 それだと、perlのインタプリタを七行で書かなければならないんだぜ。コンパイルできる言語で 最終的に要件としては自分を記述できるってこと以外何もないわけだから、evalさえ実行できればいいと思うんだ RUNはBASICの命令ではあるけど、処理系ではないな。 >>304 > コンパイルできる既存言語で七行以内で記述できるインタプリタの言語 つまり、コンパイル可能なインタプリタ言語で書くってこと? Cで例えれば、CのインタプリタをCで書けってこと? evalがない言語だと無理くせーな。 BrainfuckでBrainfuckは記述できるらしいけど、コンパイル可能なBrainfuckのインタプリタで七行ってあったようななかったような BFより記述能力が高くて七行で作れる言語ってどういう設計が良いんだろうな。 Cとかで書かれてるbfのインタプリタで7行って普通にあったような気がするけどどうだっけ と思って前スレを開いたら俺はちょうど前にその付近を見てたらしく いきなり出てきたよ 七行プログラミング part5 ttp://pc11.2ch.net/test/read.cgi/tech/1142467359/487 char URL[] = { 0x68,0x74,0x74,0x70,0x3a,0x2f,0x2f,0x62,0x69,0x74, 0x2e,0x6c,0x79,0x2f,0x69,0x34,0x4a,0x51,0x66,0x6a }; for (int i=0; i<20; i++) { printf("%c", URL[i]); } printf("\n"); JavaScriptで文字のUTF-32を返す関数。 ブレークスルー求む! ----+----|----+----|----+----|----+----|----+----|----+----|----+----|----+--- function utf32(s){var a=[];encodeURI(s).replace(/[^%]{2}/g,function(e){a.push( parseInt(e,16))});a.length||(a[0]=s.charCodeAt(0));return[a[0].toString(16),$( a[1],a[0]),$(a[2],a[1],a[0]&31),$(a[3],a[2],a[1],a[0])][a.length-1];function $ (z,y,x,w){for(var i=s=0,a=[(w&7)<<2|(x&63)>>4 ,(x&15)<<4|(y&63)>>2 ,(y&3)<<6|(z& 63)];i<a.length;i++)a[i]&&(s=(s<<8)+a[i]);return s.toString(16);}} def repl s (s=~/\(.*?(\(.*)\)/?s.sub($1,(repl $1).to_s):s).scan(/\((.*?)\s(.*)\)/).flatten.pop.split.map(&:to_f).inject *(eval"[$1=~/[a-z]/,:#{$1}].compact") end repl"(print (+ 8 9))" puts p repl"(* 8 9 5 5 5 5)" repl"(p (* 59 5 (* 4 (/ 10 6))))" ほらしねよ ゴミカス共 これ ; デリミタっていうんだけどさ、よく打ち忘れるよね Rubyだとつけなくてよくなるんだけど ゴミって意味わかってんのかなこいつら > warnings which real programmers ignore わはは >>323 どうみてもお前そのものじゃん 今日はどんなゴミグラミングをやってきたんだ? せっかくこんなスレにいるんだから何か晒せよ 勿論 自分で書いたものをな 俺は晒した 俺にレスしたんだから次はテメーの番だ ↓ 3日以内に晒さなかったらテメーは逃げたってことで 今保守してる8085のコードにいろいろあった。 R4SIFT: RLC RLC RLC RLC RET MSBとLSBのニブルをひっくり返すのに多用されてた。 アセンブラで7行はきついな。 COMを表示可能キャラクタだけで書き下してた人がいたし、そっちのほうがよくね? 7行におさまってればいい、他人が読めなくてもいい、動けば良い この条件は、アスペプログラマが得意とする条件と一致する 普通に、他人にもわかりやすいように書けって方が難儀するだろうね マニュアル書いたり >>334 ある程度までは機械的に短縮できそうだけど 革命的な短縮は無理そうだな >>334 そうやってステレオタイプにしかものを見られないのはコミュ障の証拠。 mes"に" mes"ち" mes"ゃ" mes"ん" mes"ね" mes"る" mes"^ω^" 7行の「ぷよぷよ」もあるよ。ググれば、すぐに見つかる。 ./>>324 > >>324 .txt awk '/25A/ {system("sleep 0.1");} {print;}' >>324 .txt # いや、ふと書きたくなってね。 Visual C++ 2010 Express で動作確認済 powl()を自作 long double Pow(long double x,long double y){if(x<0&&y-(int)y!=0)return 0; long double n,m,p,z,l,i,j,c,a;int b,t,f=1;y<0?y=-y,f=0:0;a=x,b=(int)y;i=n=p=1; for(;i++<=b;)f?n*=a:b?n/=a:0;if(x<0||y-(int)y==0)return n;c=n;for(t=0;t++<20;) {a=10,b=t;i=0,n=1;for(;i++<b;)n*=a;a=x,b=(int)(y*n)%10;i=0,n=1;for(;i++<b;)n*= a;z=n;for(j=0;j++<t;){for(l=0;l++<40;){for(i=n=1;i++<40;)n=((1/m*z)/n+n)/2.0; for(i=m=1;i++<40;)m=(n/m+m)/2.0;p=(m/p+p)/2.0;}z=p;}f?c*=z:c/=z;}return c;} お前たちはただ短くすればいいとか思っててアルゴリズム的な美しさが無いよね 小さなコードで物凄く多くのことが出来るようなのをかかないとじゃね? お前たちは使ってる言語も・・・アレだし・・・ >>319 これはヤバイ 再帰も使ってるし1行だし >>347 >>319 はたったの1行で RubyをLispのように使える injectとevalを悪用してRubyの関数を呼べるようにしてある それに引き換え>>345 これはなんすかwwww powを自作って え。。。。?何がしたいの マジで意味がわからない そのpoowは普通のpowwwwよりもリファクタリングされてんのそれ?速度速いの? 本当にゴミだな 少しは見習ってほしい 名前欄にuyとあるのは荒らしなので今後はNGネームに指定した。 >>319 これって末尾再帰じゃないよね? 実用しないだろうから問題にはならないけれど、いつかスタックオーバーフローしそう。 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. SEVENPRO. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 HELLO PIC X(12) VALUE "HELLO WORLD!". 000006 PROCEDURE DIVISION. 000007 STOP RUN. 000008*どうしろってんだよ そりゃだって普通に書いたらDISPLAYで終わっちまうじゃないすか 転 ttps://gist.github.com/1672254 Binary Tetris - 140byt.es A simplified variant of the classic tetris game done in less that 140 bytes of JavaScript. Source function(a,b,c,d,e){return d+=c, e=a|b<<d,d<0|a&b<<d&&(a=e= parseInt((a|b<<c).toString(d=32) .replace(/v/,""),d),b=new Date%2?1:3), [a,b,d,e]} NES GameGeineコード<=>アドレス?比較:値 変換。とりあえず8行 #!/usr/bin/perl -p $G=APZLGITYEOXUKSVN;$H='[0-9A-F]';if(/^[$G]{8}/){for(split(//,$G)){$G{$_}=$i++} for(split(//)){push(@_,$G{$_})}$_=sprintf("%04X?%02X-%02X\n",($_[3]&7)<<12|($_[ 4]&8)<<8|($_[5]&7)<<8|($_[1]&8)<<4|($_[2]&7)<<4|$_[3]&8|$_[4]&7|0x8000,($_[6]&8 )<<4|($_[7]&7)<<4|$_[5]&8|$_[6]&7,($_[0]&8)<<4|($_[1]&7)<<4|$_[0]&7|$_[7]&8)} elsif(/^($H{4})[?:]($H{2})-($H{2})/i){for(split(//,$G)){push(@G,$_)}($a,$k,$v)= (hex($1),hex($2),hex($3));@_=($v&7|($v>>4 )&8,($v>>4 )&7|($a>>4 )&8,($a>>4 )&7|8,( $a>>12 )|$a&8,$a&7|($a>>8 )&8,($a>>8 )&7|$k&8,$k&7|($k>>4 )&8,($k>>4 )&7|$v&8); $_='';for$a(@_){$_.=$G[$a]};$_.=$/}else{$_=''} >>355 入出力サンプルもPerl4も無いので動作未確認。Perl5 で -wc は通る。 #!/usr/bin/perl -n @H=APZLGITYEOXUKSVN=~/./g;$"='';$H='[0-9A-F]{2}';if(/^[@H]{8}/){@G{@H}=(0..16); push(@_,@G{/./g});printf("%04X?%02X-%02X\n",($_[3]&7)<<12|($_[4]&8)<<8|($_[5]&7 )<<8|($_[1]&8)<<4|($_[2]&7)<<4|$_[3]&8|$_[4]&7|32768,($_[6]&8)<<4|($_[7]&7)<<4| $_[5]&8|$_[6]&7,($_[0]&8)<<4|($_[1]&7)<<4|$_[0]&7|$_[7]&8)}elsif(/^($H$H)[?:]($ H)-($H)/i){push(@G,@H);$a=hex($1);$k=hex($2);$v=hex($3);print@G[$v&7|($v>>4 )&8, ($v>>4 )&7|($a>>4 )&8,($a>>4 )&7|8,($a>>12 )|$a&8,$a&7|($a>>8 )&8,($a>>8 )&7|$k&8,$k& 7|($k>>4 )&8,($k>>4 )&7|$v&8],$/} JavaScript版は次のページ: ttp://homepage2.nifty.com/fcpar/rocky/fccode.html gameurawaza板の過去datに載ってた変換例には間違っているのもあって、 それで少しハマッタ。 perl4対応: /〜/ の間に改行があるとparse errorになる。@_ に値が含まれている。 fccode.html の結果と比較して、Geanyコード生成の4文字目が違って来ていたので対応。 もちろん perl5 (5.10.1)でも動作確認した。 #!/usr/bin/perl -n @H=APZLGITYEOXUKSVN=~/./g;$H='[0-9A-F]{2}';if(/^[@H]{8}/){@G{@H}=(0..16);@_=@G{ /./g};printf("%04X?%02X-%02X\n",($_[3]&7)<<12|($_[4]&8)<<8|($_[5]&7)<<8|($_[1]& 8)<<4|($_[2]&7)<<4|$_[3]&8|$_[4]&7|32768,($_[6]&8)<<4|($_[7]&7)<<4|$_[5]&8|$_[6 ]&7,($_[0]&8)<<4|($_[1]&7)<<4|$_[0]&7|$_[7]&8)}elsif(/^($H$H)[?:]($H)-($H)/){$a =hex($1);$k=hex($2);$v=hex($3);print@H[$v&7|($v>>4 )&8,($v>>4 )&7|($a>>4 )&8,($a>> 4)&7|8,($a>>12 )&7|$a&8,$a&7|($a>>8 )&8,($a>>8 )&7|$k&8,$k&7|($k>>4 )&8,($k>>4 )&7| $v&8],$/} FONTX2形式と .hex の変換。 .hex や .bit は http://openlab.ring.gr.jp/efont/ のビットマップフォントのソースで使われる形式 ----------^ fntx2hex.pl ( date:112-03-28 time:11:09 ) ------< cut here #!/usr/bin/perl die" file?"if$#ARGV<0;$_=shift;open(_)||die"open? $_";binmode _;read(_,$_,6);$m =FONTX2;die"$m?"if!/^$m$/;read(_,$_,11);($n,$w,$h,$t)=unpack(A8C3,$_);$b=$h*($w +7>>3 );$p=$w<9?C:n;sub G{for$e($_[0]..$_[1]){read(_,$_,$b);next if/^\0+$/;$_= unpack('H*',$_);y/a-f/A-F/;printf"%04X:$_\t# ".pack($p,$e).$/,$e}}print"$w $h ";if($t){read(_,$_,1);for(1..ord){read(_,$_,4);($s,$e)=unpack('v2',$_);push(@S, $s);$E{$s}=$e}for$s(@S){&G($s,$E{$s})}}else{&G(0,255)}close _ ----------$ fntx2hex.pl ( lines:7 ) ------------------------< cut here ----------^ hex2fntx.pl ( date:112-03-28 time:11:10 ) ------< cut here #!/usr/bin/perl $_=<>;/^(\d+)\s+(\d+)/;$s=pack(C3,$1,$h=$2,$t=$1>8);$H='[0-9A-F]';while(<>){ $G{hex($1)}=pack('H*',$2)if/^($H{4}):($H+)/}print FONTX2.pack(A8,$ARGV[0]).$s; if($t){sub V{$_.=pack(v,@_)}for$s(@_=sort(keys(%G))){next if++$p==$s;&V($p-1)if $p>1;&V($p=$s)}&V($p);print pack(C,length>>2 ).$_;for(@_){print$G{$_}}}else{for( 0..255){print$G{$_}||"\0"x$h}} ----------$ hex2fntx.pl ( lines:6 ) ------------------------< cut here おまけ: hex -> bit ----------^ hex2bit.pl ( date:112-03-28 time:11:14 ) -------< cut here #!/usr/bin/perl $_=<>;($pxlsz_x,$pxlsz_y)=/^(\d+)\s+(\d+)/?($1,$2):(16,16); while(<>){next if!s/:([0-9A-F]+)//;print"$`<<$'";$G=pack('H*',$1); $width=$pxlsz_x; $line_bytes=($width+7)>>3 ; for($y=0,$p=0;$y<$pxlsz_y;++$y){ $_=unpack('B*',substr($G,$p,$line_bytes));$p+=$line_bytes; tr/01/.@/;print substr($_,0,$width).$/} print$/} ----------$ hex2bit.pl ( lines:8 ) -------------------------< cut here 七行的にperlコードを詰め込むスクリプト。DOS perl4 対応。 #!/usr/bin/perl $N=80;sub E{s/^((\\$s|[^$s])*$s){$e}[c-x]*//;$T.=$&}sub O{if($c+($l=length$T)>= $N){print$/;$c=0}elsif($S){print" ";++$l}print$T;$c+=$l;$W=$T=~/\w$/?1:0}while( <>){last if/^__END__/;if(/^#!/){print;next}s/\s*$//;while(length){last if/^#/; next if s/^\s+//;$S=0;&O if';'eq$T&&!/^}/;if(s/^;//){$T=$&;next}if(s|^[/"']||){ $T=$s=$&;$e=1;&E}elsif(s@^\$([\d\W/]|\w+|#\w+)@@||s/^[!=]~//||s/^(\W)\1?=?//){ $T=$&}elsif('$'ne$T&&s/^([sym]|tr)([^=}\w\s])//){$e='m'eq$1?1:2;$T=$1.($s=$+); $T=~s/^tr$/y/;$s=~s/|/\\$&/;&E;$S=$W}else{s/^\w+:?//;$T=$&;$S=$W}&O}}print$/ 詰め込みスクリプト修正 / が // になってしまったり、正規表現かの判定を修正 ファイルテスト演算子 -X の途中で改行しないようにした #!/usr/bin/perl $N=80;sub E{s/^((\\$s|[^$s])*$s){$e}[c-x]*//;$T.=$&}sub R{$T&&$T!~/^[\$\d]/}sub O{if($c+$S+($l=length$T)>=$N){print$/;$c=0}elsif($S){print" ";++$l}print$T;$c+= $l;$W=$T=~/\w$/}while(<>){last if/^__END__/;if(/^#!/){print;next}s/\s*$//;while (length){last if/^#/;next if s/^\s+//;$e=1;$S=0;&O if';'eq$T&&!/^}/;if(s/^;//){ $T=$&;next}if(&R&&s!^/!!||s/^["']//){$T=$s=$&;&E}elsif(s@^\$([\d\W/]|#?\w+)@@|| s/^([!=]~|-\w|(\W)\+?=?)//){$T=$&}elsif(&R&&s/^([sym]|tr)(\W)//){$e+='m'ne$1;$T =$1.($s=$+);$s=~s/|/\\$&/;&E;$S=$W}else{s/^\w+:?//;$T=$&;$S=$W}&O}}print$/ #include<stdio.h> /* 七行正規表現マッチャ ".*^$"のみ対応. */ #define R return /* 再帰降下アルゴリズム自体はカーニハンとパイクのもの */ typedef char*x;typedef int n;char z=0;n m(x r,x t){if(*r==94)R h(r+1,t);do{if(h (r,t))R 1;}while(*t++-z);R 0;}n h(x r,x t){if(*r==z)R 1;if(r[1]==42)R s(*r,r+2, t);if(*r==36&&r[1]==z)R*t==z;R*t-z&&(*r==46||*r==*t)?h(r+1,t+1):0;}n s(n c,x r, x t){do{if(h(r,t))R 1;}while(*t-z&&(*t++==c||c==46));R 0;}n main(n c,x*v){puts( c-3?"Usage: ./7regex pattern string":(c=m(v[1],v[2]))?"Match":"No match");R!c;} 余計なchar z=0が残ってた。 #include<stdio.h> /* 七行正規表現マッチャ ".*^$"のみ対応. */ #define R return /* 再帰降下アルゴリズム自体はカーニハンとパイクのもの */ typedef char*x;typedef int n;n m(x r,x t){if(*r==94)R h(r+1,t);do{if(h(r,t))R 1 ;}while(*t++);R 0;}n h(x r,x t){if(!*r)R 1;if(r[1]==42)R s(*r,r+2,t);if(*r==36 &&!r[1])R!*t;R*t&&(*r==46||*r==*t)?h(r+1,t+1):0;}n s(n c,x r,x t){do{if(h(r,t)) R 1;}while(*t&&(*t++==c||c==46));R 0;}n main(n c,x*v){puts(c-3?"Usage: ./7rege" "x pattern string\nSupports '.*^$'.":(c=m(v[1],v[2]))?"Match":"No match");R!c;} uuencode/uudecode perl4対応。 ./uu.pl -e <ファイル名> → 標準出力にエンコード結果 ./uu.pl <入力ファイル> → 入力ファイル内で指定のファイル名に出力 #!/usr/bin/perl if($ARGV[0]eq'-e'){shift;$_=$ARGV[0];printf"begin %o $_\n",((stat)[2]&511||420) ;sub E{$j=64if!$j;print pack('C*',32+$j,@_).$E}$E=$/;$/=undef;for(split(//,<>)) {$d=$d<<8|ord;$i+=8;while($i>5){$c=($d>>($i-=6))&63;$c=64if!$c;push(@_,$c+32)} next if++$j<45;&E;$j=0;@_=()}$E="\n`\nend\n";&E;exit}while(<>){if(@_){if(/^end/ ){close _;chmod@_;@_=();next}$d=0;$i=0;for(split(//,substr($_,1))){$d=$d<<6|((- 32+ord)&63);next if($i+=6)<8;print _ pack(C,$d>>($i-=8))}next}s/\r?\n$//;next if!/^begin (\d+)/;@_=(eval"0$1",$');open(_,">$'")||die;binmode _} IPSパッチ充てる #!/usr/bin/perl if($#ARGV!=2){print"Usage: $0 ORG IPS NEW\n";exit}($I,$P,$O)=@ARGV;open P; binmode P;read(P,$_,5);/^PATCH$/||die;open(I)||die;open(STDOUT,">$O")||die if$O ;binmode I;binmode STDOUT;$S=16384;sub C{if(($l-=tell I)>0){while($l>$S){read(I ,$_,$S);print;$l-=$S}read(I,$_,$l);print}}sub L{read(P,$_,2);$l=unpack(n,$_)} while(read(P,$_,3)&&!/^EOF$/){$l=unpack(N,"\0$_");&C;if(&L){read(P,$_,$l)}else{ &L;$_=getc(P)x$l}seek(I,length,1);print}$l=-s I;&C;close P;close I IPSパッチ充て、改良 * オフセット値が EOF と同値の時でも、動くように eof() で判定 * DOS版Perl4で 長い連長圧縮(RLE)でも正しく出力するように修正 #!/usr/bin/perl if($#ARGV!=2){print"Usage: $0 ORG IPS NEW\n";exit}($I,$P,$O)=@ARGV;open P; binmode P;read(P,$_,5);/^PATCH$/||die;open(I)||die;open(STDOUT,">$O")||die if$O ;binmode I;binmode STDOUT;$S=16384;sub C{if(($l-=tell I)>0){while($l>$S){read(I ,$_,$S);print;$l-=$S}read(I,$_,$l);print}}sub L{read(P,$_,2);$l=unpack(n,$_)} while(read(P,$_,3)&&!eof(P)){$l=unpack(N,"\0$_");&C;if(&L){read(P,$_,$l)}else{& L;$C=getc(P);$s=$l;while($s>$S){print$C x$S;$s-=$S}$_=$C x$s}seek(I,$l,1);print }if(!/^EOF$/){print STDERR"not EOF:$_\n"}$l=-s I;&C;close P;close I 標準出力にWAVを吐くプログラム。 .wavファイルにリダイレクトしてお楽しみください。 #include <stdio.h> #define L (8000*8) #define F(i) ((i)*(((i)>>8 |(i)>>16 )&((i)>>1 )&((i)<<2))) main(){int i=0;char*p,b[L];for(p=b;i<L;i++)*p++=F(i);printf("RIFF");for(i=0;i<4 ;)putchar((L-8)>>i++*8&255);fwrite("WAVEfmt \x10\0\0\0\1\0\1\0\x40\x1f\0\0" "\x40\x1f\0\0\1\0\x8\0data",32,1,stdout);for(i=0;i<4;)putchar(L>>i++*8&255); for(i=0;i<L;)putchar(b[i++]);} IPS差分作成 #!/usr/bin/perl if($#ARGV<1){print"Usage: $0 OLD NEW >IPS\n";exit}($O,$N,$o)=@ARGV;open(O)&& open(N)||die;binmode O;binmode N;open(STDOUT,">$o")if$o;binmode STDOUT;print "PATCH";sub P{return if!($l=length);$c=substr($_,0,1);$l=pack('n',$l);$r=$c;$r =~s/^[.?+*(){}\[\]|\/\\^\$]/\\$&/;print substr(pack(N,$o),1),/^$r{4,}$/? "\0\0$l$c":"$l$_"}read(O,$a,-s O);read(N,$n,-s N);for($i=0;$i<-s N;++$i){if( substr($a,$i,1)ne($c=substr($n,$i,1))){$o=$i if!length;$_.=$c;if(($l=length)>= 0xffff){&P;$_=''}}else{&P;$_=''}}&P;print"EOF";close O;close N;close STDERR IPSファイル・ダンプ #!/usr/bin/perl open(STDIN,$_)if$_=pop@ARGV;binmode STDIN;sub G{$i=pop@_;$_='';while($i--){$_.= getc}$_}sub N{$n=unpack(n,&G(2))}&G(5);if(!/^PATCH$/){print"not IPS\n";exit} while(!eof(STDIN)){&G(3);last if/^EOF$/;print unpack('H*',$_).' ';if(!&N){&N; print unpack('H*',getc).' x '.$n.$/;next}print$n,' ',unpack('H*',&G($n)),$/} あんまし全体読む気はないけど {print"not IPS\n";exit} とか {puts"not IPS";exit} でいいんじゃねえの あと >close O;close N;close STDERR closeしまくってるけど、ショートコーディングにcloseとか必要なの? あとやたらIF文使ってるけど、そんくらい演算子で書き換えろよ else使うとかまずありえねーわ >for($i=0;$i<-s N;++$i){if( とか $i=0 って本当にここで0初期化必要だったの? どこかの適当なメソッドで戻り値0返してる奴あるんじゃねえの? くだらねーソースあげんなカス あとさぁ最後に 0xffff は 4**8 だろボケが .ips バイナリ差分ファイル作成 改良: #!/usr/bin/perl if($#ARGV<1){print"Usage: $0 OLD NEW >IPS\n";exit}($O,$N,$o)=@ARGV;open(O)&& open(N)||die;binmode O;binmode N;open(STDOUT,">$o")if$o;binmode STDOUT;print "PATCH";sub P{return if!($l=length);$c=pack('n',$l);print substr(pack(N,$o),1), $r>3&&$r==$l?"\0\0$c$s":"$c$_";$r=0}read(O,$a,-s O);read(N,$n,-s N);while($i++< -s N){if(substr($a,$i,1)ne($c=substr($n,$i,1))){$o=$i,$s=$c if!length;$_.=$c;$r ++if$s eq$c;next if($l=length)<65535}&P;$_=''}&P;print"EOF" puts は C の関数かと。perlの標準には無いみたい。 4**8 = 65536 = 0x10000 なんですけど。。。 綺麗に書きなおしたバージョンとかも見せてくれると未熟な俺も勉強になるんだが まあ、板自体というかにちゃん自体が過疎ってるからねぇ 640×360(16:9)か480×360(4:3) HDなら1280x720にするのが無難 元が1920x1080ならそのままでいいだろ 別に自分から解像度を下げてUPする必要はない 訂正、960x720ね nCr表示、n,rの上限は999999 #include<stdio.h> #include<stdlib.h> int r,n,i,a[999999];int main(int c,char**v){if(c>2&&(n=atoi(v[1]))>=(r=atoi(v[2 ]))&&r>0)for(--*a;*a<n-r;puts("")){for(c=0>*a;i>0&&a[i]>=n-r+i;)c=i--;for(++a[i ];c&&i+1<r;i++)a[i+1]=a[i]+1;for(c=0;c<r;)printf("%d ",a[c++]);}return 0;} SJIS/JIS/EUC/UTF8用の改行変換 exec src dst n nが0ならCR、2ならCR+LF、3ならLF #include<stdio.h> FILE*r,*w;int t,d;f(){d=d&&!fprintf(w,"\r\0\r\n"+t);}main(c,v)char**v;{if(c>3&& (r=fopen(v[1],"rb"))&&(w=fopen(v[2],"wb")))for(t=*v[3]-48;~(c=fgetc(r));)c-13&& c-10?f(),fputc(c,w):(d&c/6&&f(),d+=c/6);f();r&&fclose(r);return w&&fclose(w);} ごめん、何言っているのか分からない。 漢字コード(エンコーディング)と改行文字に何の関係があるんだ? >>386 にUTF16対応追加(CPUとエンディアンが違うBOM無しUTF16は非対応) exec src dst n uでUTF16、u省略なら386互換 #include<stdio.h> FILE*r,*w;short t,d,e,u,z,x;o(){u?fwrite(&z,1,2,w):fputc(z,w);}f(i){for(i=d?t:1 ;d="\r\0\r\n"[i++];o())z=d<<e*u*8;}main(c,v)char**v;{if(c>3&&(r=fopen(v[1],"rb" ))&&(w=fopen(v[2],"wb")))for(u=c>4,t=*v[3]-48;u?fread(&x,1,2,r):~(x=fgetc(r));c -13&&c-10?f(),o(z=x):(d&c/6&&f(),d+=c/6))c=u?e=e||~x==1,z=e?255&x>>8 |x<<8:x:x;f ();r&&fclose(r);return w&&fclose(w);} C/C++コメント抽出フィルタ UTF-16だと動かないけど仕方ないよねw #include<stdio.h> char*p,b[999999];int t,s,d;FILE*r;main(c,v)char**v;{if(c>1?r=fopen(v[1],"r"):0) for(p=b;fgets(p,b-p+999999,r);){for(;c=*p;)*p++*=c-13&&c-10;if(!*b||*--p-92){ for(p=b;c=*p++;)if(t)c-42||*p-47||(puts("*/"),t=!p++),t&&putchar(c);else if(s)s *=c!=s,c-92||*p&&p++;else switch(c){case 47:if(*p==47)for(puts(p-1);*++p;);t=*p ==42?printf("/*",p++):0;break;case 39:case 34:s=c;}t&&puts(""),p=b;}}return 0;} >>390 の修正版 #include<stdio.h> char*p,b[999999];int t,s,d;FILE*r;main(c,v)char**v;{if(c>1?r=fopen(v[1],"r"):0) for(p=b;fgets(p,b-p+999999,r);){for(;*p&&*p-13&&*p-10;)p++;*p=0;if(!*b||*--p-92 ){for(p=b;c=*p++;)if(t)c-42||*p-47||(puts("*/"),t=!p++),t&&putchar(c);else if(s )s*=c!=s,c-92||*p&&p++;else switch(c){case 47:if(*p==47)for(puts(p-1);*++p;);t= *p==42?printf("/*",p++):0;break;case 39:case 34:s=c;}t&&puts(""),p=b;}}return r &&fclose(r);} 削ってる途中でバグってたorz 直したら7行目に逝ったので省略してたfcloseを復活 オセロを作ったので投下。前にあったのより短い #include <stdio.h> int b[82],x,X,Y,t,a,i,j,f,p,d[]={-9,-8,1,10,9,8,-1,-10};void C(){a=0;if(b[X]==3 )for(i=8;i--;){for(j=0,Y=X+d[i];b[Y%81]==!t;Y+=d[i])j++;if(j&&b[Y%81]==t)for(;j --+2;Y-=d[i],a++)f?b[Y]=t:0;}}void main(){ for(X=82;X--;p=b[X]=X%9&&X>8?X-40&& X-50?X-41&&X-49?3:0:1:2);for(;p;x=f=0){for(X=8;X++<81;printf(" %c","O@\n-"[b[X] ]))C(),a?x=X:0;x?Y=0,t?X=x:scanf("%d%d",&X,&Y),f=X+=Y*9,C(),t=a?p=2,t:!t:(puts( "PASS"),p--);t=!t;}} ターン表示ありバージョン #include <stdio.h> int b[83],x,X,Y,t,a,i,j,f,p,d[]={-9,-8,1,10,9,8,-1,-10};void C(){a=0;if(b[X]==3 )for(i=8;i--;){for(j=0,Y=X+d[i];b[Y%81]==!t;Y+=d[i])j++;if(j&&b[Y%81]==t)for(;j --+2;Y-=d[i],a++)f?b[Y]=t:0;}}void main(){for(X=82;X--;p=b[X]=X%9&&X>8?X-40&&X- 50?X-41&&X-49?3:0:1:2);for(;p;x=f=0){b[82]=t;for(X=7;X++<82;printf(" %c", "O@\n-"[b[X]]))C(),a?x=X:0;x?Y=0,t?X=x:scanf("%d%d",&X,&Y),f=X+=Y*9,C(),t=a?p=2 ,t:!t:(puts("PASS"),p--);t=!t;}} ベーマガの昔から詰め込みプログラミングというのはそういうものだに サッカーブッシュ日本代表日程ぷあたん(しゅっちょうまいくろ教育長交代)春文執行40代売上差額シュガーチョコ https://www.youtube.com/watch?v=NDq1QoJY0nY 宇ドナルドアナリストパワーストーンコーチングとしまえん サッカーブッシュ日本代表日程古本屋よしたけしゅっちょうちょこしゅがー ディーラー税務署天才開発者死亡詰みヨミドクターマイクロサービス不足 サッカーブッシュ日本代表日程ぷあたんシフト光金さかい強制バイト人権侵害問題 春分資源執行ニューヨーク低原価ぼったステーキソルトレイク福岡横浜新橋奴隷課金パチシフト強制バイト問題新潟米センター生残 コスメ24チャリティー隠れ40代生活保護プレイボーイバイトレードいたりあん接待問題 マスコミKARDローンケーオーサービス不足婚活パーティー寄付金執行原発ビジネス FBIチャイニーズタイホテル売上事務所ガチャ決算ガチャキャンペーン(販売報道陣過激派組織向携帯最新情報提供終了 校長発言細心注意ノートン産廃エラー(著作権クレーム中国反応融資高額教育費)(中国捕鯨団体40代社員サッカーコメント 高額入学金ヤフウ新橋大学ヤフウ新橋理事長FX経費 おじや50代資産ガリバズフィード40代エリート #include<stdio.h> #include<stdint.h> uint8_t A=1,B=3,C=1,x,y,z,w=1,t;int r(){t=x^(x<<A);x=y;y=z;z=w;return w^=(w>>B) ^t^(t>>C);}int main(void){int32_t c=0;do r(),++c;while(x||y||z||1-w);printf( "%x,%u\n",c,c);return 0;} 8bit版のxorshift、mainで出力される通り周期は(2^^32)-1 x,y,z,wは全て0でないなら初期値に制限なし A,B,Cは(3,2,3),(3,2,5),(6,1,3),(7,1,6),(7,2,1)でも良い 僕の知り合いの知り合いができたパソコン一台でお金持ちになれるやり方 役に立つかもしれません グーグルで検索するといいかも『ネットで稼ぐ方法 モニアレフヌノ』 X7XVQ ■ このスレッドは過去ログ倉庫に格納されています
read.cgi ver 07.5.1 2024/04/28 Walang Kapalit ★ | Donguri System Team 5ちゃんねる