七行プログラミング part2

1 名前：デフォルトの名無しさん [02/04/15 12:09] 7行×79文字なら言語は問いません。 過去作品は>>2-5を参照。 ■前スレ pc.2ch.net/test/read.cgi/tech/984182993/ 2 名前：デフォルトの名無しさん [02/04/15 12:09] ■HTTP鯖 pc.2ch.net/test/read.cgi/tech/984182993/706 pc.2ch.net/test/read.cgi/tech/984182993/760 pc.2ch.net/test/read.cgi/tech/984182993/770 ■DNA pc.2ch.net/test/read.cgi/tech/984182993/762 ■e pc.2ch.net/test/read.cgi/tech/984182993/769 ■mersenne twister pc.2ch.net/test/read.cgi/tech/984182993/749 pc.2ch.net/test/read.cgi/tech/984182993/750 pc.2ch.net/test/read.cgi/tech/984182993/753 ■BMPGEN pc.2ch.net/test/read.cgi/tech/984182993/775 ■tar -xvzf pc.2ch.net/test/read.cgi/tech/984182993/776 ■蛇 pc.2ch.net/test/read.cgi/tech/984182993/792 pc.2ch.net/test/read.cgi/tech/984182993/798 ■proxy pc.2ch.net/test/read.cgi/tech/984182993/835 pc.2ch.net/test/read.cgi/tech/984182993/839 ■BBS pc.2ch.net/test/read.cgi/tech/984182993/840 pc.2ch.net/test/read.cgi/tech/984182993/841 pc.2ch.net/test/read.cgi/tech/984182993/842 pc.2ch.net/test/read.cgi/tech/984182993/877 3 名前：デフォルトの名無しさん [02/04/15 12:09] ■pac-man pc.2ch.net/test/read.cgi/tech/984182993/849 pc.2ch.net/test/read.cgi/tech/984182993/852 pc.2ch.net/test/read.cgi/tech/984182993/853 pc.2ch.net/test/read.cgi/tech/984182993/856 pc.2ch.net/test/read.cgi/tech/984182993/866 pc.2ch.net/test/read.cgi/tech/984182993/869 pc.2ch.net/test/read.cgi/tech/984182993/870 pc.2ch.net/test/read.cgi/tech/984182993/879 pc.2ch.net/test/read.cgi/tech/984182993/885 pc.2ch.net/test/read.cgi/tech/984182993/905 ■calendar pc.2ch.net/test/read.cgi/tech/984182993/904 ■再帰アフォ pc.2ch.net/test/read.cgi/tech/984182993/646 ■BASIC pc.2ch.net/test/read.cgi/tech/984182993/448 pc.2ch.net/test/read.cgi/tech/984182993/497 pc.2ch.net/test/read.cgi/tech/984182993/498 pc.2ch.net/test/read.cgi/tech/984182993/510 pc.2ch.net/test/read.cgi/tech/984182993/511 pc.2ch.net/test/read.cgi/tech/984182993/514 ■砂嵐 pc.2ch.net/test/read.cgi/tech/984182993/52 pc.2ch.net/test/read.cgi/tech/984182993/75 pc.2ch.net/test/read.cgi/tech/984182993/76 pc.2ch.net/test/read.cgi/tech/984182993/78 pc.2ch.net/test/read.cgi/tech/984182993/89 ■ラスタスクロール pc.2ch.net/test/read.cgi/tech/984182993/105 pc.2ch.net/test/read.cgi/tech/984182993/125 pc.2ch.net/test/read.cgi/tech/984182993/129 ■インデント揃え pc.2ch.net/test/read.cgi/tech/984182993/116(pc.2ch.net/test/read.cgi/tech/984182993/126 pc.2ch.net/test/read.cgi/tech/984182993/138) pc.2ch.net/test/read.cgi/tech/984182993/688 4 名前：デフォルトの名無しさん [02/04/15 12:10] ■圧縮 pc.2ch.net/test/read.cgi/tech/984182993/101 pc.2ch.net/test/read.cgi/tech/984182993/135 pc.2ch.net/test/read.cgi/tech/984182993/146 pc.2ch.net/test/read.cgi/tech/984182993/153(pc.2ch.net/test/read.cgi/tech/984182993/154) pc.2ch.net/test/read.cgi/tech/984182993/696 pc.2ch.net/test/read.cgi/tech/984182993/737 pc.2ch.net/test/read.cgi/tech/984182993/740 pc.2ch.net/test/read.cgi/tech/984182993/744 ■倉庫番 pc.2ch.net/test/read.cgi/tech/984182993/118(pc.2ch.net/test/read.cgi/tech/984182993/120) pc.2ch.net/test/read.cgi/tech/984182993/150(pc.2ch.net/test/read.cgi/tech/984182993/148) pc.2ch.net/test/read.cgi/tech/984182993/179(pc.2ch.net/test/read.cgi/tech/984182993/180) pc.2ch.net/test/read.cgi/tech/984182993/774 ■HTTPクライアント pc.2ch.net/test/read.cgi/tech/984182993/161 ■動画再生？ pc.2ch.net/test/read.cgi/tech/984182993/205 ■レイトレ pc.2ch.net/test/read.cgi/tech/984182993/170 pc.2ch.net/test/read.cgi/tech/984182993/209 ■迷路(模様？) pc.2ch.net/test/read.cgi/tech/984182993/283 pc.2ch.net/test/read.cgi/tech/984182993/285 (pc.2ch.net/test/read.cgi/tech/984182993/287) pc.2ch.net/test/read.cgi/tech/984182993/305 ■ツール pc.2ch.net/test/read.cgi/tech/984182993/319 ■ライフゲェム pc.2ch.net/test/read.cgi/tech/984182993/320 pc.2ch.net/test/read.cgi/tech/984182993/812 pc.2ch.net/test/read.cgi/tech/984182993/815 pc.2ch.net/test/read.cgi/tech/984182993/817 pc.2ch.net/test/read.cgi/tech/984182993/818 pc.2ch.net/test/read.cgi/tech/984182993/822 5 名前：デフォルトの名無しさん [02/04/15 12:10] ■オセロ pc.2ch.net/test/read.cgi/tech/984182993/336 pc.2ch.net/test/read.cgi/tech/984182993/337 pc.2ch.net/test/read.cgi/tech/984182993/352 pc.2ch.net/test/read.cgi/tech/984182993/372 ■四則演算 pc.2ch.net/test/read.cgi/tech/984182993/396 pc.2ch.net/test/read.cgi/tech/984182993/397 pc.2ch.net/test/read.cgi/tech/984182993/402 pc.2ch.net/test/read.cgi/tech/984182993/424 pc.2ch.net/test/read.cgi/tech/984182993/430 ■nCr(重複組み合わせ) pc.2ch.net/test/read.cgi/tech/984182993/486 ■BASE64 pc.2ch.net/test/read.cgi/tech/984182993/488 pc.2ch.net/test/read.cgi/tech/984182993/493 pc.2ch.net/test/read.cgi/tech/984182993/494 ■マインスイーパ pc.2ch.net/test/read.cgi/tech/984182993/385 pc.2ch.net/test/read.cgi/tech/984182993/537 pc.2ch.net/test/read.cgi/tech/984182993/540 ■tic-tac-toe pc.2ch.net/test/read.cgi/tech/984182993/336 >519 pc.2ch.net/test/read.cgi/tech/984182993/526 ■high&low pc.2ch.net/test/read.cgi/tech/984182993/530 ■printf pc.2ch.net/test/read.cgi/tech/984182993/425 pc.2ch.net/test/read.cgi/tech/984182993/428 ■素因数分解 pc.2ch.net/test/read.cgi/tech/984182993/573 pc.2ch.net/test/read.cgi/tech/984182993/574 ■dump pc.2ch.net/test/read.cgi/tech/984182993/609 pc.2ch.net/test/read.cgi/tech/984182993/612 ■起動時間表示 pc.2ch.net/test/read.cgi/tech/984182993/623 pc.2ch.net/test/read.cgi/tech/984182993/624 pc.2ch.net/test/read.cgi/tech/984182993/625 pc.2ch.net/test/read.cgi/tech/984182993/627 pc.2ch.net/test/read.cgi/tech/984182993/630 pc.2ch.net/test/read.cgi/tech/984182993/631 ■MIDIピアノ pc.2ch.net/test/read.cgi/tech/984182993/687 6 名前：デフォルトの名無しさん mailto:sage [02/04/15 12:11] おつ 7 名前：1 mailto:sage [02/04/15 12:19] 前スレの909-911に貼れば良かった… 前スレの909-911さんお疲れ様です。 欝だ…逝ってくる… 8 名前：デフォルトの名無しさん mailto:age [02/04/15 14:49] part1より下なのでage。 9 名前：前スレ909-911 [02/04/15 21:12] 見落としとか、結構あると思うんですが、ご勘弁を。 個人的には、BASICがすげえ好きなんだよなあ 10 名前：デフォルトの名無しさん mailto:sage [02/04/15 21:43] 神様が集うｽﾚはここですか？ 11 名前：デフォルトの名無しさん mailto:sage [02/04/15 22:02] 昔、マシン語にして数百バイトで動くBASICがあったそうな。 12 名前：デフォルトの名無しさん [02/04/15 22:52] BASICってのは、 >>448 >>497 >>498 >>510 >>511 >>514 の奴ね 13 名前：デフォルトの名無しさん [02/04/15 23:11] Windowプログラムをもっとやってほしい。 砂嵐のやつみたいな。 14 名前：宗男くさい？ [02/04/15 23:13] じゃぁ、誰か、日本語の簡単なプログラミング言語つくって！！？ 初心者向けの！ 15 名前：デフォルトの名無しさん mailto:sage [02/04/15 23:24] CYGWINかBorlandのbccでコンパイルできるのだと嬉しいな。 16 名前：S ◆Q14CxNhI [02/04/15 23:51] 新スレ初作品ズザー 前スレ 901 のスロットゲームです。 ついに７行になったのですが、もうわけわかめ、あまりにもトリッキーになってしまいました。 <body onKeyDown=K=1><pre><script>R=7;D=document;function Y(){D.all(7).innerHTML =P;if(K){R>>=1;if(!R){o=A[0]&56;if(o-(A[1]&56)||o-(A[2]&56)){alert("残念");if(P <5)return alert("END")}else alert(g=T[o/=8]),P+=g;P-=5;R=7}}for(K=i=0;i<9;C[i++ %3]/=8)j=A[i],C[i]=A[i]=R&4>>i?j=j%(1<<27)*8|j>>27:j,D.all[9+i].innerHTML=S[C[i %3]&7];setTimeout(Y,99)}S="７□＝○∴｜￥＄".split("");T=[100,5,10,15,20,30,P= 45,60];A=[0x16E29519,0x1DCC2E65,0x384CD988];C=[];a="<b></b><b></b><b></b>\n";D. write(a,a,a,a);for(i=8;i--;K=0)D.write("\n\t",S[i]," ",T[i]);Y()</script> 17 名前：デフォルトの名無しさん [02/04/16 01:29] >>5 オセロは神 18 名前：デフォルトの名無しさん [02/04/16 01:37] ｽｹﾞｰ(ﾟДﾟ) >>2-5 19 名前：デフォルトの名無しさん mailto:sage [02/04/16 01:53] 無知で申し訳無いんだけど、元ネタの７行プログラムって セミコロンのところで改行入れてなかったの？ だとしたら７行なんてインチキだよねぇ。 横幅一万バイトまで書けるエディタ使えば誰でも７行で組めるじゃん。。 20 名前：デフォルトの名無しさん [02/04/16 01:59] 四則演算ｽﾊﾞﾗｼｲ 21 名前：102 mailto:sage [02/04/16 02:41] >>19 1をしっかりよみませぅ。 22 名前：デフォルトの名無しさん [02/04/16 07:21] 実は大したことないんだよ、このスレの作品って。 みんなすげーすげー逝ってるけど、自分で組んでみたら簡単に出来る奴も多い。 例えばラスタースクロールなんて無茶苦茶簡単だし、スライド辞書圧縮も楽勝。 四則演算もなんでこいつらが苦労してたのかわからないくらいあっさり達成できるぞ。 まあ、中には凄い奴もあるけどな。純粋にオセロ（６行）は度肝を抜かれたし、 砂嵐とかは別の意味で凄いと思ったが。 とにかく、盲目的にマンセー言う前に、本当に難しいかどうか自分で作ってみろ。 23 名前：デフォルトの名無しさん mailto:sage [02/04/16 07:49] >>21 すいませんでした。。 ところで元ネタでアメリカの大学生が作ったと言う七行プログラムは セミコロンで改行してたんでしょうか？誰か知りません。 24 名前：デフォルトの名無しさん mailto:sage [02/04/16 07:59] >>23 大いなる勘違い野郎ですね。 前スレ読んで出直してきなさい 25 名前：23 [02/04/16 09:44] 出直して参りましたｗ。 なんだやっぱりただ横幅８０バイトで７行に収まったてだけなんですね。 それはインチキですよ！ｗ きっちりインデントして、７行だったら僕は感動で涙を流すでしょうね。まじで。 まあそれでもすごいことは確かですけど。しかも高校生だし。 26 名前：デフォルトの名無しさん mailto:sage [02/04/16 09:49] >>25 若さ溢れる発言おおいに結構。 君が言うのは「今風」のプログラミングスタイルだね。 はるか昔、「N88-Basic」の頃は１行に２つ以上の命令を書くことはザラだったのだよ。 感動する／しないは個人の感覚だから、君が感動しようがしまいが知ったことではないが。 27 名前：デフォルトの名無しさん mailto:sage [02/04/16 09:51] >>23 してないと思われ。 大体、セミコロンで改行って概念があるプログラミング言語で作られたかどうかも怪しい… 28 名前：デフォルトの名無しさん mailto:sage [02/04/16 12:18] >>25 厨房だから仕方ないが、そういうことは自分で出来るようになってから 言ってくれ。読んでて恥ずかしい。 29 名前：1 [02/04/16 12:47] >>2-5 よく見てみたらカッコとかもあるし… 鬱出し脳… 30 名前：デフォルトの名無しさん mailto:sage [02/04/16 13:22] 出だしからこれじゃ(>>19=>>23=>>25 >>22)糞スレ街道まっしぐらなんで、放置ｷﾎﾞﾝﾇ >>22はどうやら すごい・すごくない が判定できるようだから、 これができたらすごいという例を挙げてくれ。 31 名前：デフォルトの名無しさん mailto:sage [02/04/16 14:01] >>30 BMP→JPEG 絶対無理だけどできたら紙 32 名前：デフォルトの名無しさん mailto:sage [02/04/16 16:40] >>31 あんた22？ 絶対不可能な例を出してどうするんだよ。 jpegの方はステートマシンで楽に書けるが、BMPは処理の本質ではない ファイルフォーマットのハンドリングだけでかなりの文字数を要する。 固定長ででかいヘッダを抱えてるから処理を省略できないからな。 こういうとうてい無理な例を挙げるなら誰にでもできるだろ 7行でoffice作れって言うのと同じだ。 改めて言う、7行でできなさそうでできるぎりぎりの例を挙げてくれ。 33 名前：デフォルトの名無しさん mailto:sage [02/04/16 17:47] つか>>22に７行ぎりぎりなんて判定できるとも思えないから ２０行くらいに収まりそうなのにしてくれ 34 名前：デフォルトの名無しさん mailto:sage [02/04/16 17:57] 折角のスレが、荒れるといやだね。 どんな作品が７行プログラムに相応しいかは、旧スレでした方が良いのでは？ まだ９０近く残っているし。 大したことの無い作品を認めないようになると、 もしかすると将来神となるかも知れない人(or 作品)の芽をつむことになる。 それに、傑作でなくとも、縮めのテクニックを磨く格好の材料ではないか！ 35 名前：デフォルトの名無しさん mailto:sage [02/04/16 18:30] >>34 そうそう、作品が対したことなくても、 その中で使ってる縮めのテクニックがおもしろいことも多々ある 36 名前：デフォルトの名無しさん mailto:sage [02/04/16 18:34] なんつーか、この縮めのテクニックって アセンブラでの最適化に通じるところがあると思う。 最適化と違って、こっちは役に立たないが（藁 37 名前： ◆Air.TtTk mailto:sage [02/04/16 19:21] PDT びゅーわ（１０行） 某社ゲームの、PDT形式画像ビューワ。 >java P filename PDT10 のみ対応。 透明度、PDT11、アーカイブ　未対応。 import java.awt.*;import java.awt.image.*;import java.io.*;public class P extends Frame{byte[]s;int[]q;int m,w,h,S=12,c,v,M,Q=0;Image I;public static void main(String[]_){(new P(new File(_[0]))).show();}public P(File f){s=new byte[(int )f.length()];try{InputStream R=new FileInputStream(f);R.read(s);R.close();}catch (Exception e){}w=L(4);h=L(4);S=32;q=new int[w*h];while(Q<q.length){m=s[S++];for( M=0;M<8&&Q<q.length;M++){if((m<<M&128)!=0)q[Q++]=255<<24|L(3);else{v=(s[S+1]&255 )<<4;v+=((s[S]>>4)&15)+1;for(c=s[S]&15;c>=0;c--){q[Q]=q[Q++-v];}S+=2;}}}setSize( w+80,h+80);I=createImage(new MemoryImageSource(w,h,q,0,w));}public void paint( Graphics g){g.drawImage(I,40,40,this);}int L(int l){v=c=0;while(c<l)v+=(s[S++]& 255)<<(c++)*8;return v;}} 自分の言語知識の無さを感じたよ…。 加えて、最近Swingばっかりやってたので、Frameの挙動がよく分からなかった…。 …、つか、なんでインクリメントにカッコつけてんだ俺…。 38 名前：デフォルトの名無しさん mailto:sage [02/04/16 19:45] >>31 using System.Drawing; class a{ 　static void Main(string[] args){ 　　Image b = Image.FromFile( args[0] ); 　　b.Save( args[1], System.Drawing.Imaging.ImageFormat.Jpeg ); 　} } 39 名前：デフォルトの名無しさん mailto:sage [02/04/16 20:44] >>38 つまらねー 40 名前：デフォルトの名無しさん mailto:s [02/04/16 21:12] この企画、Javaしか使えねー俺にとってはかなり不利な内容だな。 インポートとメインメソッドを書くだけで１行終わっちゃうぜ。 41 名前：デフォルトの名無しさん mailto:sage [02/04/16 21:17] >>40 あん？ c/c++だと#includeで１行終わるが、なにか？ 42 名前：デフォルトの名無しさん mailto:sage [02/04/16 21:28] www.geocities.co.jp/SiliconValley-SanJose/8609/labo/jpegcoder.html このコードは７行に縮まらない？ 43 名前：デフォルトの名無しさん mailto:s [02/04/16 21:35] >>41 そうだったんだー。なんせ全然、他の言語知らないもんでスマソｗ。 でも何かJavaって何かにつけて長文になっちゃうような気がするんだよね。 隣のなんとやらは良く見える ってやつかなｗ 44 名前：S ◆Q14CxNhI mailto:sage [02/04/16 23:39] Java を知らないから全然縮まらない〜、と言ってみるテスト import java.awt.*;import java.awt.image.*;import java.io.*;public class P extends Frame{byte[]s;int m,w,h,S=12,c,v,M,Q=0,q[];Image I;public static void main(String[]_){(new P(new File(_[0]))).show();}public P(File f){try{(new FileInputStream(f)).read(s=new byte[(int)f.length()]);}catch(Exception e){}w=L( 4);h=L(4);S=32;for(q=new int[w*h];Q<w*h;){m=s[S++];for(M=0;M<8&&Q<w*h;){if((m<< M++&128)>0)q[Q++]=255<<24|L(3);else{v=(s[S+1]&255)<<4;v+=s[S]>>4&15;for(c=s[S]& 15;c-->=0;q[Q]=q[Q++-v-1]);S+=2;}}}setSize(w+80,h+80);I=createImage(new MemoryImageSource(w,h,q,0,w));}public void paint(Graphics g){g.drawImage(I,40, 40,this);}int L(int l){for(v=c=0;c<l;v+=(s[S++]&255)<<c++*8);return v;}} 45 名前：22 mailto:sage [02/04/16 23:59] すまぬ、荒らすつもりは無かったんだが、言い方が悪かったな。 なんだか前スレで、いい作品が評価されず、いまいちの作品が よく話題に挙がっているのが勿体なく感じてしまって。 それでも本当にいい作品はちゃんと評価されているんだけれどね。 ま、>>34に同意というわけで、前言撤回します。スマヌ。 ついでにネタを振ると、Windowsでテトリスを作ってくだされ>>特にトリッキーの１氏 46 名前：前スレ904 [02/04/17 00:25] GCCで警告が出ない範囲でさらに縮めてみました。 #include <stdio.h> #include <stdlib.h> int y,m=-1,s,d;int main(int h,char**v){printf("%9s%5d\nSu Mo Tu We Th Fr Sa\n", "Jan\0Feb\0Mar\0Apr\0May\0Jun\0Jul\0Aug\0Sep\0Oct\0Nov\0Dec"+(m+=atoi(v[1]))*4, y=atoi(v[2]));d="&#&%&%&&%&%&"[m]-6+(m-1&&(y%400?(y%100&&(y%4?0:1)):1));if(m<2) y--;y=s=(y+y/4-y/100+y/400+"#&%(#&($')%'"[m]-34)%7;while(y--)printf(" ");for( ;-y<d;y--)printf("%2d%c",-y,(s-y)%7?0:'\n');puts("");return 0;} 47 名前：デフォルトの名無しさん mailto:sage [02/04/17 00:29] Windowsでテトリスは不可能だっつーの 内容のないスケルトン（砂嵐）でさえぎりぎりだったんだから。 48 名前：デフォルトの名無しさん mailto:sage [02/04/17 00:32] Excel VBA でテトリスとかできないかね。 49 名前：22 mailto:sage [02/04/17 00:33] >>47 C++とは言っていないがダメかな？ 50 名前： ◆Air.TtTk mailto:sage [02/04/17 00:56] PDT びゅーわ（９行） import java.awt.*;import java.io.*;public class P extends Frame{byte m,s[];int w ,h,S=12,c,v,M,Q=0,q[],n;Image I;static void main(String[]_){(new P(new File(_[0] ))).show();}P(File f){s=new byte[(int)f.length()];try{(new FileInputStream(f)). read(s);}catch(Exception e){}w=L(4);h=L(4);S=32;q=new int[n=w*h];while(Q<n){m=s[ S++];for(M=0;M<8&&Q<n;M++){if((m<<M&128)>0)q[Q++]=255<<24|L(3);else{v=(s[S+1]& 255)<<4;v+=(s[S]>>4&15)+1;for(c=s[S]&15;c>=0;c--)q[Q]=q[Q++-v];S+=2;}}}setSize(w +80,h+80);I=createImage(new java.awt.image.MemoryImageSource(w,h,q,0,w));}public void paint(Graphics g){g.drawImage(I,40,40,this);}int L(int l){v=c=0;while(c<l)v +=(s[S++]&255)<<c++*8;return v;}} InputStreamを close() していません。（ぉ 51 名前：デフォルトの名無しさん mailto:sage [02/04/17 01:12] >>50 > java P xxx.pdt Main method not public. といわれました（報告） 52 名前：デフォルトの名無しさん mailto:sage [02/04/17 01:19] >>50 宣言部分以外では、>>44 の方が大分短いやんけ 53 名前：S ◆Q14CxNhI mailto:sage [02/04/17 01:24] かきこいっぱいですねぇ。 >>52 そんなに短くはないかと。Java は難しいですね。 import java.awt.*;import java.io.*;public class P extends Frame{byte[]s;int m,w ,h,S=12,c,v,M,Q=0,q[];Image I;public static void main(String[]_){(new P(new File(_[0]))).show();}P(File f){try{(new FileInputStream(f)).read(s=new byte[( int)f.length()]);}catch(Exception e){}w=L(4);h=L(4);S=32;for(q=new int[w*h];Q<w *h;)for(m=s[S++],M=0;M<8&&Q<w*h;){if((m<<M++&128)>0)q[Q++]=255<<24|L(3);else{ for(c=s[S]&15;c-->=0;)q[Q]=q[Q++-(s[S+1]&255)*16-(s[S]>>4&15)-1];S+=2;}}setSize (w+80,h+80);I=createImage(new java.awt.image.MemoryImageSource(w,h,q,0,w));} public void paint(Graphics g){g.drawImage(I,40,40,this);}int L(int l){for(v=c=0 ;c<l;v+=(s[S++]&255)<<c++*8);return v;}} 54 名前： ◆Air.TtTk mailto:sage [02/04/17 01:44] >51 あらまっ。ボクのPC(Win98)では JDK1.2.2_007 動作。 JDK1.3.1_01 動作。 JDK1.4.0 エラー。 となりました。 >52 何かをimportしなかったので、何かが増えたわけですね。 55 名前：デフォルトの名無しさん mailto:sage [02/04/17 09:56] >>36 小手先よりもまずアルゴリズムの見直しからスタートするから 結構役に立つと思うよ。 組み込み系用にいくつかここからパクったアイデアあるし。 56 名前：前スレ843 [02/04/17 12:55] トリッキーの１氏は見てないの？ もう一度舞い降りれ！ 57 名前： ◆Air.TtTk mailto:sage [02/04/17 15:49] PDT びゅーわ（８行） import java.awt.*;import java.io.*;public class P extends Frame{Image I;int w,h, S=12,c,v,m,M=0,Q=0,q[];public static void main(String[]_){new P(new File(_[0])); }P(File f){try{(new FileInputStream(f)).read(s=new byte[(int)f.length()]);}catch (Exception e){}w=L(4);h=L(4);S=32;for(q=new int[w*h];Q<w*h;){if(--M<0){M=7;m=L(1 );}if((m>>M&1)>0)q[Q++]=255<<24|L(3);else for(v=L(1)>>4|L(1)<<4,c=s[S-2]&15;c-- >=0;)q[Q]=q[Q++-v-1];}I=createImage(new java.awt.image.MemoryImageSource(w,h,q,0 ,w));setSize(w+80,h+80);show();}int L(int l){for(v=c=0;c<l;)v+=(s[S++]&255)<<c++ *8;return v;}byte[]s;public void paint(Graphics g){g.drawImage(I,40,40,this);}} プログラムというよりパズルですわ。 さすがに７行は無理な気がする。 58 名前：デフォルトの名無しさん mailto:sage [02/04/17 16:03] まあ、何度も絶対不可能が縮まったわけだからがんばれ 一念発起してVisualC++をアンインストールしちまったけどな うらやましいだろ、みなさん また来週に入れなきゃいけなさそうなんであれですけど 59 名前：S ◆Q14CxNhI mailto:sage [02/04/17 19:21] テトリスだけど、JavaScript で現在１１行でできています。 バグバグでまだとても公開できないですが、近日中に必ずアプします。 アルゴリズムの最適化もほとんどしていない状態で１１行なので、 最終的には７行になるのではないかと、期待しています。 60 名前：デフォルトの名無しさん [02/04/17 22:31] >>59 見せてアゲ 61 名前：S ◆Q14CxNhI [02/04/17 23:46] テトリス。現在１０行。 カーソルキーの左右で移動、スペースキーで回転。 ゲームバランス悪いし、もっと縮めてからとも思ったのですが、 明日はネットに接続できないので、今日アプしておきます。 左右移動と落下、ライン消去の部分をもっと削ることができるかと思います。 <body onKeyDown=K=event.keyCode><pre><script>function Y(){Z[11]=P;f=0;E=B[t];if (K)if(K-32){d=[-1,0,1,0][K-37];for(i=4;--i;)Z[h+E[i]+d]==S?f=1:0;f?0:h+=d}else{ C=[];for(i=0;i<4;Z[h+(C[i++]=p*12-v*145)]==S?f=1:0)p=E[i],v=Math.round(p/12);!f &&t?E=B[t]=C:0}f=K=0;for(i=W;i--;Z[W+i]=Z[i]);for(i=4;i--;Z[W+p]=S)if(Z[12+(p=h +E[i])]==S)f=1;if(f==1){for(i=4;i--;)Z[h+E[i]]=S;t=(t+1)%7;h=5}h+=12;for(f=1,i= 19;i--;){for(j=11;--j&&Z[i*12+j]==S;);if(!j)for(P+=f++,j=i++;j>=1;j--)for(k=1;k <11;k++)Z[l=j*12+k]=Z[l-12]}for(i=W;i--;D.all(6+i).innerHTML=Z[W+i]);if(Z[5]!=S )setTimeout(Y,99)}S="□";W=240;D=document;Z=[];B=[[-11],[-24],[2],[13],[-13],[- 1],[2,-1]];for(K=t=P=i=0;i<W;){if(i<7)B[i].push(0,1,-12);Z[i]=(i+1)%12<2||i>228 ?S:"　";D.write(i++%12?"":"\n","<b></b>")}h=17;Y()</script> 62 名前：デフォルトの名無しさん mailto:sage [02/04/18 00:21] >>61 良くできているけれど、結構バグがあるね。 とりあえずテトリス棒が壁とかにめり込む事が頻繁にあるみたいです。 あと、回転するとめり込むこともありました。 63 名前：デフォルトの名無しさん mailto:sage [02/04/18 00:25] >>61 ライフゲームの時は良かったが、 テトリスみたいな真っ当なゲームだとキーの反応がどうしてもね…… でも結構いいんじゃない？ブロックをどのような構造で管理してる？ 64 名前：S ◆Q14CxNhI mailto:sage [02/04/18 00:36] >>62 >>63 どもです。 キー入力は、ループ中に２回判定させようかと思ってます。文字数増えるけど。 ブロックは中心と上と右を固定し、それ＋１個で形を決定します。 テトリス棒だけは直線にするために、＋２個を配列の最初に確保 [2,-1]し、 はみ出す上を無視するようにしました。 バグは・・・何とかします、しましょう、してください・・・ 65 名前：デフォルトの名無しさん mailto:sage [02/04/18 11:40] このスレの問題点として、縮める前のコードがないために 他の人がいっしょに縮めることが難しくなってる。 前スレのトリッキー１、６０、あたりが良く一緒に縮めていたけれど、 あれは特殊な例だと思う。 （それとも彼らレベルになれば、縮んでいても普通に読めるのかも） かといってみんなが縮める前のコードをウプしたら、 かなり鬱陶しいだろうし、難しい問題だよな。 このスレを七行になったもの専門にして、 別に七行作業スレッドとかを作ってそっちで議論するとか・・・ 66 名前：デフォルトの名無しさん mailto:sage [02/04/18 12:00] むしろ7行モード・インデントして読みやすいモードを変換するフィルタを7行で書く。 67 名前：前スレ [02/04/18 12:31] >>66 perlのインデントツールは現在製作中ですが何か？ 68 名前：デフォルトの名無しさん mailto:sage [02/04/18 12:38] >>66-67 65とちょっとずれてないか？ 69 名前：perl16 [02/04/18 13:26] >>67 訂正 s/前スレ/前スレ843/; 70 名前：デフォルトの名無しさん mailto:sage [02/04/18 14:20] 57◆Air.TtTk氏のPDT びゅーわを詰めてみました。7行。 import java.awt.image.*;public class P{public static void main(String[]_){new java.awt.Frame(){int w,h,c,v,m,M,Q,q[],r,i;BufferedImage I;{L(12);w=L(4);h=L(4 );L(12);for(q=new int[w*h];Q<w*h;){if(--M<0){M=7;m=L(1);}if((m>>M&1)>0)q[Q++]= L(3);else for(v=(c=L(1))>>4|L(1)<<4,c=c&15;c-->=0;)q[Q]=q[Q++-v-1];}setSize(w+ 80,h+80);(I=new BufferedImage(w,h,1)).setRGB(0,0,w,h,q,0,w);}public void paint (java.awt.Graphics g){g.drawImage(I,40,40,this);}int L(int l){try{for(r=i=0;i< l;)r+=System.in.read()<<8*i++;}catch(Exception e){}return r;}}.show();}} 71 名前：デフォルトの名無しさん mailto:sage [02/04/18 18:16] >>66 ■インデント揃え pc.2ch.net/test/read.cgi/tech/984182993/116 (pc.2ch.net/test/read.cgi/tech/984182993/126 pc.2ch.net/test/read.cgi/tech/984182993/138) pc.2ch.net/test/read.cgi/tech/984182993/688 ノーマル→７行のフィルタは…どうだろう。俺は、手で縮めるときは 79文字を効率的に使えるように色々並べ替えたりするので、 そこまで考えてくれるのが７行で作れたら面白いかもシレン。 72 名前：perl16 mailto:sage [02/04/18 22:38] >>71 インデントツール完成したら、作ってみるＹＯ！(・∀・) だけど、インデントツール作るのにも相当苦労してるから、 ノーマル→７行は難しそうだ。 関数なんかも考慮しないかんし・・・ Perlだけど。 73 名前：デフォルトの名無しさん mailto:sage [02/04/18 22:56] >>72 関数なんか関係ない。 デリミタを識別して、その前後の空白文字を詰める。 他の場所は空白文字が２個以上続いたら１つに正規化するだけ。 74 名前：デフォルトの名無しさん [02/04/19 09:11] 超高速素数列挙 #include<stdio.h> #include<stdlib.h> #include<math.h> void main(int argc, char *argv[]){unsigned long max, q, r; if(argc!=2){return;}else{max=atoi(argv[1]);}char *P=new char[max]; for(q=3; q<sqrt(max); q+=2){if(P[q]!=1){for(r=q*q; r<max; r+=q+q){P[r]=1;}}} printf("2\n");for(q=3; q<max; q+=2){if(P[q]!=1){printf("%u\n", q);}}} 誰でもできるか…しかもちょっとズルしてるし 75 名前：クレジャパン mailto:??? [02/04/19 09:12] 10 cls 20 'ぎゃはははははははは 30 a=100 40 print"ハァ（；´Д｀）ハァ（；´Д｀）ハァ（；´Д｀）ハァ（；´Д｀）" 50 if a<1 then goto 10000 60 a=a-1 70 goto 40 76 名前：クレジャパン mailto:??? [02/04/19 09:32] int main(int argc,char *argv[]) { int loop00=0; /* Ｃプログラマ死んでくれ */ for (loop00 = 0;loop00<10000;loop00++) { printf("Ｃが出来るからってエバるなや\n"); } return 0; } 77 名前：クレジャパン mailto:??? [02/04/19 09:36] c ** 頼むから死んでくれ ** do 5 loop00=0,(10000-1) write(*, 600 ) 600 format('Ｃが出来るからってエバるなや') 5 continue stop end 78 名前：クレジャパン mailto:??? [02/04/19 09:52] /* タウンページたら｢パソコン教えます｣ってかいてあったんだよ */ /* んでなそこに行って｢Ｃ言語教えて下さい｣って言ったら */ /* ｢アナタには無理だ、私でも一人前になるのに12年もかかった｣ */ /* って言われたんだよ */ /* Ｃプログラマーって種族は人の顔見ただけでそう言う事判断するのかよ */ /* ｱｱﾝ?何にか言って見ろｺﾞﾙｧ（ﾟДﾟメ） */ /* そんなに偉いのかよ?Ｃ使えたら */ 79 名前：デフォルトの名無しさん mailto:sage [02/04/19 11:29] >>73 有る程度の構文解析は必要かと…… 80 名前：デフォルトの名無しさん mailto:sage [02/04/19 11:31] >>74 短くしようという気迫に欠けすぎているので却下。 ・void main？ ・変数名が２文字以上？？ ・#include <Math.h>？？？ 81 名前：デフォルトの名無しさん mailto:sage [02/04/19 11:56] ｾﾝｾｰ、>>74を縮めてみましたぁ〜 extern "C"{int printf(const char*,...);long atoi(const char*);} main(int c,char *v[]){unsigned long m,q,r;if(c>1){m=atoi(v[1]); char*P=new char[m];for(q=3;q<sqrt(m);q+=2){if(P[q]!=1){for(r=q*q;r<m;r+=q+q){ P[r]=1;}}}printf("2\n");for(q=3;q<m;q+=2){if(P[q]!=1){printf("%u\n",q);}}}} 82 名前：ヽ(´ー｀)ノ [02/04/19 13:50] >>75-78 のヒッキー君、スルーされてます 83 名前：ヽ(´ー｀)ノ [02/04/19 13:52] >>75-78 上からｎ88、Ｃまたはジャバ、フォートランですかね？ ヽ(´ー｀)ノヽ(´ー｀)ノヽ(´ー｀)ノ ヽ(´ー｀)ノヽ(´ー｀)ノヽ(´ー｀)ノ 84 名前：デフォルトの名無しさん [02/04/19 13:56] HTMLでenterキーやbackspaceで画面遷移しないようにするにはどうしたらいいでしょう 85 名前：ヽ(´ー｀)ノ [02/04/19 13:57] 遷移←日本語に訳して 86 名前：デフォルトの名無しさん [02/04/19 13:58] submitしないようにしたいのです 87 名前：ヽ(´ー｀)ノ [02/04/19 14:00] osなんやねん？ 88 名前：デフォルトの名無しさん [02/04/19 14:02] windows2000です 89 名前：ヽ(´ー｀)ノ [02/04/19 14:06] ブラウザなんやねん 90 名前：デフォルトの名無しさん [02/04/19 14:07] ＩＥ5.5です 91 名前：デフォルトの名無しさん [02/04/19 14:09] JavaScriptかなんかで制御できたらと思っているのですが 92 名前：ヽ(´ー｀)ノ [02/04/19 14:12] ﾜｶﾗﾝﾅｰ（・∀・） 93 名前：ビッダーズ向上委員長 [02/04/19 14:16] ヤフーは、どこをどうとっても最悪。 ビッダーズが一番！！！↓ www.bidders.co.jp/bpu/1072049 皆、左上の会員登録をクリックして、 入会しよう。 94 名前：デフォルトの名無しさん mailto:sage [02/04/19 15:11] >>85 辞書くらい(略 dictionary.goo.ne.jp/cgi-bin/dict_search.cgi?MT=%C1%AB%B0%DC&sw=2 95 名前：デフォルトの名無しさん mailto:sage [02/04/19 15:26] >>81 最後にreturn 0;を忘れずに 96 名前：デフォルトの名無しさん mailto:sage [02/04/19 15:40] をを、良スレ。しらなかった。 97 名前：S ◆Q14CxNhI mailto:sage [02/04/19 18:07] プログラムの概念がわかれば、言語を知らなくても参加できるぞぃ。 たとえばおいらは JavaScript をほとんど全くしらなかったが、 蛇にはまり、ライフゲームを改造し、ついには自分でスロットやテトリスを書けるようになった。 今だ JavaScript はよくわかっていないが、７行そのままで読解もできるようになった。 これは Java についても同じ。 98 名前：S ◆Q14CxNhI [02/04/19 18:25] for文ひとつ減らせた <body onKeyDown=K=event.keyCode><pre><script>B=[[-11],[-24],[2],[13],[-13],[-1] ,[2,-1]];function Y(){Z[11]=P;f=0;E=B[t];if(K)if(K-32){d=K-37?1:-1;for(i=4;--i; )Z[h+E[i]+d]==S?f=1:0;f?0:h+=d}else{C=[];for(i=0;i<4;Z[h+(C[i++]=p*A-v*145)]==S ?f=1:0)p=E[i],v=Math.round(p/A);t&&!f?E=B[t]=C:0}f=K=0;for(i=W;i--;Z[W+i]=Z[i]) ;for(i=4;i--;Z[W+p]=S)if(Z[A+(p=h+E[i])]==S)f=1;if(f==1){for(i=4;i--;)Z[h+E[i]] =S;t=(t+1)%7;h=5}h+=A;for(f=1,i=19;i--;){for(j=11;--j&&Z[i*A+j]==S;);if(!j)for( P+=f++,j=++i*A;j>A*2;)Z[j]=Z[j---A]}for(i=W;i--;D.all(6+i).innerHTML=Z[W+i]);if (Z[5]!=S)setTimeout(Y,99)}S="□";h=17;W=240;A=12;D=document;Z=[];for(K=t=P=i=0; i<W;){if(i<7)B[i].push(0,1,-A);Z[i]=(i+1)%A<2||i>228?S:"　";D.write(i++%A?"": "\n","<b></b>")}Y()</script> 99 名前：74 [02/04/19 18:40] >>80 すんません。自分でちょっと前に書いたコードを適当に縮めただけだったので… あと？の意味がわかりません。何故なんでしょうか？ C歴1ヶ月未満の厨房です。ｽﾏｿ 100 名前：74 [02/04/19 18:44] あと>>81は #include <Math.h> しないと動かないんですが… 100get。 101 名前：デフォルトの名無しさん mailto:sage [02/04/19 18:59] >>99 ７行プログラミングとは言っているが、やはり縮められるだけ縮めたいもの。 そのため、変数・関数名は最初に１文字にしておくのが、チヂマー(縮める人?)の基本。 ７行達成したからといって、無駄（に見える）をなくすべし！ ということを >>80 は言おうとしているんだろうよ。 それから void main() と main 関数の返値に void を指定するのは間違いというのがＣの基本（と言われている）。 もちろん縮める上で有効ならば、皆それ（Warning）くらいは無視するよ。 102 名前：S ◆Q14CxNhI [02/04/19 19:21] ほぼ９行。このままでも、もう少し縮みそう。 <body onKeyDown=K=event.keyCode><pre><script>B=[[-11],[-24],[2],[13],[-13],[-1] ,[2,-1]];function Y(){Z[11]=P;f=0;E=B[t];if(K)if(K-13){d=K-37?1:-1;for(i=4;--i; )f+=Z[h+E[i]+d]==S;f?0:h+=d}else{C=[];for(i=0;i<4;f+=Z[h+(C[i++]=p*A-Math.round (p/A)*145)]==S)p=E[i];t&&!f?E=B[t]=C:0}f=K=0;for(i=4;i--;Z[W+p]=S)f+=Z[A+(p=h+E [i])]==S;if(f){for(i=4;i--;)Z[h+E[i]]=S;t=(t+1)%7;h=5}h+=A;for(k=1,i=19;i--;){ for(j=11;--j&&Z[i*A+j]==S;);if(!j)for(P+=k++,j=++i*A;j>2*A;)Z[j]=Z[j---A]}for(i =W;i--;Z[W+i]=Z[i])D.all(6+i).innerHTML=Z[W+i];if(Z[5]!=S)setTimeout(Y,99)}h=17 S="□";W=240;A=12;D=document;Z=[];for(K=t=P=i=0;i<W;){if(i<7)B[i].push(0,1,-A); Z[W+i]=Z[i]=(i+1)%A<2||i>228?S:"　";D.write(i++%A?"":"\n","<b></b>")}Y() </script>

---

---

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

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