七行プログラミング part5

1 名前：デフォルトの名無しさん mailto:sage [2006/03/16(木) 09:02:39 ] 7行×79文字なら言語は問いません。 過去作品は、もしかしたら>>2-20あたりに。 前スレ pc8.2ch.net/test/read.cgi/tech/1051703369/ part 3 pc2.2ch.net/tech/kako/1033/10331/1033143528.html part 2 pc3.2ch.net/tech/kako/1018/10188/1018840143.html part 1 pc.2ch.net/tech/kako/984/984182993.html 2 名前：デフォルトの名無しさん mailto:sage [2006/03/16(木) 09:39:32 ] 乙 3 名前：デフォルトの名無しさん mailto:sage [2006/03/16(木) 13:11:36 ] 作品集 pc2.2ch.net/test/read.cgi/tech/1033143528/5-15 pc2.2ch.net/test/read.cgi/tech/1033143528/25 Pt.2スレの作品一覧 pc3.2ch.net/test/read.cgi/tech/1018840143/900-906n 4 名前：デフォルトの名無しさん mailto:sage [2006/03/17(金) 02:23:31 ] ここは放置すると即死するのかな。 インデックスでも貼るか 5 名前：http://www.vector.co.jp/soft/win95/util/se072729.html mailto:http://msdn2.microsoft.com/ja-jp/library/h2k70f3s.aspx [2006/03/18(土) 19:49:20 ] TextSS　のWindowsXP(Professional)64bit化おながいします もしくは64bitにネイティブ対応したテキスト置換ソフトありますか？ 6 名前：デフォルトの名無しさん mailto:sage [2006/03/19(日) 17:43:27 ] Part 4スレのまとめは pc8.2ch.net/test/read.cgi/tech/1051703369/993-995n 7 名前：955 mailto:sage [2006/03/21(火) 02:34:36 ] スレ立てインデックス乙乙 本当はこれがやりたかった。全画面注意 ただ単に作ったファイルを.txtにしてコピペしただけ 3ﾛｳﾀﾑﾃ2ﾛﾑﾃｸﾀﾀ0GMｳ@0G"0G,0G-0G?0GB0GO0GV0G[3ﾀq(自己改変とINT10hの練習)3ﾀq ﾌﾌﾌﾌﾌﾌﾌﾌﾌﾌﾌﾌｹﾀﾀｲ ｶ ｻｮo3ﾚS]ｻ｣J3ﾚｾ -ｸ$$Pｸﾍﾊ3ﾁP_SXｲﾐﾌWWWｳﾊWWWWｵkWWWWｲ ｵﾀP[% ｸYJ3ﾃPUSVRRWｸm Pｸｰﾌ3ﾅPUSVRRWｸm Pｸﾜﾌ3ﾅPｸｮﾎ3ﾅPUSVRRWｸ!!PｸﾝﾝPPｸｩｩPPPｸﾌﾞPRR% ｸ /PRRUSVRRWｸA}3ﾁPｸS13ﾁPｸO)Pｸ6a3ﾁ3ﾂPｸo｣3ﾂPｸﾀa3ﾁ3ﾂPUSUSVWｰA3ﾁｴRPｸa<3ﾁ3ﾂP% ｰA3ﾁｴ^PUSVRRｰﾊ3ﾁｴ PｳｪｳｪWWWWWWW3ﾀｰ"ﾑﾈﾍﾐT]ｸ&&2ﾀﾑﾈ3ﾉｱ｡3ﾒ3ﾛSSﾍﾐ^_ｸ@QﾑﾀPPﾇﾟ% 3ﾀｰ｡HﾑﾀﾑﾀPPPYｬ]ﾐﾘ\ｪW]3ﾛｷ<ﾐﾏ;ﾝu.3ﾀPPHﾍﾐ_^Iuﾍ3ﾉｱPQ^ｱ｡Iﾑﾁﾑﾁｸﾀﾋ5ﾀﾀﾍ!ﾑﾈsﾉﾍ ﾌ 8 名前：デフォルトの名無しさん mailto:sage [2006/03/21(火) 02:43:01 ] >>7 お見事 9 名前：デフォルトの名無しさん mailto:sage [2006/03/21(火) 03:04:55 ] 955氏 今回もＸＰのみ？・・・Orz 10 名前：デフォルトの名無しさん mailto:sage [2006/03/21(火) 05:34:48 ] >>9 前スレ973も>>7も、うちの2000で動く。 そもそもDOS命令なんで、OS関係ないと思われ。 前スレ960のMessageBoxは環境依存だと思うけど、 （DLL名の省略の関係？） 改変した前スレ966は2000では動きました。 >>7 すげー。INT10hはこういう使い方ができるのかー。 インデックスの方も乙。 11 名前：デフォルトの名無しさん mailto:sage [2006/03/21(火) 15:56:26 ] >>7 すげえええええええええｗｗｗｗｗｗｗｗ こんなのってどうやって付くんの？ テキストに仕方はどうやるんだろ。 アセンブラ作って変換するんだろか・・・ 12 名前：デフォルトの名無しさん mailto:sage [2006/03/21(火) 16:56:57 ] >>9 行頭・行末にスペースが入ってないことを確認して CR+LF改行で保存したら98SE@VPCでも動きますた。 &nbsp;はスペースでいいみたい。 13 名前：デフォルトの名無しさん mailto:sage [2006/03/21(火) 20:20:12 ] >  はスペースでいいみたい。 一つだけの時は、それで OK だけど、二つ以上つづく時は   にしないと、(HTML の仕様で) 一つにまとめら れちゃうよ。 14 名前：デフォルトの名無しさん mailto:sage [2006/03/21(火) 22:47:21 ] >>13 いやつまりnon-breaking spaceは$A0だから、さ 15 名前：デフォルトの名無しさん mailto:sage [2006/03/22(水) 07:41:42 ] ふと思ったが、バイナリ投稿自体は面白いが流れ的にちと怖くね？ スクリプトのコードなら何の処理か想像つくのが多いだろうが そのうち簡易ウィルスやＯＳクラッシャうｐる香具師がいつか出そうな悪寒 今浮かんだ対策は バイナリうｐ師は必ず頭に「実行は自己責任で」付けるとかその辺 当然っちゃ当然だがバイナリは読めない香具師多そうで怖い 16 名前：デフォルトの名無しさん mailto:sage [2006/03/22(水) 15:32:07 ] たしかに。 どんなのプログラムなのか必ずデバッガ上でトレースしてから実行してるが、 いきなり実行する香具師は喰らうだろうな。某流出もそういう仕組みだし。 OS吹き飛ばしたり、HDD全消去くらいなら簡単だろうが、 今の流れの形式で、ウイルスともなるとかなりレベル高そうだな。 けど、グロ画像と同じで、気づいた香具師が警告入れるだろうし、 その上で踏むのなら、自己責任しょ。 テキストに貼り付けて拡張子comに変えた時点で、その行為が意味することくらいわかってなきゃな。 どんな動作するか書いてない、2chに貼られたバイナリをいきなり実行する香具師って・・・ 17 名前：デフォルトの名無しさん mailto:sage [2006/03/26(日) 00:20:49 ] no2.no-ip.info/cgi-bin/imgboard/img-box/img20060326001931.png >>7を試したらこんなの出たけどこれでいいの? 18 名前：113 mailto:sage [2006/03/26(日) 01:31:55 ] では七歩歩く間にプログラムを書くのじゃ。テーマは兄弟にせい。 19 名前：デフォルトの名無しさん mailto:sage [2006/03/26(日) 10:21:39 ] うるせーよ、曹丕 20 名前：デフォルトの名無しさん mailto:sage [2006/03/29(水) 18:40:10 ] >>18 #include <iostream> int main() 21 名前：デフォルトの名無しさん mailto:sage [2006/03/29(水) 20:42:28 ] >>18 □歩□□玉□□□□ □歩□□□□□□□ □歩□□□□□□□ □歩□□□□□□□ □歩□□□□□□□ □歩□□□□□□□ □歩□□□□□□□ □角□□□□□飛□ 香桂銀金王金銀桂香 22 名前：デフォルトの名無しさん mailto:sage [2006/03/29(水) 23:35:04 ] >>21 二歩でアウトーッ！ 23 名前：デフォルトの名無しさん mailto:sage [2006/03/29(水) 23:44:22 ] 二つではないのでセーフ 24 名前：デフォルトの名無しさん mailto:sage [2006/03/30(木) 02:22:01 ] お前頭いいな 25 名前：デフォルトの名無しさん mailto:sage [2006/03/30(木) 02:50:24 ] ではどうやって２つ目の歩を置いたんだね。 26 名前：デフォルトの名無しさん mailto:sage [2006/03/30(木) 02:59:55 ] お前頭いいな 27 名前：デフォルトの名無しさん mailto:sage [2006/03/30(木) 03:03:44 ] 初期配置 28 名前：デフォルトの名無しさん mailto:sage [2006/03/30(木) 03:04:43 ] 二歩と聞くと、豊川六段(前原代表)がNHK杯でにふった時の 千葉女流のあーってさけぶやつを思い出すｗ。 29 名前：デフォルトの名無しさん mailto:sage [2006/03/30(木) 11:37:20 ] 二歩の判定に==使うコードが悪いな 俺なら>=使う 30 名前：デフォルトの名無しさん mailto:sage [2006/03/30(木) 11:55:00 ] >=を使ったらルールが変わってるよ。 31 名前：デフォルトの名無しさん [2006/03/31(金) 22:27:06 ] 7分以内に答えられたらIPA認定 oshiete1.goo.ne.jp/kotaeru.php3?q=2063991 #include <iostream.h> main(){ char *(*pp)[3]; printf("%lu", sizeof(char*)); printf(" pp%lu", pp); printf(", ++pp%lu", ++pp); } 32 名前：デフォルトの名無しさん mailto:sage [2006/03/31(金) 22:30:32 ] 匕行プログラミング 33 名前：デフォルトの名無しさん mailto:sage [2006/03/31(金) 23:41:25 ] pointer to array of pointer to charかね 　sizeof(char*　　)== 4 　sizeof(char*[3])== 12 だから12増えるのが正解だろ。 34 名前：デフォルトの名無しさん mailto:sage [2006/03/32(土) 00:18:13 ] >>33 ありがとうございました。やっと分かりました。 あとで、20ポイントつけておきますね。 35 名前：デフォルトの名無しさん mailto:sage [2006/03/32(土) 01:41:12 ] や、俺gooに登録してへんから('ω`) 36 名前：デフォルトの名無しさん [2006/03/32(土) 23:59:38 ] 最も偏差値の高いスレはここですね？ 37 名前：せっ☆マ ◆wwwwWwWWWw mailto:トリップくれた職人さん、ありがとう！ [2006/04/05(水) 15:15:35 ] とうとうVIPから来てしまいました 38 名前：デフォルトの名無しさん mailto:sage [2006/04/05(水) 22:39:45 ] 安南将棋って知らないの? 39 名前：デフォルトの名無しさん [2006/04/08(土) 19:25:54 ] 過去スレみれねえ まとめサイト欲しい 40 名前：デフォルトの名無しさん mailto:sage [2006/04/08(土) 19:32:57 ] >>39 ttp://cm.xrea.cc/ 41 名前：デフォルトの名無しさん mailto:sage [2006/04/09(日) 00:07:50 ] >>40 じつに素晴らしい 42 名前：デフォルトの名無しさん mailto:sage [2006/04/09(日) 00:19:28 ] #include <windows.h> double sin();char b[99];long*h,w[]={65537,8000,8000,524289,20},d[]={b,99,0,0,0, 1,0,0};WINAPI f(t,u,x,y,z){waveOutReset(h);waveOutWrite(h,d,32);}main(c,v)char **v;{if(c>1){for(c=99;c--;b[c]=sin(c*0.7854)*64);if((c=atoi(v[1]))>0){waveOutO\ pen(&h,-1,w,0,0,0);waveOutPrepareHeader(h,d,32);for(c=timeSetEvent(60000/c,1,f, timeBeginPeriod(1),1);!kbhit();Sleep(1));timeKillEvent(c);waveOutReset(h);wave\ OutUnprepareHeader(h,d,32);waveOutClose(h);}}} Win32用簡易メトロノーム。コマンドライン引数でBPMを指定。何かキーを押せば終了します。 マルチメディアタイマーを利用しているのでwinmm.libとのリンクが必要。 43 名前：デフォルトの名無しさん mailto:sage [2006/04/09(日) 23:47:28 ] #include <stdio.h> int a[81];s(n){int i=80,c[10];if(a[n])s(n+1);else if(n>80)for(;~i;i--)printf("\ %d%c",a[i],i%9?0:10);else{for(i=9;i;)c[i--]=0;for(i=8;i--;)c[a[n/9*9+i]]=c[a[n% 9+i*9]]=c[a[n/27*27+n%9/3*3+i%3+i/3*9]]=1;for(i=1;i<=9;i++)c[i]||(a[n]=i,s(n+1) ,a[n]=0);}}main(i){i=80;for(;~i;)scanf("%d",&a[i--]);s(0);} 数独を解くプログラムのつもり。あと2行あるからなんかしたいけど何をしようか思いつかん。 標準入力として↓みたいなファイルを食わせると答えを出す。 0 0 6 0 0 0 0 0 1 0 7 0 0 6 0 0 5 0 8 0 0 1 0 3 2 0 0 0 0 5 0 4 0 8 0 0 0 4 0 7 0 2 0 9 0 0 0 8 0 1 0 7 0 0 0 0 1 2 0 5 0 0 3 0 6 0 0 7 0 0 8 0 2 0 0 0 0 0 4 0 0 ぶっちゃけ七行やったこと殆どないんで無駄が多そう。 ちなみにあほ再帰なんで表出が減るとあほみたいに遅くなります。 将来は数々の人々みたいに立派な七行erになりたい。 44 名前：デフォルトの名無しさん mailto:sage [2006/04/10(月) 11:38:48 ] >>43 4 0 0 0 0 0 8 0 2 0 0 0 0 1 8 0 0 9 2 0 0 3 0 5 0 0 0 0 5 0 0 6 0 2 0 0 0 0 0 7 0 4 0 9 0 0 7 0 0 2 0 0 3 6 0 0 0 9 0 0 7 0 0 8 0 6 0 7 0 0 0 0 0 0 5 0 0 0 6 0 4 の問題で誤答が出ました。 45 名前：デフォルトの名無しさん mailto:sage [2006/04/10(月) 18:15:37 ] >>40 GJ! 46 名前：デフォルトの名無しさん mailto:sage [2006/04/11(火) 19:11:53 ] >>44単純なミスだった。あほだなあ自分。他にもバグめっさあるかも。 #include <stdio.h> int a[81];s(n){int i=80,c[10];if(a[n])s(n+1);else if(n>80)for(;~i;i--)printf("\ %d%c",a[i],i%9?0:10);else{for(i=9;i;)c[i--]=0;for(i=9;i--;)c[a[n/9*9+i]]=c[a[n% 9+i*9]]=c[a[n/27*27+n%9/3*3+i%3+i/3*9]]=1;for(i=1;i<=9;i++)c[i]||(a[n]=i,s(n+1) ,a[n]=0);}}main(i){i=80;for(;~i;)scanf("%d",&a[i--]);s(0);} 47 名前：デフォルトの名無しさん mailto:sage [2006/04/11(火) 22:23:27 ] >>43 入力が正規な問題かどうかを判定するルーチンいれられません？ 現状だと1を81個でも（そのまんまになるが）解答として出力されるので。 48 名前：デフォルトの名無しさん mailto:sage [2006/04/12(水) 16:36:52 ] >>46 解答をリダイレクトすると 0x00 が出力されてるので printf("%d%c",a[i],i%9?32:10); の方がいいかも。 複数解答があるときは行をあけて欲しいなぁとか。 すでに7行以下だと最適化するのもむなしいなー。 49 名前：デフォルトの名無しさん mailto:sage [2006/04/13(木) 23:15:08 ] #include <stdio.h> int a[81],c[10],j,k;o(){for(j=80;~j;j--)for(k=80;k>j;k--)if((j/9==k/9||j%9==k%9 ||(j/27==k/27&&j%9/3==k%9/3))&&a[j]==a[k]&&a[j])return 0;return 1;}s(n){int i= 80;if(a[n])s(n+1);else if(n>80){for(;~i;i--)printf("%d%c",a[i],i%9?32:10);puts( "\n");}else{for(i=1;i<=9;i++)(a[n]=i,o()?s(n+1):0,a[n]=0);}}main(i){i=80;for(;~ i;)scanf("%d",&a[i--]);o()?s(0):puts("問題おかしい");} あちこち無駄っぽい。むう。 どのみちもう７行きってて微妙だからなんか別のものを組もうかなぁ。 50 名前：デフォルトの名無しさん mailto:sage [2006/04/14(金) 10:39:22 ] 逆に問題を生成してみるとか。 あ、生成と解答をまとめると結構ハードル高くなるかな? 51 名前：デフォルトの名無しさん mailto:sage [2006/04/15(土) 02:15:07 ] 初代スレ読んできたけどレベル高いなぁ。トリッキーの1と60がすさまじい。 初代スレのWindows関連は面白かったから、ああいうのでなんかお題プリーズ。 52 名前：デフォルトの名無しさん [2006/05/07(日) 16:27:06 ] 保守＆新しい息吹待ちage 53 名前：デフォルトの名無しさん mailto:sage [2006/05/10(水) 00:45:47 ] Java script アイコンエディタ おそらくIE6専用（Mozilla 1.7は不可） 大きい■をクリックで、下のボックスに入力した色が塗られる（各色0-255）。 左上のアイコンをクリックすると、別ウィンドウで ppm 形式のデータを表示するので、 表示＞ソース＞メモ帳などが開いたら名前をつけて保存＞何とか.ppm 大きさの変更は、1行目のA=16を適当にいじる 機能も不十分だが、最大の問題点は8行だということ。誰か頼む。 <body><script>Z=[A=16];B=document.all;s=S="<br>";function Y(D){(D?self:open()). document.writeln(S)}function X(p){for(c="#",i=0;i<3;S="P3\n"+A+" "+A+"\n255")c +=(0+(Z[p*3+i]=B.tags("input")(i++).value-0).toString(16)).slice(-2);B(P=7+p*2+ p/A|0).style.color=B(++P).style.background=c;for(i=0;i<A*A*3;S+=Z[i++]+" ")i%(3 *A)?0:S+="\n"}for(i=0;i<A*A;i%A?0:S+=s,S+="<b style=color:#AAA onClick=X("+i+ ")>■</b><p style=background:#AAA;position:absolute;top:"+(i/A|0)*2+";left:"+( i++%A)*2+";overflow:hidden;width:2;height:2 onClick=Y()></p>")for(j=3;j--;)Z[i* 3+j]=176;Y(S+=s)</script>R<input>G<input>B<input> 54 名前：デフォルトの名無しさん mailto:sage [2006/05/10(水) 04:01:31 ] >>53の改良 少しインターフェースが違っているが7行化+Firefoxでも動くように。 多分Operaでも動くと思う。 <div style="width:256px"><script>A=16;function X(p){for(c=[],i=0;i<3;i++)c[i]=Z [3*p+i]=+D.T("input")[i].value;D.T("b")[p].style.background="rgb("+c.join(",")+ ")";}Z=[];D=document;for(i=0;i<A*A;D.write("<b style='background:#aaa;float:l"+ "eft;overflow:hidden;width:16px;height:16px;' onclick='X("+i+")'></b>"),i++)for (j=3;j--;)Z[i*3+j]=176;D.T=D.getElementsByTagName;</script></div>R<input>G <input>B<input><button onclick="s='P3\n'+A+' '+A+'\n255';for(i=0;i<A*A*3;s+=Z[ i++]+' ')i%(3*A)?0:s+='\n';with(self.open().document){writeln(s);close()}">出力 55 名前：デフォルトの名無しさん mailto:sage [2006/05/11(木) 00:06:33 ] 昔、お遊びでここにBASIC書いてみた者(何本か前の448)ですが、久々にここに 来てあれ書いてた頃が懐かしくなったですよ。 ・・いまだに７行は達成できないんだけどorz #それどころか、会社入ってから書かされるプログラムは肥大化して行くばかり 56 名前：デフォルトの名無しさん mailto:sage [2006/05/11(木) 01:45:24 ] 複数人での開発には、ワンライナーや7行みたいな 詰め込みコードは向かないし、他の人がコード見る場合があれば迷惑だよ だから、行数が増えるのは別に悪い事じゃない。 #短く分かり易く書けるのに、無意味に長く難しく書くのも迷惑ダガナー 57 名前：デフォルトの名無しさん mailto:sage [2006/05/11(木) 22:54:48 ] でも7行書きは楽しいよ？ 大学の課題提出とか無意味に七行化しちゃうよ 58 名前：デフォルトの名無しさん mailto:sage [2006/05/11(木) 23:46:08 ] 迷惑かどうかを考えるスレじゃないしね。 59 名前：デフォルトの名無しさん mailto:sage [2006/05/12(金) 00:15:40 ] >>56は>>55最終行へのレスだろう。 60 名前：デフォルトの名無しさん mailto:sage [2006/05/16(火) 15:46:12 ] ttp://kihira.jp/index.php?Joke%20Programs これ、トリッキーの1本人？それとも壮大なパクリ？ 61 名前：デフォルトの名無しさん mailto:sage [2006/05/16(火) 17:55:35 ] >>60 2chって文字が・・・ 多分パクリ 62 名前：デフォルトの名無しさん mailto:sage [2006/05/16(火) 18:30:46 ] >>61 Part1の32で > （関東など一部の地域での）テレビの２ちゃんねるシミュレータ、 > すなわち砂嵐シミュレータを作ってみました。ざーっていうあれです。音は鳴らないけど。 とあるから、パクリの証拠ではないんじゃない? 63 名前：デフォルトの名無しさん mailto:sage [2006/05/17(水) 00:54:35 ] パクリなら他の人の作品もパクるだろうから、 トリッキーの１さんっぽい気はする。 経歴みても頭良さそうだし。 64 名前：デフォルトの名無しさん mailto:sage [2006/05/17(水) 03:16:25 ] どうせ外人がパクったんだろ、と思ったら、日本ドメインじゃねーかｗ 確かに、1さんかもしれんな 65 名前：デフォルトの名無しさん mailto:sage [2006/05/18(木) 23:24:04 ] >>7 ｲﾐﾌWWWｳﾊWWWWｵkWWWW ｳｪｳｪWWWWWWW 66 名前：デフォルトの名無しさん mailto:sage [2006/05/19(金) 17:49:30 ] >>65 コピーしてテキストエディタに貼付けて拡張子.comで保存 但し2chビューア等には、ご丁寧にも 半角スペースみたいな記号を コピー時に&表記に変換したりする機能があったりするので 出来れば普通のブラウザからコピーを推奨 67 名前：デフォルトの名無しさん [2006/05/19(金) 18:56:48 ] >>66 >>7の2行目と5行目のことじゃね？ 68 名前：デフォルトの名無しさん mailto:sage [2006/05/19(金) 21:30:54 ] >67 空白行？ 69 名前：デフォルトの名無しさん mailto:sage [2006/05/19(金) 22:14:04 ] つーかcomファイルなんて実行できねえよ 70 名前：デフォルトの名無しさん mailto:sage [2006/05/19(金) 22:39:38 ] >>68 二行目 > ﾌﾌﾌﾌﾌﾌﾌﾌﾌﾌﾌﾌｹﾀﾀｲ ｶ ｻｮo3ﾚS]ｻ｣J3ﾚｾ -ｸ$$Pｸﾍﾊ3ﾁP_SXｲﾐﾌWWWｳﾊWWWWｵkWWWWｲ ｵﾀP[% 五行目　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 　 ~~~~~~~~~~~~~~~~~~~~~~~~~~~ > ｰA3ﾁｴ^PUSVRRｰﾊ3ﾁｴ PｳｪｳｪWWWWWWW3ﾀｰ"ﾑﾈﾍﾐT]ｸ&&2ﾀﾑﾈ3ﾉｱ｡3ﾒ3ﾛSSﾍﾐ^_ｸ@QﾑﾀPPﾇﾟ% 　　　　　　　　　　　　　　　 　　~~~~~~~~~~~~~~~~~ 71 名前：デフォルトの名無しさん mailto:sage [2006/05/19(金) 23:24:49 ] >>70 作者乙 72 名前：デフォルトの名無しさん mailto:sage [2006/05/19(金) 23:55:08 ] >>69 死ね 73 名前：デフォルトの名無しさん [2006/05/23(火) 08:28:49 ] comファイルはバイナリそのもので、 プログラムングとは言えないんじゃね？ 74 名前：デフォルトの名無しさん mailto:sage [2006/05/23(火) 08:41:54 ] 貴様ヘッドアセンブルを否定したな！ 75 名前：デフォルトの名無しさん [2006/05/23(火) 10:20:29 ] この類のは散々既出かもしれませんが、PHPで1行掲示板を書いてみました。 連投対策(同IPから60秒間連投を制限)も一応施してあります。なんかまだまだ 短くできそうな悪寒がします。 <?$ip=$_SERVER['REMOTE_ADDR'];$d=time();$n=htmlspecialchars($_POST['n']); $m=htmlspecialchars($_POST['m']);$p="log.txt";if($n&&$m){$l=@file($p); $s=explode("<>",$l[0]);if(($ip!=$s[0])||($d-$s[3]>60)){$fp=fopen($p,"w+");fputs ($fp,$ip."<>".$n."<>".$m."<>".$d."<>\n");for($i=0;$i<20;$i++)fputs($fp,$l[$i]); fclose($fp);}}?><form method=POST><input name=n>:<input name=m><input type= submit><?$l=@file($p);foreach($l as $arr){$s=explode("<>",$arr);print("<hr>[". $s[1]."] ".$s[2]." (".date("Y/m/d h:i:s", $s[3]).")");}?> 76 名前：デフォルトの名無しさん mailto:sage [2006/05/23(火) 18:25:51 ] 確かにプログラムングとは言えないな 77 名前：デフォルトの名無しさん mailto:sage [2006/05/23(火) 18:31:57 ] >>75 PHPは関数名が長いね… 縮め、改行入力阻止、0のみ入力許可 <?$f=array('n','m');foreach($f as&$v){$v=strtr(htmlspecialchars($_POST[$v]), "\n",' ');}$p='log.txt';if($f[0]!=''&&$f[1]!=''){$l=@file($p);$s=explode('<>', $l[0]);if(($ip=$_SERVER['REMOTE_ADDR'])!=$s[0]||($d=time())-$s[3]>60){$l[20]='' ;file_put_contents($p,"$ip<>$f[0]<>$f[1]<>$d<>\n".implode('',$l));}}?><form method=POST><input name=n>:<input name=m><input type=submit><?$l=@file($p); foreach($l as$arr){$s=explode('<>',$arr);echo"<hr>[$s[1]] $s[2] (".date( 'Y/m/d h:i:s',$s[3]).')';}?> 78 名前：デフォルトの名無しさん mailto:sage [2006/06/29(木) 14:59:10 ] 保守 79 名前：デフォルトの名無しさん mailto:sage [2006/07/18(火) 21:50:29 ] ﾎｯｼｭ 80 名前：デフォルトの名無しさん mailto:sage [2006/08/10(木) 02:37:10 ] シェルピンスキーのギャスケット #include <stdio.h> main() {     int x, y;     for (y = 0; y < 32; y++){ for (x = 0; x < 32; x++)     printf(x & y? "..": "■"); printf("\n"); } } 81 名前：デフォルトの名無しさん mailto:sage [2006/08/19(土) 15:58:18 ] JavaScript 弾避け。マウスカーソルを四角にぶつけないように動かす 互換性のないように作ってあるので、IE専用 <body id=B onMouseMove=y=event.y;x=event.x><script>h=B.clientHeight-20;a=[b=[q= [D=document]]];for(U=x=99;x--;C=F=q[x]=P=y=0)D.write("<b style=background:red;" +"width=16;height=16;position:absolute;top:-20></b>");function T(){for(i=C;i--* !F;J=D.all(5+i).style,l=q[i]/U,m=J.left=a[i]*(c=1-l)+a[d=i+U]*l,n=J.top=b[i]*c+ b[d]*l,F=m-15<x&x<m+16&n-15<y&y<n+16)if(!q[s=i]--)for(j=2;j--;s+=R%3+1)R=Math. random(q[i]=U)*w*h|0,a[c=j?i:i+U]=s%2?s%4>1?0:w:R%w,b[c]=s%2?R%h:s%4?h:0;P++-C* 9||C-U&&C++;if(F)alert(P);else setTimeout(T,U-C)}T(w=B.clientWidth-20)</script> 82 名前：デフォルトの名無しさん mailto:sage [2006/08/19(土) 16:15:30 ] GJ! だんだん多く速くなるあたり職人芸だな 83 名前：デフォルトの名無しさん [2006/08/28(月) 21:02:17 ] 保守age 84 名前：デフォルトの名無しさん mailto:sage [2006/09/29(金) 15:58:31 ] 保守 85 名前：デフォルトの名無しさん [2006/10/09(月) 16:07:24 ] hosyu 86 名前：デフォルトの名無しさん [2006/10/10(火) 20:06:29 ] 俺には無理だったお題 perlでモジュールを使わずに7行でRSSリーダー(RSS to html)を作れ LWP::Simpleも使わずに7行はやっぱり無理か？？ 87 名前：デフォルトの名無しさん mailto:sage [2006/10/10(火) 20:13:20 ] RSSリーダーの定義による 88 名前：86 [2006/10/10(火) 20:24:20 ] 定義はRSSをgetして、htmlに変換するってもの LWP::Simpleと、XML::RSSで作れたんだがモジュール無しは俺にはむりぽ 89 名前：デフォルトの名無しさん mailto:sage [2006/10/10(火) 23:22:55 ] Socketも使えんがな 90 名前：デフォルトの名無しさん mailto:sage [2006/10/10(火) 23:32:32 ] curlで取得 91 名前：デフォルトの名無しさん [2006/10/10(火) 23:33:19 ] 一先ずLWP::Simpleだけで作れないかやってみるお 92 名前：デフォルトの名無しさん mailto:sage [2006/10/11(水) 00:28:14 ] XSLT使えば2〜3行で書けるんじゃない？あほらしくてやる気しないけど 93 名前：デフォルトの名無しさん mailto:sage [2006/10/12(木) 14:02:19 ] じゃあ俺も無理だったお題。 Cで7行正規表現。どうやっても7行は無理だったｗ 腕に覚えのある奴がいたら、是非挑戦してみてくれ。 94 名前：デフォルトの名無しさん mailto:sage [2006/10/12(木) 14:07:44 ] >>93 正規表現って何をサポートすればいいんだ？ 95 名前：デフォルトの名無しさん mailto:sage [2006/10/12(木) 22:49:52 ] #include "regexp.h" 96 名前：デフォルトの名無しさん mailto:sage [2006/10/12(木) 22:53:17 ] #include <boost/regex.h> 97 名前：デフォルトの名無しさん mailto:sage [2006/10/14(土) 02:02:18 ] catコマンドってC言語で7行で作れる？ どこまでの機能を詰め込めるかの問題になりそうだけど。 98 名前：97 mailto:sage [2006/10/14(土) 02:04:30 ] 作れる？ってのはおかしいか。 作るだけなら余裕だろうし。 どれだけ機能を削ったり詰め込めるかって感じ。 99 名前：トリッキーの１ mailto:sage [2006/10/14(土) 05:40:11 ] お久しぶりです。part1でお世話になったトリッキーの１です。 >>60-64で晒されていますが、そのサイトは私のサイトです。 正規表現が面白そうだったので久々に作ってみましたが、9行になりました。 縮めるテクニックなどを完全に忘れてしまっていますが、頑張れば7行は可能そうです。 仕事の合間に7行目指して頑張ってみようと思います。 使える記号は()*|のみです。とりあえずこれだけあれば他のも表現できると思います。 文脈自由文法は、 R ::= T | T "|" R T ::= ε | FT F ::= P | P* P ::= char | "(" R ")" となっています。gcc2.91でのみコンパイル確認しました。 使い方は、"a.exe regexp"とすれば、標準入力から読んだ内容をregexpで走査します。 見つかればmatchと表示して終了します #include <stdio.h> int n[999][99],z=2,i;char*s,c[999][99],v[9999];h(f,t,k){for(i=0;c[f][i]!=0;i++) ;c[f][i]=k;n[f][i]=t;}p(int o,int f,int t,char*l){int x;if(l){for(x=0;(f=c[o][x ])!=0;x++)if((f==1||*l==f)&&(n[o][x]==1||p(n[o][x],0,0,(f==1)?l:l+1)))return 1; }else{(o==0)?p(1,f,t,0),(*s=='|')?s++,p(0,f,t,0):0:(o==1)?(*s==')'||*s=='|'||*s ==0)?h(f,t,1):(x=z++,p(2,f,x,0),p(1,x,t,0)):(o==2)?(x=z++,c[x][0]=1,n[x][0]=t,p (3,f,x,0),(*s=='*')?h(f,t,1),s++,n[x][0]=f:0):(*s)?(*s=='(')?(s++,p(0,f,t,0),++ s,0):h(f,t,*s++):0;}}main(int x, char**o){s=o[1];p(0,0,1,0);while(gets(v)){s=v; while(*s){if(p(0,0,0,s++))return printf("match");}}} 100 名前：トリッキーの１ mailto:sage [2006/10/14(土) 05:47:13 ] 多分大体のコンパイラで動くバージョンはこちらです。連投失礼しました。 #include <stdio.h> int n[999][99],z=2,i;char*s,c[999][99],v[9999];p(int o,int f,int t,char*l){int x;if(l){for(x=0;(f=c[o][x])!=0;x++)if((f==1||*l==f)&&(n[o][x]==1||p(n[o][x],0, 0,(f==1)?l:l+1)))return 1;}else{(o==0)?p(1,f,t,0),(*s=='|')?s++,p(0,f,t,0):0:( o==1)?(*s==')'||*s=='|'||*s==0)?c[f][c[f][98]]=1,n[f][c[f][98]++]=t:(x=z++,p(2 ,f,x,0),p(1,x,t,0)):(o==2)?(x=z++,c[x][0]=1,n[x][0]=t,p(3,f,x,0),(*s=='*')?c[f ][c[f][98]]=1,n[f][c[f][98]++]=t,s++,n[x][0]=f:0):(*s)?(*s=='(')?(s++,p(0,f,t, 0),s++,0):(c[f][c[f][98]]=*s++,n[f][c[f][98]++]=t):0;}return 0;}main(int x,char **o){s=o[1];p(0,0,1,0);while(gets(v)){s=v;while(*s){if(p(0,0,0,s++))return printf("match");}}return 0;} 101 名前：デフォルトの名無しさん mailto:sage [2006/10/14(土) 10:22:42 ] ｷﾀ━━(━(━(-( ( (ﾟ∀ﾟ) ) )-)━)━) ━━ !!!!!

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef