七行プログラミング (452ﾚｽ)
上下前次1-新
327(1): [age] 04/07/26 20:37 ID:??? AAS
ためしにkaiseki.php作ったら12行になったΛ||Λﾀﾞﾒﾎﾟ
活気ないのでage
328: 7clap 04/07/26 23:10 ID:??? AAS
オリジナルから仕様を極力変えない方向で10行。
#!/usr/local/bin/perl
use CGI":all";charset$c=Shift_JIS;param(k,$k=1+param k);($w=escapeHTML(param w)
)=~s/\x0D\x0A|[\x0A\x0D]/br/eg;sub d{($h,$d,$m,$y)=(localtime(time-86400*pop))[
2..5];$g=($y+1900).sprintf"%02d"x2,$m+1,$d}($C,$M,$L,$T,$I,$S,$E,@M)=<DATA>;
open L,">$L";eval{flock L,2};open C;d>(@c=<C>)[-1]?(@c<14||shift@c,@l=((0)x25,
"\n")):(($g,@l)=split/<>/,pop@c);$l[$h+1]++;$l[0]++;open C,">$C";print C@c,join
"<>",$g,@l;d(14);open M;@m=grep$g<=$_,<M>;open M,">$M";print M@m,""ne$w&&d."<>$
h<>$w<>\n";put header,start_html(-Title,$T,lang,ja,encoding,$c),($k<10?(p($M[
rand@M]),startform,p(hidden(k),submit$S),p($I,br,textfield w,'',50,50),endform)
:p$E),end_html;__END__
./log.dat
./mes.dat
./lock.dat
web拍手送信完了
ついでに一言あればどうぞ (拍手だけでも送れます)
もっと送る
沢山の拍手を有り難うございました！
拍手が送信されました。ありがとうございました！
拍手が送信されました。ありがとうございますた！
拍手が送信されました。ありがとさ〜ん！
329(1): 04/07/29 22:33 ID:??? AAS
>>323 >>326
PHPって関数名の途中に空白文字入っても動くの?
330(1): 04/07/30 11:49 ID:??? AAS
>>329
行末改行は79文字で切ったものなんで、動かす場合は繋げて。
331: 04/07/30 14:27 ID:??? AAS
あぁ、「そのまま動く」ってのが明文化されてないわけね…。
>>330
「560byte」プログラミングじゃなくて「7行」なので、79文字
一杯々々使いたかったら、コードの順番入れ替えたりして
調整してね。
332: 04/07/30 23:12 ID:??? AAS
あと2chの仕様だが、コード中に半角スペースが2コ以上連続する時は
半角スペースを に置換する
行の最後に半角スペースが付くので、実行する時には注意する
333: [あ] 04/08/04 20:11 ID:??? AAS
age
334(1): 7clap 04/08/06 15:30 ID:??? AAS
あと一行半。
#!/usr/local/bin/perl
use CGI":all";charset$c=Shift_JIS;param(k,$k=1+param k);($w=escapeHTML(param w)
)=~tr/\x0A\x0D//d;($C,$M,$L,$E,@M)=<DATA>;open L;eval{flock L,2};@l=((0)x26,"
");sub d{($s,$m,$h,$d,$m,$y)=localtime(time-pop);$l[0]=($y+1900).sprintf"%02d"x
2,$m+1,$d}open C;d>(@c=<C>)[-1]?@c<14||shift@c:(@l=split/<>/,pop@c);$l[$_]++for
$h+2,1;open C,">$C";print C@c,join"<>",@l;d 1209600;open M;@m=grep$l[0]<=$_,<M>
;open M,">$M";print M@m,""ne$w&&d."<>$h<>$w<>\n";put header,start_html(lang,ja,
encoding,$c),$k<10?(p($M[rand@M]),startform,p(hidden(k),submit Clap),p(Comment,
textfield w),endform):p$E,end_html;__END__
./log.dat
./mes.dat
>./lock.dat
沢山の拍手を有り難うございました！
拍手が送信されました。ありがとうございました！
拍手が送信されました。ありがとうございますた！
拍手が送信されました。ありがとさ〜ん！
335(1): 04/08/07 07:38 ID:??? AAS
>319
全然要求満たしてないけど、叩き台に。
C/C++用、inputは余計なコード書いてないヘッダファイルのみ
#!/usr/bin/perl -Pn
/^namespace\s*(\w+)/ && ($ns=$1);
/\#include\s*[<"](.+)[">]/ && push(@inc, $1);
/^class\s+(\w+)\s*\:?/ && push(@cls, $1);
/(([\w\s\*]+)(\w+)\s*\((.+)\))/ && push(@memf, $1); # メンバ関数
/(([\w\s\*]+)(\w+));/ && push(@memv, $1); # メンバ変数
END{ print join("\n", $., $ns, "@inc","@cls","@memf", "@memv"),"\n" }
JAVAはリフレクションがあるし、classファイルのフォーマットも公開されてるので
別のアプローチでやってみると面白いかも知れない。(javapやClassBrowserが既にあるけど)
336: [あ] 04/08/11 09:29 ID:??? AAS
age
337: 04/09/18 22:44 ID:9YaH2aKo(1) AAS
age
338: 04/09/18 22:53 ID:??? AAS
>>335
使い方がわからない。。。。
339: 04/09/20 13:46 ID:k3h/6iWb(1) AAS
スクリプト -> 335.pl
/* C++のヘッダファイル foo.h */
#include <iostream>
#include <stdlib.h>
#include "common.h"
using namespace std;
namespace test{
class FooTest: public Test {
int total;
public:
Test();
~Test();
int foo(void);
int bar(int n, int m);
}; // End of class FooTest
}; // End of namespace test
実行方法
$ perl -Pn 335.pl < foo.h または、
$ ./335.pl < foo.h
18
test
iostream stdlib.h common.h
FooTest
int foo(void) int bar(int n, int m)
using namespace std int total
行数, namespace, includeファイル, メンバ関数, 変数の順に出力
340: 04/09/20 14:43 ID:??? AAS
何故わざわざ WebProg 板で? と思いつつ縮め。
#!/usr/bin/perl -n
$n=$1if/^namespace\s*(\w+)/;/#include\s*[<"](.+)[">]/&&push@i,$1;/^class\s+(\w+
)\s*\:?/x&&push@c,$1;/\s*([\w\s\*]+\w\s*\(.+\))/&&push@f,$1;/\s*([\w\s\*]+\w);/
&&push@v,$1;END{print join"\n",$.,$n,"@i","@c","@f","@v",''}
341(1): 04/09/21 17:50 ID:??? AAS
<html>
<head>
<title>あ</title>
</head>
<body>
</body>
</html>
342(1): [釣られてみるsage] 04/09/21 17:58 ID:??? AAS
それはマークアップ言語という(ry
343(1): 04/10/03 15:30 ID:qw0lrubh(1) AAS
Store7の圧縮してない奴ないですか？ ＞ 作者
344(1): 04/10/03 17:06 ID:??? AAS
>>343
自分で展開していかないと面白味が分からないと思うなぁ、コレ。
外部ﾘﾝｸ[cgi]:cm.xrea.cc
345: 04/10/03 20:29 ID:??? AAS
>>344
ありがとう
いや，実は>>258なんだけど機能強化されてるのでこっちを使おうかと思ってね
346: [age] 04/12/12 03:10 ID:??? AAS
あげ
347(1): 04/12/16 18:47 ID:??? AAS
外部ﾘﾝｸ[html]:internet.watch.impress.co.jp
348(1): 04/12/17 09:19 ID:??? AAS
>>347
Perlのmolester-minの方はライブラリ使わず9行。(詰めれば6,7行以内に収まりそう。
外部ﾘﾝｸ:ansuz.sooke.bc.ca
349(1): 04/12/17 14:50 ID:??? AAS
>>348
定数をハードコーディングして可搬性を激しく落としてでも
Socket.pm を使わない選択は漢だなぁ。(w
80桁ギリギリまで詰めるよう整形したら既にシェバング無し
七行達成してるし、あと 40 byte ほど縮めたらいい感じかな。
$/=$_;$,=shift;$w=$a=shift;sub g{open(F,$4)&&t($2,$a,"e$4",<F>);close F}socket
S,2,1,6;$k{+shift}=1;bind S,&a;sub e{open F,">$4";print F$';close F}sub h{t($2,
$_,id)for keys%k}sub i{$k{$2}=1}sub f{t($_,$2,$4)for keys%k}sub a{$w=~/:/;pack
'CxnC4x8',2,$',split'\.',$`}sub t{socket X,2,1,6;$w=shift;$k{$w}=(connect X,&a)
?print X"$, $_[0] $_[1]/".pop:$/;close X}for(listen S,5;$SIG{ALRM}=sub{};
m!^(.*?) (.*?) ([e-i])([^/]*)/!s&&$,eq$1&&&$3){alarm 9;(accept(C,S),alarm 0)?
read C,$_,1e6:($_="$, $a f".shift);close C}
350: 04/12/17 21:57 ID:??? AAS
>>349
正規表現による暗黙の代入とグローバル特殊変数を使った引数渡しは使えそうだ。
PythonのTinyP2PがXMLRPC等のライブラリを使っているので、
動機のひとつにライブラリなしバージョンを作ろう、ってのがあったみたい。
サイトを良く読むとblogとかにその辺の事情も書いてる様です。
他の言語では、Java(16行), Ruby(6行)版も投稿されてます。
外部ﾘﾝｸ[pl]:developers.slashdot.org
外部ﾘﾝｸ[pl]:developers.slashdot.org
351: 04/12/24 21:39 ID:??? AAS
ほす
352(1): 05/01/30 23:39 ID:cEoW2dZ/(1) AAS
>>341-342
そういえば、昔、5kっていう5KBにHTMLページを収めるってなコンテストがあったなぁ。
外部ﾘﾝｸ:www.the5k.org
5Kといい、7Lといい、こういうの好きなんだわ漏れ。
7行といえば560バイトでWebPage作るってのはどう？
ちょっと擦違いｽﾏｿ
353: 05/01/31 00:37 ID:??? AAS
>>352
「どう?」じゃなくて、作って晒せば? こういうのはやったもん勝ち。
面白いと思わせる事ができれば挑戦者も出てくるんじゃない?
ただスレのルール的に、「560 byte」でなく、1 行は 79 byte + 改行、
7 行以内でそのまま使える、って条件を満たしてないと個人的には
受け入れ難いなぁ。
354: [age] 05/01/31 14:38 ID:??? AAS
<?
echo 'PHPもまぜてくれ';
?>
355(3): 05/02/06 00:29 ID:??? AAS
じゃぁ、phpで7行wiki
<? require("Text/Wiki.php");require("Cache/Lite.php");$c=&new Cache_Lite();
$s=$_SERVER[PHP_SELF];$g=$_GET;$b=&$_POST[b];$n=$g[n]?$g[n]:"FrontPage";$b&&
$c->save($b,$n)&&header("Location: $s?n=$n");($b=$c->get($n))||$g[c]=e;
$h="<h1>$n</h1>";if($g[c]==e)$h.="<form method=post action='?n=$n'>".
"<textarea name=b rows=30 cols=80>$b</textarea><input type=submit>";
else{$w=&new Text_Wiki;$w->setRenderConf(xhtml,wikilink,new_url,"?n=%s");
$h.=$w->transform($b,xhtml)."<hr><a href='?c=e&n=$n'>e";}?><html><body><?=$h?>
PEAR::Text_Wikiが必要。Cache_LiteはPEARにデフォルトで入ってる気がする。
あとshort_open_tag=Onでよろしく。
整形ルールは 外部ﾘﾝｸ[php]:wiki.ciaweb.net
日本語のwikinameは使えなかったりする。これはText_Wikiが対応していないせい。
356: 2005/04/24(日)00:09 ID:s2OIHVmv(1) AAS
保守あげ
上下前次1-新書関写板覧索設栞歴
あと 96 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ
ぬこの手 ぬこTOP 0.017s