5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

七行プログラミング part3

1 :デフォルトの名無しさん:02/09/28 01:18
7行×79文字なら言語は問いません。
過去作品は、多分>>2-20を辺り。

■前スレ
http://pc3.2ch.net/test/read.cgi/tech/1018840143/

686 :デフォルトの名無しさん:03/01/08 23:04
/*

687 :デフォルトの名無しさん:03/01/08 23:24
*/

688 :デフォルトの名無しさん:03/01/09 00:15
/*/*/*/*/*

689 :デフォルトの名無しさん:03/01/09 02:32
*/

690 :デフォルトの名無しさん:03/01/09 02:52
あずきちゃんDVDBOX買って馬鹿になろう!
http://www.starchild.co.jp/special/azuki

691 :デフォルトの名無しさん:03/01/09 03:33
大阪キタ━━━━━━(゚∀゚)━━━━━━ !!!!!

692 :デフォルトの名無しさん:03/01/09 04:16
ITバブルの中で様々な幻想が語られた。

リアル経済ならぬバーチャル経済しかり。
ITによる失業者の吸収しかり。
「これからは2ちゃんねるの時代だ」のごとき匿名幻想しかり。

IT社会はリアルワールドにおける
信頼と責任抜きにはありえないというだけの話だ。


693 :デフォルトの名無しさん:03/01/09 13:51
食えりゃなんでもいいよ。

694 :デフォルトの名無しさん:03/01/09 14:45
ID:ZBsKvw39(・∀・)カエレ!クルナ!イッテヨシ!

695 :デフォルトの名無しさん:03/01/09 17:37
======2==C==H======================================================

         2ちゃんねるのお勧めな話題と
     ネットでの面白い出来事を配送したいと思ってます。。。

===============================読者数: 138720人 発行日:2003/1/9

年末年始ボケがそろそろ収まり始めた今日このごろのひろゆきです。

そんなわけで、年末に予告したIP記録ですが実験を開始しています。

「2ちゃんねる20030107」
こんな感じで各掲示板の最下部に日付が入ってるんですが、
20030107以降になってるところはログ記録実験中ですー。

んじゃ!

────────────────────────Age2ch─
■この書き込みは、Age2chを使って配信されています。
────────────────────────────
Keep your thread alive !
http://pc3.2ch.net/test/read.cgi/software/1041952901/l50
────────────────────────────

696 :デフォルトの名無しさん:03/01/09 23:28
おぺら6.05からテスト
書けてるよ〜

697 :デフォルトの名無しさん:03/01/10 08:28
そうそう、しかし保護は無理だろ、責任追及されたら誰かが責任とらないといけないんだし。    

698 :デフォルトの名無しさん:03/01/10 09:49
>>183
きわめてそれっぽい

699 :デフォルトの名無しさん:03/01/10 10:31
えーっと、


IPの話はどこへ、、、(^_^;)

700 :デフォルトの名無しさん:03/01/10 11:02
みんなで博之を訴えまくるか。
名誉毀損のレス1つ1つに対して民事を起こす。
10億件とか。
んで判決間際で取り下げ。
裁判所を麻痺させろ!!

701 :デフォルトの名無しさん:03/01/10 11:46
>正直、本当の危機に直面しないと動かんだろうな。>2ちゃんねらー

動くってどうするんだよ?
なくなったらなくなったでいいや。
という人が多いんだよ。

702 :デフォルトの名無しさん:03/01/10 12:16
なんだよ ひろゆき とうとうやっちゃったな
つまんねーネタがネタにならねーじゃねえか
もう だ・め・ぽ・・・

703 :デフォルトの名無しさん:03/01/10 13:06
じゃあ今までIP、IPって騒いでたのは何だったんだよ?(^^;
ニャロ

704 :デフォルトの名無しさん:03/01/10 15:29
真面目な質問だったのか・・・。

一見違うように見えるんじゃなくて趣旨が違います。
趣旨を理解できないアホなボランティアが多いのは確かですが、
真似してはいけません。

705 :デフォルトの名無しさん:03/01/10 16:56
じゃあさトップに閲覧料1分1億円てかいといて訴えられるたびに請求したら良くない?

706 :デフォルトの名無しさん:03/01/10 23:18
>>ひろゆき
女紹介してくれ

707 :デフォルトの名無しさん:03/01/10 23:23
http://qb.2ch.net/test/read.cgi/accuse/1042131034/

312 名前:ひろゆき ◆3SHRUNYAXA 投稿日:03/01/10 19:59 ID:jWxHxvti
全部にいれてみた。



708 :デフォルトの名無しさん:03/01/11 00:41
真っ先に帰るのが普通の客なんでないかな??冷やかしの人に裁判沙汰のリスクは
おえないでしょ。
本職はIP位ではへこたれずに留まるだろうけど、暫らくは半端な厨房が通常板へ
なだれ込んで無差別に悪さ(差別コピペ)をする、っつー事になりそう・・・



709 :デフォルトの名無しさん:03/01/11 10:11
ひろのぶさーん。

710 :デフォルトの名無しさん:03/01/11 10:43
======2==C==H======================================================

         2ちゃんねるのお勧めな話題と
     ネットでの面白い出来事を配送したいと思ってます。。。

===============================読者数: 139038人 発行日:2003/1/10

なにやら、連日メルマガだしてるひろゆきです。

そんなわけで、ログ記録実験ですが、いちいちサーバ指定するのが面倒なので、
全部のサーバに入れてみました。

重くなって落ちたりしてもご愛嬌ってことで。。。

んじゃ!

────────────────────────Age2ch─
■この書き込みは、Age2chを使って配信されています。
────────────────────────────
Keep your thread alive !
http://pc3.2ch.net/test/read.cgi/software/1041952901/l50
────────────────────────────

711 :デフォルトの名無しさん:03/01/11 11:36
幹事よろしく!!

712 :デフォルトの名無しさん:03/01/11 12:11
正当な内部告発をにちゃんに書くな

713 :デフォルトの名無しさん:03/01/11 13:10
なんでもかんでもバシバシ訴えると、ヤブヘビになる件も出てくると思うんだよね。
そういう意味では、企業レベルよりも個人レベルの要請が増えるのかもしれない。

714 :デフォルトの名無しさん:03/01/11 13:40
北欧に行くってさ

172 :ひろゆき ◆3SHRUNYAXA :03/01/11 05:31 ID:kSb7xo24
北欧は放浪して資源を貯めれるので、
逃げ回ってると死なない。 

715 :デフォルトの名無しさん:03/01/11 16:26
だから、時々タイーホあるやん

716 :デフォルトの名無しさん:03/01/11 16:33
意見を聞いてもらうために「次スレたってないようなのでこちらに」は
 
 やめろ。

717 :デフォルトの名無しさん:03/01/12 00:34
つーかトリップもキャップもついてないし。

718 :デフォルトの名無しさん:03/01/12 00:45
600,000,002だった・・・(´・ω・`)

719 :デフォルトの名無しさん:03/01/12 03:26
ビビタ・・・

720 :デフォルトの名無しさん:03/01/12 03:26
勇気=マンコを示せ!!

721 :デフォルトの名無しさん:03/01/12 10:54
前スレで写真うpした奴の話は本当だったのか・・・
疑ったりして悪いことしたな・・・

722 :デフォルトの名無しさん:03/01/12 10:57
まぁ本当にひろゆきが金払う必要があるなんて思ってる知能指数0の基地外は
2ちゃん内部にはいないからな


723 :デフォルトの名無しさん:03/01/12 12:17
閑話休題;

LZW互換?圧縮/復元 ( ttp://multix.jp/ )

$ perl lzw_encode < 圧縮元ファイル > 圧縮後ファイル

#!perl -w
binmode STDIN;binmode STDOUT;if(read STDIN,$_,1){$C=ord;$I=256;while(read
STDIN,$_,1){if($E=$H{$D=$C<<8^ord}){$C=$E;next}$H{$D}=$I++if$I<4095;
$B.=pack"v",$C;$C=ord}$B.=pack"v",$C}$B=unpack"h*",$B.pack("v",4095);
$B=~s/(...)0/$1/g;print pack("h*",$B."f"x(length$B&1))

$ perl lzw_decode < 圧縮済ファイル > 復元ファイル

#!perl -w
binmode STDIN;binmode STDOUT;$/=undef;if($B=unpack"h*",<>){
$B=~s/(...)/${1}0/g;@B=unpack"v*",pack("h*",$B);for(@C=($I=0);$I<@B;$I++){
exit if($_=$B[$I])==4095;@S=();while(255<$_){push@S,$C[$_-256];$_=$B[$_-256]
}print pack("C*",$_,reverse@S);@C[$I-1,$I]=($_,$_)if$I<3840}}

マジでこんなのに特許がどうのとブータレるUN○SYSはともかく。
C/C++ で書くと何行になるんだこれ。

724 :デフォルトの名無しさん:03/01/12 21:28
何を今更・・・

725 :デフォルトの名無しさん:03/01/12 21:31
642 が核心を突いてるぞ!

(トリップ便乗!)

726 :デフォルトの名無しさん:03/01/12 21:42
一人でいろいろ作業するのは大変なので
分業することにしたようですよ。

727 :デフォルトの名無しさん:03/01/13 11:23
>>723のと同作者。この圧縮法は既出?

reflexive_encode

binmode STDIN;binmode STDOUT;sub P{defined($_=getc)&&push(@B,ord)}&P;$I=256;
while(@B){&P;@B<4&&&P;$U=0;while($#B>$U){if($R=$H{$B[$U]<<12^$B[$U+1]}){splice
@B,$U,2,$R;if($#B==$U){&P}&P;$U+=$U?-1:1}else{++$U<32||last}}$H{$B[0]<<12^
$B[1]}=$I++if$I<4095&&@B>1;$B.=pack"v",shift@B}($B=unpack"h*",$B."\xFF")=~
s/(...)0/$1/g;print pack("h*",$B."f"x(length$B&1))

reflexive_decode

#!perl -w
binmode STDIN;binmode STDOUT;$/=undef;if($B=unpack"h*",<>){($B.="fff")=~
s/(...)/${1}0/g;@B=unpack"v*",pack("h*",$B);for($I=0;$I<@B;$I++){($_=$B[$I])==
4095&&exit;@C=($_);while(@C){if(($_=pop@C)<256){print chr}else{$D=$B[$_-256];
push@C,($E=$B[$_-255])==$_?$D:$E,$D}}}}

1MBのゼロベタファイルが33バイト、
16文字x4K反復の64KBテキストが78バイトになりよる。
それぞれを4倍量にしても3バイトずつしか増えネェ(´д`;
同じソースではLZSSが1/8、LZWで1/342が目一杯。
まあ並のファイル相手じゃどれも大差ないんだケド。


728 :山崎渉:03/01/13 19:02
(^^)

729 :山崎渉:03/01/15 18:15
(^^)

730 :デフォルトの名無しさん:03/01/19 23:51
保守

731 :sage:03/01/20 01:39
ガイシュツならスマン。円周率計算なら

int a=10000,b,c=8400,d,e,f[8401],g;main(){
for(;b-c;)f[b++]=a/5;
for(;d=0,g=c*2;c-=14,printf("%.4d",e+d/a),e=d%a)
for(b=c;d+=f[b]*a,f[b]=d%--g,d/=g--,--b;d*=b);}

とか

main(){int a=1e4,c=3e3,b=c,d=0,e=0,f[3000],g=1,h=0;
for(;b;!--b?printf("%04d",e+d/a),e=d%a,h=b=c-=15:f[b]=(d=d/g*b+a*(h?f[b]:2e3))%(g=b*2-1));}

なんてのがあったな。
どういう公式使ってるのかわかった香具師は教えれ

732 :ccc:03/01/20 01:43
http://click.dtiserv2.com/Click/127-45-4493
      ★お話しませんか?★

733 :ぬるぽ:03/01/20 06:09
http://pc.2ch.net/test/read.cgi/prog/1042017145/l50
      ★ぬるぽしませんか?★★

734 :デフォルトの名無しさん:03/01/21 00:42
  ∧  ∧
  ( ・∀・)   | | ガッ
 と    )    | |
   Y /ノ    人
    / )    <  >__Λ∩
  _/し' //. V`Д´)/ ←>>733
 (_フ彡        /

735 :山崎渉:03/01/23 20:08
(^^)

186 KB
■ このスレッドは過去ログ倉庫に格納されています

★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.00 2017/10/04 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)