- 1 名前：デフォルトの名無しさん [02/04/15 12:09]
- 7行×79文字なら言語は問いません。
過去作品は>>2-5を参照。
■前スレ
pc.2ch.net/test/read.cgi/tech/984182993/
- 263 名前：デフォルトの名無しさん mailto:sage [02/05/06 20:16]
- 2 rem 言語:Basic
4 rem 使用方法:使えません（ｗ
10 print "ここは七行でプログラムを作る・鑑賞するスレです。"
20 print "ﾏﾀｰﾘが原則です。"
30 print "ネタ提供時／七行達成時いがいはsage推奨"
40 print:print "ソースUP時は、必ず"
50 pirnt "言語"
60 print "使用方法"
70 print "何を作ったのか"
80 print"などを書きましょう。"
90 goto 20
- 264 名前：デフォルトの名無しさん mailto:sage [02/05/06 22:25]
- >>258
テトリスは絶対不可能だと思ってたからね。驚いたよ
オセロやテトリス、倉庫番など、
元があるゲーム類ってのはネタとして興味が大きそうだね
- 265 名前：デフォルトの名無しさん mailto:sage [02/05/07 06:14]
- ファイラーなんてどうでしょ？
削除とかしか出来ない超低機能な奴。
- 266 名前：デフォルトの名無しさん mailto:sage [02/05/07 15:52]
- >>265
昔 MSX で作ったことがあるよ。BASIC １５行くらいで、名前変更と削除のみができるの。
超低機能ならば、できるでしょうね。
あとは、７行でどれだけの機能を詰め込めるか・・・
- 267 名前：デフォルトの名無しさん mailto:sage [02/05/07 18:03]
- ゴールが見えない時点で曖昧だなぁ
- 268 名前：デフォルトの名無しさん mailto:sage [02/05/07 22:08]
- じゃぁ，ｺﾗﾑｽとか。
- 269 名前：デフォルトの名無しさん mailto:sage [02/05/07 22:27]
- お絵かきロジック、できるかもだ。
- 270 名前：デフォルトの名無しさん mailto:sage [02/05/08 00:47]
- 箱入り娘はどうよ？
0.1.2.3
-----
a| BAAC G,1-e って入力すると、Gが(1,e)に移動。
b| BAAC で、Aを (1,d)-(2,e) に持ってこれればクリア。
c| DF.FE でもこれだとわかりづらいから、別の表示方法キボンヌ。
d| DGHE （記号とかもありかも）
e| .I .J たしか、最短の手が81手だったかな。
- 271 名前：デフォルトの名無しさん [02/05/08 01:10]
- ｷﾀ━━━( ﾟ∀ﾟ )━( ﾟ∀)━( ﾟ)━( )━(ﾟ )━(∀ﾟ )━( ﾟ∀ﾟ )━━━!!!!
- 272 名前：age [02/05/11 17:10]
-
- 273 名前：デフォルトの名無しさん [02/05/11 23:23]
- メーラー １１行。
#include <stdio.h>
#include <winsock.h>
#define k send(s,t,l,0);Sleep(999);while(z=recv(s,t,99,0)){t[z]=0;printf("%s",t);}
#define sp sprintf
main(int c,char **a){SOCKADDR_IN d;WSADATA w;char t[99],z,l;SOCKET s;
WSAStartup(MAKEWORD(2,2),&w);s=socket(AF_INET,SOCK_STREAM,0);if(c!=2)return;
d.sin_family=AF_INET;d.sin_port=htons(25);d.sin_addr.s_addr=inet_addr(a[1]);
if(!connect(s,(PSOCKADDR)&d,sizeof(d)))
{l=sp(t,"HELO %s\r\n",a[2]);k;l=sp(t,"MAIL FROM:%s\r\n",a[3]);k;
l=sp(t,"RCPT TO:%s\r\n",a[4]);k;l=sp(t,"DATA\r\n",a[4]);k;
l=sp(t,"Subject: %s\r\n",a[5]);k;l=sp(t,"%s\r\n",a[6]);k;
l=sp(t,"\r\n.\r\n");k;l=sp(t,"QUIT");k;}closesocket(s);}
- 274 名前：261 mailto:sage [02/05/11 23:26]
- >>273
まだやってみてないけど、ありがとう！
- 275 名前：デフォルトの名無しさん mailto:sage [02/05/11 23:30]
- #include <stdio.h>
#include <winsock.h>
#define k send(s,t,l,0);Sleep(999);while(z=recv(s,t,99,0)){t[z]=0;printf("%s",t);}
#define sp sprintf
main(int c,char **a){SOCKADDR_IN d;WSADATA w;char t[99],z,l;SOCKET s;WSAStartup(
0x0202,&w);s=socket(2,1,0);if(c!=2)return;d.sin_family=2;d.sin_port=htons(25);d.
sin_addr.s_addr=inet_addr(a[1]);if(!connect(s,(PSOCKADDR)&d,sizeof(d))){l=sp(t,
"HELO %s\r\n",a[2]);k;l=sp(t,"MAIL FROM:%s\r\n",a[3]);k;l=sp(t,"RCPT TO:%s\r\n",
a[4]);k;l=sp(t,"DATA\r\n",a[4]);k;l=sp(t,"Subject: %s\r\n",a[5]);k;l=sp(t,"%s\r\
\n",a[6]);k;l=sp(t,"\r\n.\r\n");k;l=sp(t,"QUIT");k;}closesocket(s);}
俺にはコレが限界。
- 276 名前：デフォルトの名無しさん mailto:sage [02/05/11 23:31]
- >>274
動かなかったらごめん。
プロバイダのメール鯖の認証の関係で、
動作確認できなくて・・・
- 277 名前：デフォルトの名無しさん mailto:sage [02/05/12 00:13]
- >>273 >>275
つーか、実行できんやろ。
if(c!=2)return; ってなんや？
- 278 名前：273 mailto:sage [02/05/12 00:34]
- あー HTTPクライアントを適当に変えただけだからね。
基になるソースコードが無いと
誰も手をつけてくれなさそうだったからさ・・・
俺、ネットプログラム初心者です。ごめん。
- 279 名前：273 [02/05/12 00:42]
- #include <stdio.h>
#include <winsock.h>
#define k printf("%d,%s\n",l,t);send(s,t,l,0);Sleep(999);z=recv(s,t,99,0);t[z]=0;printf("%s",t);
#define sp sprintf
main(int c,char **a){SOCKADDR_IN d;WSADATA w;char t[99],z,l;SOCKET s;WSAStartup(
0x0202,&w);s=socket(2,1,0);d.sin_family=2;d.sin_port=htons(25);d.
sin_addr.s_addr=inet_addr(a[1]);if(!connect(s,(PSOCKADDR)&d,sizeof(d))){l=sp(t,
"HELO %s\r\n",a[2]);k;l=sp(t,"MAIL FROM:%s\r\n",a[3]);k;l=sp(t,"RCPT TO:%s\r\n",
a[4]);k;l=sp(t,"DATA\r\n",a[4]);k;l=sp(t,"Subject: %s\r\n",a[5]);send(s,t,l,0);
l=sp(t,"%s\r\n",a[6]);send(s,t,l,0);;l=sp(t,"\r\n.\r\n");send(s,t,l,0);;l=sp(t,"QUIT");k;}closesocket(s);}
一応送信できるはず。
ウザくてごめんね
- 280 名前：デフォルトの名無しさん mailto:sage [02/05/12 01:27]
- >>279
おー、送信できました。実験する場合はローカルにサーバを立てるのがよろしいかと。
ただプログラムの無駄は多そうですので、十分７行になるのでは？
- 281 名前：デフォルトの名無しさん mailto:sage [02/05/12 01:50]
- 縮めてみますた
#include <stdio.h>
#include <winsock.h>
SOCKET s;char t[99],z,l,f,*b;k(char*b,char*x){l=sprintf(t,b,x);printf("%s",t);
send(s,t,l,0);if(!f){Sleep(999);t[recv(s,t,99,0)]=0;puts(t);}}main(int c,char**
a){SOCKADDR_IN d;WSADATA w;WSAStartup(514,&w);s=socket(d.sin_family=2,1,0);d.
sin_port=htons(25);d.sin_addr.s_addr=inet_addr(a[1]);if(!connect(s,(PSOCKADDR)&
d,sizeof(d))){k("HELO %s\r\n",a[2]);k("MAIL FROM:%s\r\n",a[3]);k("RCPT TO:%s\r\
\n",a[4]);k("DATA\r\n",a[4]);k("Subject: %s\r\n",a[f=5]);k("%s\r\n",a[6]);k(
"\r\n.\r\n","");f=0;k("QUIT\n","");}closesocket(s);}
- 282 名前：デフォルトの名無しさん mailto:sage [02/05/12 02:39]
- >>261
添付ファイルは難しいが(uuencode形式ならOK)、telnet コマンドを使えばいいのでは？？？
つーことは、Unix系なら perl かシェルスクリプトで、Windows なら BAT でもできる？
- 283 名前：281 mailto:sage [02/05/12 02:45]
- winsock の使い方が良くわからないので、その辺がどうにもならぬ
#include <winsock.h>
typedef char C;puts(C*);sprintf(C*,C*,C*,C*);SOCKET s;C t[99],l,f;k(C*b,C*x){l=
sprintf(t,"%s%s\r\n",b,x);puts(t);send(s,t,l,0);if(!f)Sleep(999),t[recv(s,t,99,
0)]=0,puts(t);}main(int c,C**a){SOCKADDR_IN d;WSADATA w;WSAStartup(514,&w);s=
socket(d.sin_family=2,1,0);d.sin_port=6400;d.sin_addr.s_addr=inet_addr(a[1]);if
(!connect(s,(PSOCKADDR)&d,sizeof(d)))k("HELO ",a[2]),k("MAIL FROM:",a[3]),k("R\
CPT TO:",a[4]),k("DATA",""),k("Subject: ",a[f=5]),f=0,k(a[6],"\r\n.\r\nQUIT");
closesocket(s);}
- 284 名前：デフォルトの名無しさん mailto:age [02/05/12 03:35]
- >>279
腹が立って作ったプログラムなのに、ツッコマレても謙虚な姿。感心アゲ。
- 285 名前：tara mailto:sage [02/05/12 05:23]
- 超簡易七行SMTPクライアントです。エラー処理ほとんど無翅です。
コンパイルすると警告が出ますが、無視してください。
#include <winsock.h>
main(int c,char **a){SOCKADDR_IN d;WSADATA w;char t[999];SOCKET s;WSAStartup(
514,&w);s=socket(d.sin_family=2,1,0);if(c!=7)return;d.sin_port=6400;d.sin_addr
. s_addr=inet_addr(a[1]);if(!connect(s,(PSOCKADDR)&d,sizeof(d))){int z;send(s,t
,sprintf(t,"HELO %s\r\nMAIL FROM: %s\r\nRCPT TO: %s\r\nDATA\r\nSubject: %s\r\n\
\r\n%s\r\n.\r\nQUIT\r\n",a[2],a[3],a[4],a[5],a[6]),0);while(z=recv(s,t,99,0))
{t[z]=0;printf("%s",t);}}closesocket(s);}
実行時には、以下の順序で引数を指定する必要があります。
・SMTPサーバーのIP(ドット区切りの数字で指定)
・発信元のホスト名
・発信者のメールアドレス
・受信者のメールアドレス
・Subject（題名）
・メール本文
ex)
program 127.0.0.1 7gyou.com sender@7line.com rcpt@7line.com subject data
多分これで動くはず、です。
なお、引数の区切り文字がスペースであるため、メール本文その他に
スペースを入れることができません。
- 286 名前：tara mailto:sage [02/05/12 05:35]
- しまった、訂正。
スペースは入れられます。
program 127.0.0.1 7gyou.com sender@7line.com rcpt@7line.com subject "This is test."
と、スペースを含む内容を「"」で囲んでやればOKです。
- 287 名前：273 [02/05/12 14:53]
- >>281 とりあえず送信できることを目指したんで、無駄は勘弁
>>282 それじゃ面白くないじゃん
>>284 ありがとう
>>285 ７行達成おめでとう
次はTelnetかFTPクライアント・・・
ネタさえあればこのスレもPatt 1.並なんだけどな
- 288 名前：261 mailto:sage [02/05/12 15:00]
- ネタ提供だけでｽﾏｿ。感動しました。
採用してくれてありがとうございましたー！
- 289 名前：XXXXXXX mailto:sage [02/05/12 15:02]
- 1> <html>
2> <head>
3> <title>7行プログラム</title>
4> </head>
5> <body bgcolor="black">ここに本文を書きます
6> </body>
7> </html>
- 290 名前：デフォルトの名無しさん mailto:sage [02/05/12 18:01]
- CじゃFTPは不可能だーね
コネクションが２つ必要な時点でﾔｳﾞｧｲ
- 291 名前：デフォルトの名無しさん [02/05/12 18:49]
- >>290
FTP、Javaなら行けるかな
- 292 名前：デフォルトの名無しさん mailto:sage [02/05/12 22:54]
- >>285
stdio.h をインクルードしないと printf,sprintf 使えなくないですか？
- 293 名前：デフォルトの名無しさん mailto:age [02/05/12 22:56]
- age
- 294 名前：デフォルトの名無しさん mailto:sage [02/05/12 22:58]
- いい流れになってきたね
- 295 名前：デフォルトの名無しさん mailto:sage [02/05/12 23:30]
- 一番、画面内密度を上げられる言語ってなんでしょう？LISP系かな？
- 296 名前：デフォルトの名無しさん mailto:sage [02/05/12 23:32]
- >>295
BASICじゃないの？大文字だし。
- 297 名前：デフォルトの名無しさん mailto:sage [02/05/12 23:34]
- perlでしょ
lispはカッコがあるから
- 298 名前：デフォルトの名無しさん mailto:sage [02/05/12 23:45]
- Ruby!!!
- 299 名前：デフォルトの名無しさん mailto:sage [02/05/12 23:48]
- >>298
Ruby厨ってこうやって叫ぶだけで特に害がないから良いよね。
結構独自路線だからアイデンティティはしっかりしてるのか。
それに比べて多方面にコンプレックスのあるVB厨とかは痛いな・・・。
- 300 名前：デフォルトの名無しさん mailto:sage [02/05/13 00:00]
- 300!!!
- 301 名前：VB厨 mailto:sage [02/05/13 00:28]
- >>299
スマン。
- 302 名前：デフォルトの名無しさん mailto:sage [02/05/13 00:37]
- >>301
謝ってくれる人は心優しい人だね。
バカとは自分がバカと言うことに気が付いていないからバカなんだ。
>>301さんは賢人のようです。
- 303 名前：デフォルトの名無しさん mailto:sage [02/05/13 01:48]
- >295
MSXべーしっくがいいと思う。スペースすら省略可能だし。
PRINTは ? で書けるし。（LIST取ったら伸張されちゃうけど）
- 304 名前：デフォルトの名無しさん mailto:sage [02/05/13 13:21]
- >>303
N88でいいじゃん。?も同様だし。
- 305 名前：前775 mailto:sage [02/05/13 16:34]
- あー、なんか、、スレ間違えたかと思った。
昔は文章よりプログラムの方が多いくらいのスレだったのに・・。
- 306 名前：前スレ853 mailto:sage [02/05/13 18:23]
- Perl は全ての変数にプレフィクスが付く分、極まってくると
画面密度が上がる。
ex.
($n,$p,@e)=split/,/,<>;$_=<>;$j=(@m=map{split//}$_,<>)-($k=($c=length)-2)-2;@g=
('.')x@e;$t=0;sub w{(*z,$g)=@_;$m[$i=$z+($z%$c?-1:$k,$z>=$j?-$j:$c,$z<$k?$j:-$c
,$z%$c==$k?-$k:1)[--$g]]eq'#'||$l&&grep$i==$_,@e or$z=$i}sub u{@m[@e,$p]=@_}sub
r{1+int rand 4}while($m[$p]ne'*'or$t+=$n){u(('m')x(@g=@m[@e]),($d=grep$p==$_,@e
)?'D':'C');$r=grep/[*.]/,@m,@g;print@m,"R:$r T:$t >";$r&&($t||!$d)?u@g,' ':exit
;$l=0;w*p,<>%5||next;for(@e){if(($w=$e=pop@e)-$p){w*w,$w%$c-$p%$c?int$w/$c-$p/
$c?r:$w<$p?4:1:$w<$p?2:3;w*w,r while++$l%9&&$w==$e}@e=($w,@e)}$t--if$t}
- 307 名前：デフォルトの名無しさん mailto:sage [02/05/13 18:53]
- >>306
思わずishにかけたくなるねｗ
- 308 名前：デフォルトの名無しさん mailto:sage [02/05/13 20:19]
- >>307
ホントだ。なんかのエンコードかけてあるみたい。
このままメモ帳に書いて拡張子を.comにしたら動きそうだ
- 309 名前：デフォルトの名無しさん mailto:sage [02/05/14 00:56]
- 2行目文頭 ('.')
3行目 [--$g]
4行目 ('m')
Perlを知らない俺から見ると、この辺はもはや顔文字だな。
- 310 名前：デフォルトの名無しさん mailto:sage [02/05/14 04:05]
- ネット対戦オセロ作ってください。
よろしく。
- 311 名前：tara mailto:sage [02/05/14 04:23]
- 超簡易七行SNTPクライアントです。(SMTPではない）
エラーチェック皆無です。引数の数すらチェックしてません。
コンパイルすると警告が出ますが、無視してやってください。
#include <winsock.h>
#include <time.h>
int N[12];int z;u_int n;struct tm*T;SOCKADDR_IN d={2,31488},u={2,4,0};main(int
c,char **a){WSADATA w;SOCKET s;SOCKADDR*q=(SOCKADDR*)&u;WSAStartup(514,&w);s=
socket(2,2,0);bind(s,q,16);d.sin_addr.s_addr=inet_addr(a[1]);*N=11;z=48;sendto
(s,&N,z,0,(PSOCKADDR)&d,16);recvfrom(s,&N,z,0,(PSOCKADDR)&d,&z);n=ntohl(N[10])
-2208988800;printf("%s",ctime(&n));closesocket(s);}
前回に引き続きstdio.hをincludeできませんでした……残念。
実行時には、SNTPサーバーのIP(ドット区切りの数字で指定)を引数として
指定する必要があります。
ex)
program 127.0.0.1
多分これで動くはず、です。
- 312 名前：tara mailto:sage [02/05/14 04:36]
- ……言ってるそばから縮みました。
#include <winsock.h>
#include <stdio.h>
#include <time.h>
int N[12];int z;u_int n;struct tm*T;SOCKADDR_IN d={2,31488},u={2,4};main(int c,
char **a){WSADATA w;SOCKET s;SOCKADDR*q=&u;WSAStartup(514,&w);s=socket(2,2,0);
bind(s,q,16);d.sin_addr.s_addr=inet_addr(a[1]);*N=11;z=48;sendto(s,&N,z,0,&d,
16);recvfrom(s,&N,z,0,&d,&z);n=ntohl(N[10])-2208988800;printf("%s",ctime(&n));}
VC++ .NETで動作検証しました。
これでも動くのか……。
- 313 名前：前スレ853 mailto:sage [02/05/15 01:23]
- 久々に読み返したらまだ縮むじゃんよ…。ついでに画面密度も
上げる方向で修正。
boobar.hoops.ne.jp/pacmaso.tar.gz
($n,$p,@e)=<>=~/\d+/g;$j=(@m=map/./gs,($_=<>),<>)-($k=($c=length)-2)-2;$t=0;sub
u{@m[@e,$p]=@_}@g=(".")x@e;sub w{(*z,$g)=@_;$m[$i=$z+($z%$c?-1:$k,$z>=$j?-$j:$c
,$z<$k?$j:-$c,$z%$c==$k?-$k:1)[--$g]]eq"#"||$l&&grep$i==$_,@e or$z=$i}while($m[
$p]ne"*"or$t+=$n){u(("m")x(@g=@m[@e]),($d=grep$p==$_,@e)?"D":"C");$r=grep/[*.]/
,@m,@g;print@m,"R:$r T:$t >";$r&&($t||!$d)?u@g," ":exit;$l=0;w*p,<>%5||next;sub
r{1+int rand 4}for(@e){if(($w=$e=pop@e)-$p){w*w,$w%$c-$p%$c?int$w/$c-$p/$c?r:$w
<$p?4:1:$w<$p?2:3;w*w,r while++$l%9&&$w==$e}@e=($w,@e)}$t&&$t--}
延々バグ取りしてるから大分枯れてる筈。
- 314 名前：前スレ843 [02/05/16 03:06]
- >>313
そろそろしつこいと思いますた。
- 315 名前：デフォルトの名無しさん [02/05/16 11:58]
- 悲しいことを言うなぁ
- 316 名前：デフォルトの名無しさん mailto:sage [02/05/16 12:16]
- またーり行こうよ
- 317 名前：前スレ853 mailto:sage [02/05/16 18:54]
- いや、自分でもしつこいと思った。(w
sub h{sprintf"\\x%X",($i+=$_)}$c=join q/\xA1-\xFE]/,(q/\G((?:[\x00-\x7F]|[\x8E/
,"[","|\\x8F[","[",")*?)");$i=160;for((2)x5,1,(2)x11,3,(2)x3,(1)x5,(3)x5,(1)x4,
(2)x3,(1)x5,2,3,1,-48,32,2,2){$s.=h;$S{$j}=chr$i;$j=$i}$i=170;for((2)x12,3,2,2,
7,(3)x4){$d.=h;$D{$i}=chr($i-1)."\xA1\xAB"}$i=206;for((3)x5){$d.=h;$D{$i}=chr(
$i-2)."\xA1\xAC"}sub u{unpack"C",$3}eval join q/\xA1/,(q/s!$c([\xA4\xA5])([/.$d
.q|])!"$1$2".$D{&u}!eg;s/$c|,'\\xAC/$1','\\xDF/g;s/$c','\\xAB/$1','\\xAC/g;
s/$c','\\xA9/$1',q{\xAB/g;s/$c[\xA4\xA5]\xE7/$1},q{\xA9/g;s!$c([\xA4\xA5])([}.
$s.q|])!"$1$2".$S{&u}!eg;s/$c|,q{\xBC/$1\xA4\xA2/g;print})while<>
日本語→ひんたぼ語フィルタ。
Usage: perl hintabo text.euc > text.hintabo
変換テーブルの生成部分がもっと縮めば七行いけるかも。
七行いけてもネタ的にイマイチかも。(w
- 318 名前：デフォルトの名無しさん mailto:sage [02/05/16 20:06]
- 折れ的にはしつこくない。
つーか勉強になるのでどんどん短くしてぽ。
できたらどこかにコメント付でうぷしてほしいなぁ。
- 319 名前：デフォルトの名無しさん mailto:sage [02/05/16 22:01]
- 誰かが７行スレ専用ソース公開ページを作ってくれるといいのになぁ。
そうすると、ここのスレでは「また短くなったので見てね」と書いておいて、
公開ページの方で、短いソース（とコメントつきソース）を見て貰う事が出来るのに。
でもそうすると、新しい人が入りづらいか。某メガデモスレみたいな感じで。
- 320 名前：デフォルトの名無しさん mailto:sage [02/05/17 12:00]
- それなりに動くソフトウェアだし、著作権的に面倒だってんで皆気が進まないんじゃ。
- 321 名前：前スレ853 mailto:sage [02/05/17 19:00]
- Wiki みたく、各作者が好きな時に更新できるフレームワークを
準備しないと不便だし、そこまでする気になる人がいないだけかと。
自分のだけなら適当なアカ取って普通にメンテすりゃ済むから
楽だけど。つか俺はそうしてる。 boobar.hoops.ne.jp/
sub u{"$1$2".$D{unpack"C",$3}}sub h{*t=pop;$t.=sprintf"\\x%X",$i+=$_;chr($i-pop
).pop}$c=join q/\xA1-\xFE]/,qw!\G((?:[\x00-\x7F]|[\x8E [ |\\x8F[ [ )*?)!;$z=$c.
q/([\xA4\xA5])/;$i=160;map{$D{$j}=h*s;$j=$i}(2)x5,1,(2)x11,3,(2)x3,(1)x5,(3)x5,
(1)x4,(2)x3,(1)x5,2,3,1,-48,32,2,2;$i=170;$D{$i}=h"\xA1\xAB",1,*d for(2)x12,3,2
,2,7,(3)x4;$i=206;$D{$i}=h"\xA1\xAC",2,*d for(3)x5;eval join'\\xA1','s!$z(['.$d
.'])!u!eg;s/$c',qw!\xAC/$1 \xDF/g;s/$c \xAB/$1 \xAC/g;s/$c \xA9/$1!,q{\xAB/g;
s/$z\xE7/$1},q{\xA9/g;s!$z([}.$s.'])!u!eg;s/$c',q{\xBC/$1\xA4\xA2/g;print}for<>
あっさり七行達成してもた。でも数字やアルファベットを変換してない
から、フィルタとしては不完全。萎え。
- 322 名前：デフォルトの名無しさん mailto:sage [02/05/17 19:14]
- いちいち「更新」とかこのスレに描くくらいなら
最初からここにうぷしたほうがいいと思うけど？
どうせ７行程度なんだしさっさとスクロールすれば いいんじゃないの？
- 323 名前：デフォルトの名無しさん mailto:sage [02/05/17 23:44]
- ちょっとだけしか縮めていないときとか、
説明のために長いプログラムをうぷするときとか、
そういったスレは欲しいかもね。
こっちに載せるときは、ネタ提供か、完成か、バグ取りか、大幅改変か・・・
- 324 名前：前スレ843 mailto:age [02/05/18 08:57]
- >>前スレ853
ネタ提供。
??行→7行へのunindent。
- 325 名前：デフォルトの名無しさん mailto:sage [02/05/18 10:15]
- ひんたぼ語って何だか知らないけどすげー
ここは神が集まるスレだな
- 326 名前：名無しさん@Vim%Chalice mailto:sage [02/05/18 11:26]
- >>325 勉強してください。
www4.airnet.ne.jp/isobe/game/kouryaku/hintabo.html
- 327 名前：前スレ853 mailto:sage [02/05/19 18:37]
- >>324
とりあえずたたき台を作ってみたよ。まだまだ機能的に不完全だけど。
boobar.hoops.ne.jp/rms.tar.gz
$_=join" ",grep{s/^\s*(?:#.*)?|\s+$//g;s/\s+/ /g;length}<>;%k=qw|( ) < > [ ] {
}|;1 while s=\G(.*?)((?:(?:(?<![\$\%\&\*\@])(?:(?:m|q[qrwx]?)(?:([(<[{]).*?${k{
$3}}|([^\w\s(<[{]).*?\4)|(?:s|tr|y)(?:([(<[{]).*?$k{$5}\s*\5.*?${k{$5}}|(
[^\w\s(<[{]).*?\6.*?\6))|(?<![\w])/(?:\\/|[^/])*/)[a-z]*)|"(?:\\"|[^"])*"|'(?:
\\'|[^'])*')=push@c,$1,$2;''=egx;$q=1 if$c[0]=~m!^(?:["'/]|(?:[ms]|q[qrwx]?|tr)
[^\w\s])!x;($_,@c)=map{++$q%2?split:$_}grep/\S+/,@c,$_;sub j{$_.=$_[0].shift@c}
sub l(){length$_.$c[0]}sub p{print"$_\n";$_=shift@c}sub w(){/\w$/&&$c[0]=~/^\w/
}79<=l?79<l?p:w?p:j&&p:w?j" ":j while@c;p;
さぁ、縮めようか。(w
- 328 名前：デフォルトの名無しさん mailto:age [02/05/19 21:45]
- 保守保守
- 329 名前：前スレ843 [02/05/20 08:38]
- >>327
僕には無理です。
がんばって縮めてください。
応援してます(w
- 330 名前：775 mailto:sage [02/05/20 19:38]
- #include <stdio.h>/*7行になるかチェッカーーー*/
main(int c,char**v){FILE *f = fopen(v[1],"r");int i=0;if(c<1)return;for(;fgetc
(f)!=-1;i++);if(i<80*7)printf("イイ！: %d文字(%d行?)\n",i,i/80);else printf(
"糸冬 了 :%d文字（%d行?）\n",i,i/80);}
正直すまん・・・。
AVIファイル生成は構造わからんで脱落。
- 331 名前：ネタ出 mailto:sage [02/05/20 20:21]
- 格闘ゲーム（パンチとかが出てHPが減りさえすればｲｲ） きぼんぬ！
モナーのダンレボ きぼんぬ！
１５パズル きぼんぬ！
もぐらたたき きぼんぬ！
Hello world きぼんぬ！
えっと・・・えっと・・・・（ﾜﾗ
- 332 名前：デフォルトの名無しさん mailto:sage [02/05/21 00:01]
- #include <stdio.h>
#include <sys/socket.h>
#include <netinet/in.h>
#include <arpa/inet.h>
main(int a, char **v){struct sockaddr_in h;int s;char c[1024];
bzero(&h,sizeof(h));h.sin_family=AF_INET;h.sin_port=htons(21);inet_aton(v[1],&h.sin_addr);
s=socket(AF_INET,SOCK_STREAM,0);connect(s,(struct sockaddr *)&h,sizeof(h));
read(s,c,1024);write(s,v[2],strlen(v[2]));write(s,"\r\n",2);read(s,c,1024);
write(s,v[3],strlen(v[3]));write(s,"\r\n",2);read(s,c,1024);while(1){
printf("$: ");fgets(c,1024,stdin);write(s,c,strlen(c));write(s,"\r\n",2);
read(s,c,1024);printf("%s", c);}close(s);}
7行じゃないけど。ｆｔｐもどき
./a.out 127.0.0.1 "USER user" "PASS password"
$:の後にコマンドです。
- 333 名前：デフォルトの名無しさん mailto:sage [02/05/21 01:50]
- >332
うーん……、手元にPC-UNIX系の環境が無いから、検証できないまま口出して
申し訳ないけれど、これだとファイルのやり取りはできないんじゃ？
FTPサーバー接続してコマンド打つのが限界のような……。
- 334 名前：332 mailto:sage [02/05/21 21:23]
- >333
telnetでport21につないでるようなカンジだから、
たいした事は出来ない&バッファもクリアしてないからゴミが残ると。。。
全然使えないね（藁
- 335 名前：前スレ843 [02/05/22 09:28]
- >>331
Perlには無理だな。
やろうと思えばできるけど。(漏れには無理)
- 336 名前：デフォルトの名無しさん mailto:sage [02/05/22 09:40]
- 意味もなく上げまくるなよ、自己主張激しすぎて見苦しい
- 337 名前：デフォルトの名無しさん mailto:sage [02/05/22 13:55]
- >>319
縮む過程で加えられたテクも見たい
CVSサーバ付けてくれれば文句無いけど
- 338 名前：デフォルトの名無しさん mailto:sage [02/05/22 14:18]
- sourceforge.jpで7行プロジェクトとか・・・ダメかなぁ。
- 339 名前：デフォルトの名無しさん mailto:sage [02/05/22 19:48]
- 7-liner
- 340 名前：前スレ843 mailto:sage [02/05/24 10:46]
- >>336
ｽﾏｿ｡
- 341 名前：デフォルトの名無しさん mailto:sage [02/05/24 18:55]
- 前スレの猛者が戻ってこない限り、このスレが良スレになることはないな
- 342 名前：デフォルトの名無しさん mailto:sage [02/05/24 23:31]
- トリッキーの１氏や前スレ60氏の降臨きぼーーーんぬ。
*nix厨氏とか、Ｓ氏とかも来てほしー。
- 343 名前：デフォルトの名無しさん mailto:sage [02/05/25 13:23]
- Sﾀﾝ、JavaScriptでぷよぷよ作ってー。
７行、７行、７行、７行、７行、ﾊｧﾊｧ
７行、７行、７行、７行、７行、ｾﾞｪｾﾞｪ。
みんな来てよー（ｗ
- 344 名前：猛者募集 [02/05/26 11:07]
- agge
- 345 名前：デフォルトの名無しさん mailto:sage [02/05/29 00:46]
- >>343
無理っぽいな。消滅判定と落下だけでかなり食うと思う。
連鎖中は同時に複数色消えることもあるし・・・
なんつって無理無理いっててもしょうがないんで
叩き台を作ってみよっかな
- 346 名前：デフォルトの名無しさん mailto:sage [02/05/29 00:52]
- >>345
Ｓ氏ですか？
- 347 名前：デフォルトの名無しさん mailto:sage [02/05/29 01:48]
- >346
いや、通りすがりのものです。
昔X68で作ったもんで
- 348 名前：デフォルトの名無しさん [02/06/01 04:15]
- mange
- 349 名前：デフォルトの名無しさん [02/06/01 12:05]
- たたき台が重要だ
- 350 名前：デフォルトの名無しさん [02/06/07 15:35]
- ttp://wildmag.de/compo/Mados-Divo/divo.html
ねたをくれなんていってる時点で間違ってたんだ…
- 351 名前：デフォルトの名無しさん mailto:sage [02/06/07 18:11]
- >>350
感動した
ソースを見て更に感動した
- 352 名前：デフォルトの名無しさん mailto:sage [02/06/07 18:36]
- ｲｶｽ
- 353 名前：デフォルトの名無しさん mailto:sage [02/06/07 21:08]
- >>350
！！！
マジかよおい！
感動した…マジ感動した！
- 354 名前：デフォルトの名無しさん [02/06/07 22:00]
- >>350
スゲー！！
なるほどソース見て感動！！
- 355 名前：デフォルトの名無しさん [02/06/07 22:52]
- >>350
これは凄い！
- 356 名前：デフォルトの名無しさん [02/06/07 23:01]
- >>350
な、なぬ・・・・
- 357 名前：デフォルトの名無しさん mailto:sage [02/06/08 00:28]
- >>350 見た目は驚かなかったけど、ソースの簡潔さに驚いた。
- 358 名前：デフォルトの名無しさん mailto:sage [02/06/08 01:15]
- 俺はできないけど、がんばってください
ってのがうざい
- 359 名前：デフォルトの名無しさん mailto:sage [02/06/08 01:18]
- サーバ側七行、クライアント側七行で、ネット対戦できるオセロつくってください。
- 360 名前：デフォルトの名無しさん mailto:sage [02/06/08 01:44]
- サーバ：
#include "osero-server.h"
#include <stdlib.h>
int main()
{
do_osero_server();
return EXIT_SUCSESS;
}
クライアント：
#include "osero-cliant.h"
#include <stdlib.h>
int main()
{
do_osero_cliant();
return EXIT_SUCSESS;
}
- 361 名前：デフォルトの名無しさん mailto:sage [02/06/08 13:31]
- >>360
言ってはならないことかもしれないけど
あなたはここにくる前にしなければならないことがあるような気がします
- 362 名前：デフォルトの名無しさん mailto:sage [02/06/09 18:23]
- >>350
スクロールバーが動いたので部落らかと思った。
スゲー。感動すた。
- 363 名前：デフォルトの名無しさん mailto:sage [02/06/09 20:48]
- <script>s=Math.sin;z=0;function a(){for(i=0;i<50;){z?0:document.write('<b id=x'
+i+' style=position:absolute><big>O</big><sub>'+i+'</sub></b>');
w=i*s(z);o=eval('x'+i).style;o.top=s(w)*i*4+230;o.left=s(w+2)*i++*4+230}
z+=.015;setTimeout('a()',50)}a()</script>
>>350 名前: デフォルトの名無しさん 投稿日:02/06/07 (金) 15:35
> ttp://wildmag.de/compo/Mados-Divo/divo.html
> ねたをくれなんていってる時点で間違ってたんだ…
より。（改行をマジで適当に追加）。
すげーな。
|
 |
