七行プログラミング (452ﾚｽ)
上下前次1-新
330(1): nobodyさん [sage] 04/07/30 11:49 ID:??? AAS
>>329行末改行は79文字で切ったものなんで、動かす場合は繋げて。
331: nobodyさん [sage] 04/07/30 14:27 ID:??? AAS
あぁ、「そのまま動く」ってのが明文化されてないわけね…。
>>330
「560byte」プログラミングじゃなくて「7行」なので、79文字
一杯々々使いたかったら、コードの順番入れ替えたりして
調整してね。
332: nobodyさん [sage] 04/07/30 23:12 ID:??? AAS
あと2chの仕様だが、コード中に半角スペースが2コ以上連続する時は
半角スペースを に置換する
行の最後に半角スペースが付くので、実行する時には注意する
333: nobodyさん [あ] 04/08/04 20:11 ID:??? AAS
age
334(1): 7clap [sage] 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): nobodyさん [sage] 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: nobodyさん [あ] 04/08/11 09:29 ID:??? AAS
age
337: nobodyさん [] 04/09/18 22:44:55 ID:9YaH2aKo(1) AAS
age
338: nobodyさん [sage] 04/09/18 22:53:04 ID:??? AAS
>>335
使い方がわからない。。。。
339: nobodyさん [] 04/09/20 13:46:08 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: nobodyさん [sage] 04/09/20 14:43:21 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): nobodyさん [sage] 04/09/21 17:50:57 ID:??? AAS
<html>
<head>
<title>あ</title>
</head>
<body>
</body>
</html>
342(1): nobodyさん [釣られてみるsage] 04/09/21 17:58:26 ID:??? AAS
それはマークアップ言語という(ry
343(1): nobodyさん [] 04/10/03 15:30:49 ID:qw0lrubh(1) AAS
Store7の圧縮してない奴ないですか？ ＞ 作者
344(1): nobodyさん [sage] 04/10/03 17:06:58 ID:??? AAS
>>343
自分で展開していかないと面白味が分からないと思うなぁ、コレ。
外部ﾘﾝｸ[cgi]:cm.xrea.cc
345: nobodyさん [sage] 04/10/03 20:29:26 ID:??? AAS
>>344
ありがとう
いや，実は>>258258(2): Store7.pm [] 04/02/27 22:01 ID:xssKWf0b(1) AAS
package Store7;sub E{$_=shift;s/\\/\\\\/g;s/'/\\'/g;$_}@ISA='Exporter';@EXPORT=
@EXPORT_OK=qw/store retrieve/;sub store{open my$o,">$_[1]";print$o ''.d($_[0]);
}sub retrieve{do$_[0]}sub d{my$f=shift;my$e=ref$f;$e eq'SCALAR'?"'".E($$f)."'":
$e eq'ARRAY'?'['.join(',',map{d($_)}@$f).']':$e eq'HASH'?'{'.join(',',map{my$k=
$_;$_="'".E($k)."'=>".d($f->{$k})}keys%$f).'}':"'".E($f)."'"};use Exporter;1
なんとか5行でStorable.pmと同じ使い方です（storeとretrieveだけ）。
store( \%hashとか\@array, 'data.txt' );
$hash_ref = retrieve('data.txt');
なんだけど機能強化されてるのでこっちを使おうかと思ってね
346: nobodyさん [age] 04/12/12 03:10:20 ID:??? AAS
あげ
347(1): nobodyさん [sage] 04/12/16 18:47:01 ID:??? AAS
外部ﾘﾝｸ[html]:internet.watch.impress.co.jp
348(1): nobodyさん [sage] 04/12/17 09:19:09 ID:??? AAS
>>347
Perlのmolester-minの方はライブラリ使わず9行。(詰めれば6,7行以内に収まりそう。
外部ﾘﾝｸ:ansuz.sooke.bc.ca
349(1): nobodyさん [sage] 04/12/17 14:50:07 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: nobodyさん [sage] 04/12/17 21:57:04 ID:??? AAS
>>349
正規表現による暗黙の代入とグローバル特殊変数を使った引数渡しは使えそうだ。
PythonのTinyP2PがXMLRPC等のライブラリを使っているので、
動機のひとつにライブラリなしバージョンを作ろう、ってのがあったみたい。
サイトを良く読むとblogとかにその辺の事情も書いてる様です。
他の言語では、Java(16行), Ruby(6行)版も投稿されてます。
外部ﾘﾝｸ[pl]:developers.slashdot.org
外部ﾘﾝｸ[pl]:developers.slashdot.org
351: nobodyさん [sage] 04/12/24 21:39:51 ID:??? AAS
ほす
352(1): nobodyさん [] 05/01/30 23:39:07 ID:cEoW2dZ/(1) AAS
>>341-342
そういえば、昔、5kっていう5KBにHTMLページを収めるってなコンテストがあったなぁ。
外部ﾘﾝｸ:www.the5k.org
5Kといい、7Lといい、こういうの好きなんだわ漏れ。
7行といえば560バイトでWebPage作るってのはどう？
ちょっと擦違いｽﾏｿ
353: nobodyさん [sage] 05/01/31 00:37:15 ID:??? AAS
>>352
「どう?」じゃなくて、作って晒せば? こういうのはやったもん勝ち。
面白いと思わせる事ができれば挑戦者も出てくるんじゃない?
ただスレのルール的に、「560 byte」でなく、1 行は 79 byte + 改行、
7 行以内でそのまま使える、って条件を満たしてないと個人的には
受け入れ難いなぁ。
354: nobodyさん [age] 05/01/31 14:38:02 ID:??? AAS
<?
echo 'PHPもまぜてくれ';
?>
上下前次1-新書関写板覧索設栞歴
あと 98 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.023s