七行プログラミング part2

七行プログラミング p ..

357:デフォルトの名無しさん
02/06/08 00:28
>>350　見た目は驚かなかったけど、ソースの簡潔さに驚いた。

358:デフォルトの名無しさん
02/06/08 01:15
俺はできないけど、がんばってください
ってのがうざい

359:デフォルトの名無しさん
02/06/08 01:18
サーバ側七行、クライアント側七行で、ネット対戦できるオセロつくってください。

360:デフォルトの名無しさん
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:デフォルトの名無しさん
02/06/08 13:31
>>360
言ってはならないことかもしれないけど
あなたはここにくる前にしなければならないことがあるような気がします

362:デフォルトの名無しさん
02/06/09 18:23
>>350
スクロールバーが動いたので部落らかと思った。
スゲー。感動すた。

363:デフォルトの名無しさん
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
> URLﾘﾝｸ(wildmag.de)
> ねたをくれなんていってる時点で間違ってたんだ…
より。（改行をマジで適当に追加）。

すげーな。

364:デフォルトの名無しさん
02/06/11 06:12
前ここにprintfってあったっけ？

365:デフォルトの名無しさん
02/06/11 18:01
>>364
sprintfなら
ｽﾚﾘﾝｸ(tech板:428番)

366:デフォルトの名無しさん
02/06/13 00:20
あと一行が縮まらない８行迷路。HSP。
一番右下がゴール。

dim g,4,2:g=-1,0,1,0,0,-1,0,1:dim m,49,49:randomize:repeat 49:t=cnt:repeat 49
s=cnt:if ((s\2)+(t\2))=2{m.s.t=1:rnd r,4:a=s+g.r.0:b=t+g.r.1:m.a.b=1}loop:loop
gsel 0,-1:screen 2,10,10,8:repeat:repeat 10:b=cnt:repeat 10:a=cnt:d=a+v:e=b+w
palcolor 1-m.d.e*7:pset a,b:loop:loop:d=(k&4!0)-(k&1!0)+x:palcolor 39:stick k,15
e=(k&8!0)-(k&2!0)+y:r=(d<0)|(d>48):d=1-r*d+(r*x):r=(e<0)|(e>48):e=1-r*e+(r*y)
r=m.d.e:d=1-r*d+(r*x):v=1-(d>43)*(1-(d<5)*(d-4))+((d>43)*39):x=d:r=m.d.e:c++
e=1-r*e+(r*y):w=1-(e>43)*(1-(e<5)*(e-4))+((e>43)*39):y=e:if (x=48)&(y=48):break
pset x-v,y-w:redraw:title ""+c:wait 5:loop:dialog "cleared:"+c

367:デフォルトの名無しさん
02/06/14 19:40
ｷﾀ━━(・∀・)━━━!!!!!!!

368:366
02/06/14 20:04
ここの人はレベルが高くてHSPを知らない罠か・・・（´д｀；

369:デフォルトの名無しさん
02/06/14 21:09
>368
いや、縮める隙を探してるさいちゅう。
HSPだって立派じゃないけど言語だしね

370:366
02/06/14 21:35
>>369
ありがたや。なるべくif文使わないようにしたから、回りくどいことやってます。（´ー｀
もっといい迷路アルゴリズムが使いたいんだけど、長くなる・・・

371:デフォルトの名無しさん
02/06/14 23:05
>>350
(ﾟдﾟ)すげー

372:デフォルトの名無しさん
02/06/14 23:22
>>367だけど
>>366,>>368ｺﾞﾒｿ、HSPだったのね、よく考えずにレスしてた（ｗ

勉強中の折れは「レベルが低くてHSPを知らない」のであった。
ﾀﾞｳｿしてみよかな？

373:moge
02/06/15 00:12
もっと繁栄を願ってage

374:デフォルトの名無しさん
02/06/15 14:38
7行以内でbase64エンコード/デコードプログラム作ってくれ

375:デフォルトの名無しさん
02/06/15 15:24
#include "stdafx.h"
int APIENTRY WinMain(HINSTANCE hInstance,
HINSTANCE hPrevInstance,
LPSTR lpCmdLine,
int nCmdShow )
{
ExitWindowsEx(EWX_SHUTDOWN,0);return 0;}

まぁ激しくｶﾞｲｼｭﾂだろうな・・・。

376:デフォルトの名無しさん
02/06/15 17:21
ネットワークゲーム用の汎用サーバとかは７行じゃ大変？
Javaでキボンヌ。

377:デフォルトの名無しさん
02/06/15 20:35
>>376
そもそも汎用サーバなどという発想自体が厨
仕様を定義してみせい

378:デフォルトの名無しさん
02/06/16 13:41
アクセスしてきたクライアントのソケットを保持。
どのクライアントから言われたことも、すべてのクライアントに返す。
という意味でした。

379:デフォルトの名無しさん
02/06/16 13:46
>>378
絶対どこかでデータの動機ミスが怒りそうな予感。

380:デフォルトの名無しさん
02/06/16 18:48
>>378
それはむしろチャットサーバだね。そのくらいならできそうかな。
本気でネットゲの鯖やるならオブジェクトの同期も考えるから難しい。

381:デフォルトの名無しさん
02/06/21 22:16
たまには、あげにゃ

382:デフォルトの名無しさん
02/06/22 00:08
HSP製があったので、私もHSPでチャレンジ。
行数削るのだるいんでそのまんま。
一応砂嵐。改行なくせば一行いくかな？

boxf 0,400,640,0
repeat
redraw 0
repeat 60
y=cnt*8
repeat 80
x=cnt*8
pos x,y
rnd rx,640
rnd ry,480
gcopy 0,rx,ry,8,8
loop
loop
redraw 1
await 1
loop

処理的にはパレットモードにして、
パレットを白黒にランダムで変更てのが楽なんだけどね。
つーか、そっちも作ってみるかな。

383:デフォルトの名無しさん
02/06/22 00:13
>>382
7行にまとめよ

384:382
02/06/22 00:37
>>383
スマソ、そういうわけでまとめてみたら2行になった。

boxf 0,0,640,400:repeat:redraw 0:repeat 60:y=cnt*8:repeat 80:x=cnt*8:pos x,y
rnd rx,640:rnd ry,480:gcopy 0,rx,ry,8,8:loop:loop:redraw 1:await 1:loop

砂嵐の濃度調整はboxf 0,0,640,400の部分で、画面を何割黒で塗りつぶすかで決まるから。

385:デフォルトの名無しさん
02/06/22 00:46
お題：BlockSorting

386:デフォルトの名無しさん
02/06/22 01:20
>>385
#include <stdlib.h>
typedef unsigned char b;e(b*s,b*d,int c){unsigned*o,i=0,r;o=calloc(65536,4);c--
;for(i;i<c;i++)o[s[i]<<8|s[i+1]]++;o[s[c]<<8|*s]++;for(i=1;i<65536;i++)o[i]+=o[
i-1];d[--o[s[c]<<8|*s]]=s[i=c-1];for(;i;i--)d[--o[s[i]<<8|s[i+1]]]=s[i-1];r=--o
[*s<<8|s[1]];d[r]=s[c];free(o);return r;}

一応、限定ソートなり。

387:デフォルトの名無しさん
02/06/22 01:44
こっちは復元

#include <stdlib.h>
typedef unsigned char B;void d(B*s,B*d,int c,unsigned x){unsigned*o,i,a=0,t[256
];memset(t,0,1024);for(i=--c;i;i--)t[s[i]]++;o=calloc(65536,4);for(;i<256;i++){
memset(d+a,i,t[i]);a+=t[i];}for(i=0;i<=c;i++)o[(s[i]<<8)+d[i]]++;for(i=1;i<
65536;i++)o[i]+=o[i-1];*d=d[x];d[c]=s[x];d[c-1]=s[--o[(d[c]<<8)+*d]];for(i=c;i>
2;i--)d[i-2]=s[--o[d[i-1]<<8|d[i]]];free(o);}

388:385
02/06/22 01:58
>386-387
(ﾟдﾟ)ﾊﾔｰ

で、自分でも作ってみた。動作未確認・ブロックサイズ256に固定。
#include <stdlib.h>
enum{S=256};typedef unsigned char UC;int cmp(void*a,void*b){return memcmp(a,b,S
);}UC*bs(UC*s,UC*d){UC*p,**t,i;p=malloc(S*2);t=malloc(S);for(i=0;i<S;i++)p[i]=p
[i+S]=s[i],t[i]=p+i;qsort(t,S,S,cmp);for(i=0;i<size;i++)if(p== t[i])break;*d++=
i;for(i=0;i<S;i++)d[i]=t[i][S-1];free(p);free(t);return --d;}

389:385
02/06/22 02:50
ぅぁー、>388バグりまくりだ。
出なおしてきます。

390:デフォルトの名無しさん
02/06/24 00:47
ageじゃ！

391:デフォルトの名無しさん
02/06/24 19:14
インチキだけど(includeとか含めなければ)7行
アナログ時計

#define NO_STRICT
#include <windows.h>
typedef void*v;typedef int i;typedef float f;f q=50,r=100;f R(f n){return(90.0\
-n)/57.3;}void L(v h,f r){MoveToEx(h,q,q,0);LineTo(h,q+q*cos(r),q-q*sin(r));}i\
WINAPI WinMain(v,v,char*,i){v h=CreateWindow("EDIT","n",(1<<28),0,0,1<<31,1<<\
31,0,0,0,0);HideCaret(h);SetTimer(h,1,r,0);MSG m;while(GetMessage(&m,0,0,0)!=0\
){if(m.message==275){v d=GetDC(h);Rectangle(d,0,0,r,r);SYSTEMTIME s;GetLocalTi\
me(&s);L(d,R(s.wSecond*6));L(d,R(s.wMinute*6));L(d,R(s.wHour*30));ReleaseDC(h,\
d);}if(m.message==513){break;}DispatchMessage(&m);}KillTimer(h,1);}

392:デフォルトの名無しさん
02/06/28 14:31
漏れの環境（VS6SP5）だと、
math.hをインクルードしないとエラーになったので、
一行減って、一行増えたから、減ってない・・・。
鬱だ。

#define NO_STRICT
#include <windows.h>
#include <math.h>
typedef void*v;typedef float f;v d;f q=50;void L(f r){r=(15-r)/9.55;MoveToEx(d,
q,q,0);LineTo(d,q+q*cos(r),q-q*sin(r));}int WINAPI WinMain(v,v,char*,int){v h=\
CreateWindow("EDIT","n",1<<28,0,0,1<<31,1<<31,0,0,0,0);HideCaret(h);SetTimer(h,
1,100,0);MSG m;while(GetMessage(&m,0,0,0)&&m.message!=513){if(m.message==275){
d=GetDC(h);Rectangle(d,0,0,100,100);SYSTEMTIME s;GetLocalTime(&s);L(s.wSecond);
L(s.wMinute);L(s.wHour*5);ReleaseDC(h,d);}DispatchMessage(&m);}KillTimer(h,1);}

393:デフォルトの名無しさん
02/06/28 15:00

「　#include
　　は数えないのはどうよ？」
って議論になったことがあった（はず）なのでｷﾆｽﾝﾅ！

394:デフォルトの名無しさん
02/06/28 19:29
新たなお題キボーン

395:デフォルトの名無しさん
02/06/28 19:47
>>393
おいおい、ｿﾘｬだめだって話になったろ

396:392
02/06/28 21:22
>>395
オーケイ、分かった

#include <windows.h>
#include <math.h>
HDC d;float q=50;L(float r){r=(15-r)/9.55;MoveToEx(d,q,q,0);LineTo(d,q+q*cos(r)
,q-q*sin(r));}WINAPI WinMain(HINSTANCE i,HINSTANCE,LPSTR,int){WNDCLASS w={67,D\
efWindowProc,0,0,i,0,0,0,0,"1"};RegisterClass(&w);HWND h=CreateWindow("1",0,51\
3<<19,0,0,200,200,0,0,i,0);SetTimer(h,1,99,0);MSG m;d=GetDC(h);while(GetMessag\
e(&m,h,0,0)!=-1){if(m.message==275){Rectangle(d,0,0,100,100);SYSTEMTIME s;GetL\
ocalTime(&s);L(s.wSecond);L(s.wMinute);L(s.wHour*5);}DispatchMessage(&m);}}

先人の遺産（砂嵐）を参考にしてみた

でも、漏れには限界･･･

397:392
02/06/28 22:55
前スレの537を参考に･･･

#include <windows.h>
typedef double b;b cos(b);b sin(b);HDC d;b q=30;L(b r){r=(15-r)/9.55;MoveToEx(d
,q,q,0);LineTo(d,q+q*cos(r),q-q*sin(r));}WINAPI WinMain(HINSTANCE i,HINSTANCE p
,LPSTR l,int q){MSG m;HWND h;SYSTEMTIME s;WNDCLASS w={67,DefWindowProc,0,0,i,0,
0,0,0,"1"};RegisterClass(&w);h=CreateWindow("1",0,513<<19,0,0,95,95,0,0,i,0);S\
etTimer(h,1,99,0);d=GetDC(h);while(GetMessage(&m,h,0,0)!=-1){if(m.message==275)
{Rectangle(d,0,0,60,60);GetLocalTime(&s);L(s.wSecond);L(s.wMinute);L(s.wHour*5)
;}DispatchMessage(&m);}}

あと、24字で七行達成かな？
一人でやってると鬱だからage

誰か、助けて

398:392
02/06/28 22:56
書き忘れたけど、>>397からは.cppじゃなくて.cでよろしく

399:tara
02/06/29 04:50
VC++ .NETであれば、これでも動くはずです。

#include <windows.h>
typedef double b;b cos(b),sin(b);HDC d;b q=30;L(b r){r=(15-r)/9.55;MoveToEx(d,q
,q,0);LineTo(d,q+q*cos(r),q-q*sin(r));}WinMain(i,p,l,q){MSG m;HWND h;SYSTEMTIME
s;WNDCLASS w={67,DefWindowProc,0,0,i,0,0,0,0,"1"};RegisterClass(&w);h=
CreateWindow("1",0,513<<19,0,0,95,95,0,0,i,0);SetTimer(h,1,99,0);d=GetDC(h);
while(GetMessage(&m,h,0,0)!=-1){if(m.message==275){GetLocalTime(&s);Rectangle(
d,0,0,60,60);L(s.wSecond);L(s.wMinute);L(s.wHour*5);}DispatchMessage(&m);}}

400:デフォルトの名無しさん
02/06/29 13:54
>>395
いや、「打つ」とかかいてあったんで。

401:392
02/06/29 16:48
>>399
お早う。本当だ、動いたヨ。
ずっと、VS6でやってたからなぁ。

何はともあれ、taraさんThx!

402:392
02/06/29 18:07
#include <windows.h>
typedef double b;b sin(b),q=30;HDC d;HWND hL(b r){r=(15-r)/9.55;MoveToEx(d,q,q,
0);LineTo(d,q+q*sin(r+1.57),q-q*sin(r));}WINAPI WinMain(HINSTANCE i,HINSTANCE p
,LPSTR l,int q){MSG m;SYSTEMTIME s;WNDCLASS w={67,DefWindowProc,0,0,i,0,0,0,0,
"1"};RegisterClass(&w);h=CreateWindow("1",0,513<<19,0,0,95,95,0,0,i,0);SetTimer
(h,1,99,0);d=GetDC(h);while(GetMessage(&m,h,0,0)!=-1){if(m.message==275){Recta\
ngle(d,0,0,60,60);GetLocalTime(&s);L(s.wSecond);L(s.wMinute);L(s.wHour*5);}Dis\
patchMessage(&m);}}

taraさんを見習って宣言をまとめた。
あと、cosを使わないように変えた。
これで、5文字減らした。
VS6でも七行達成するのを目標に！

403:392
02/06/29 18:14
>>402
しまった。HWND hの後にセミコロンが抜けてる！
でも、4行目の余白で吸収されるかな。

404:デフォルトの名無しさん
02/06/29 23:34
家にはVC++無いんで確認できないけど七行達成したよ。
誰か確認おながいします。

#include <windows.h>
float sinf(float),q=30;HDC d;HWND h;MSG m;L(float r){MoveToEx(d,q,q,0);r/=9.55;
LineTo(d,q+q*sinf(r),q-q*sinf(r+1.57));}WINAPI WinMain(HINSTANCE i,HINSTANCE p,
LPSTR l,int q){SYSTEMTIME s;WNDCLASS w={67,DefWindowProc,0,0,i,0,0,0,0,"1"};Re\
gisterClass(&w);Rectangle(d=GetDC(h=CreateWindow("1",0,513<<19,0,0,95,95,0,0,i,
0)),0,0,60,60);SetTimer(h,1,99,0);while(GetMessage(&m,h,0,0)>-1)m.message==275?
GetLocalTime(&s),L(s.wSecond),L(s.wMinute),L(s.wHour*5):0;DispatchMessage(&m);}

405:せめて
02/06/29 23:37
>>404
なにをするプログラムなのか、書け

406:392
02/06/29 23:41
#include <windows.h>
typedef double b;b sin(b),q=30;HDC d;HWND h;L(b r){r=(15-r)/9.55;MoveToEx(d,q,q
,0);LineTo(d,q+q*sin(r+1.57),q-q*sin(r));}WINAPI WinMain(HINSTANCE i,HINSTANCE
p,LPSTR l,int q){MSG m;WORD s[8];WNDCLASS w={67,DefWindowProc,0,0,i,0,0,0,0,"1"
};RegisterClass(&w);h=CreateWindow("1",0,513<<19,0,0,95,95,0,0,i,0);SetTimer(h,
1,99,0);d=GetDC(h);while(GetMessage(&m,h,0,0)!=-1){if(m.message==275){Rectangle
(d,0,0,60,60);GetLocalTime((PSYSTEMTIME)s);L(s[6]);L(s[5]);L(s[4]*5);}Dispatch\
Message(&m);}}

SYSTEMTIME構造体をWORDの配列に変更

407:404
02/06/29 23:53
>405
>>402のを縮めてみますた。

408:392
02/06/29 23:53
>>404
ごめん、見てなかった

残念ながら、
error LNK2001: 外部ｼﾝﾎﾞﾙ "_sinf" は未解決です
fatal error LNK1120: 外部参照 1 が未解決です。

と言われたよ。

409:デフォルトの名無しさん
02/06/30 00:03
つーか>>399のやつ、VC6.0でも動くが何が問題？

410:392
02/06/30 00:13
>>409
あ、VC.NETで動くのは見たけど、
VC6で動かないのは確かめなかった。
taraさん、>>404さん、ごめんなさい

#include <windows.h>
double sin(double),q=30;HDC d;L(double r){r/=9.55;MoveToEx(d,q,q,0);LineTo(d,q+
q*sin(r),q-q*sin(r+1.57));}HWND h;WinMain(i,p,l,q){MSG m;WORD s[8];WNDCLASS w={
67,DefWindowProc,0,0,i,0,0,0,0,"1"};RegisterClass(&w);h=CreateWindow("1",0,513\
<<19,0,0,95,95,0,0,i,0);SetTimer(h,1,99,0);d=GetDC(h);while(GetMessage(&m,h,0,0
)!=-1){m.message==275?Rectangle(d,0,0,60,60),GetLocalTime((PSYSTEMTIME)s),L(s[6]
),L(s[5]),L(s[4]*5):0;DispatchMessage(&m);}}

これで最後。

411:392
02/06/30 00:27
>>409
教えてくれてありがとう。
おかげで助かった。

412:tara
02/06/30 01:42
>409
お、VC++6.0でも動きましたか。
.NETの方しかインストールしてなかったもので、確認できなかったんです。
ありがとうございました。

413:404
02/06/30 01:48
>>408
sinfってman引いてあったから使ったんだけどVCには無いのか。鬱氏。

>>410
7行達成おめでとう♪

414:392
02/06/30 02:00
>>413
ありがとうございます
sinの計算と、三項演算子は参考にさせて頂きました。

ところで、次のお題って誰かありませんか？

415:tara
02/06/30 02:15
>414
遅ればせながら、おめでとうございます。
で、次ですか……。
POP3のクライアントってありましたっけ。

416:392
02/06/30 04:53
>>415
POP3クライアントは、
無かったと思いますよ。
SMTPは･･･、参加なさってたんですね（ｗ

とりあえず、Webアプリの経験ないんで、
猫で修行しに逝ってきます
URLﾘﾝｸ(www.kumei.ne.jp)

417:デフォルトの名無しさん
02/06/30 05:26
pop3は意味無いだろ
メッセージ取ってきてもmimeとかでエンコーディングされてるし

418:デフォルトの名無しさん
02/06/30 10:15
>>417
デコードすればいいじゃん。
できない？
nkf32.dllを使いなさい。

419:４ｋ demo
02/06/30 12:42
７行じゃないけど・・・これはすごいの？すごくないの？どぉなの？

４K＋ポリゴン＋音源＋音楽
fURLﾘﾝｸ(ftp.jp.scene.org)

420:おまえら！
02/06/30 12:44
includeしているのは何行あるんだ！
7行じゃなくてコンパイル後のサイズで勝敗つけろや！

421:デフォルトの名無しさん
02/06/30 12:46
>>420
＞includeしているのは何行あるんだ！

その手があったか！ｗ

422:デフォルトの名無しさん
02/06/30 12:54
>>420
それでいいやろ(w

423:デフォルトの名無しさん
02/06/30 14:07
>>420
静的リンクする上に、標準のライブラリもサイズに含めるということかな？
でも、ライブラリなんて（サイズも含めて）システム依存だから、単純に比べられないよね

アセンブラだったら、ソースコードの方がサイズが大きいってことか…

424:デフォルトの名無しさん
02/06/30 14:08
>>420
Perl や JavaScript はどうすればいいんだ？

425:おまえら！
02/06/30 16:57
PerlはともかくJavaはこんぱいるできるだろ。

426:デフォルトの名無しさん
02/06/30 17:42
Java(以下略)

427:デフォルトの名無しさん
02/06/30 18:19
>>425
Perl はコンパイルできますが、JavaScript は……

428:デフォルトの名無しさん
02/06/30 19:16
>>425
議論をするのは構わないけど、ageないで。

429:デフォルトの名無しさん
02/06/30 20:27
インタプリタは従来どおりでｲｲんじゃ？

430:おまえら！part2
02/06/30 21:20
>>423
あほか？
ワシがいうてんのは、しらん人間の作ったソースを
組み込んでて、
「すごいねチミ！ﾊｧﾊｧ」
「おたくのやつのほうがスゴイッスよアニキィ！ﾊｧﾊｧ」
やってられん！

431:デフォルトの名無しさん
02/06/30 22:17
>>430
それって GPL ？

432:デフォルトの名無しさん
02/06/30 22:17
>>430
オブジェクトならいいのか ?

433:おまえら！part2
02/06/30 22:28
俺はすごいぞ。
Cの標準関数なんぞ使ったこと無い。
人のライブラリなんぞ信用できるか！

main以外は全部自作だ。

434:デフォルトの名無しさん
02/06/30 22:54
mainを他人のプログラムから流用するのはｽｺﾞｲ

435:デフォルトの名無しさん
02/06/30 22:54
4kデモはデモスレで語ってくれ。

436:デフォルトの名無しさん
02/06/30 22:56
>>433
Windowsのプログラムをどう書いてるのか、興味が・・・

437:デフォルトの名無しさん
02/06/30 23:37
>>433
もちろん Java でもそれを実行なさっている、と

438:デフォルトの名無しさん
02/06/30 23:42
まぁ、漏れもJavaでCの標準関数は使わないな

439:デフォルトの名無しさん
02/07/01 00:41
で、この議論は７行スレとどんな関係があるのですか？

440:デフォルトの名無しさん
02/07/01 00:57
>>438
使っている漏れは、どうすればいいのでしょう

441:デフォルトの名無しさん
02/07/03 22:11
保守

442:デフォルトの名無しさん
02/07/03 23:31
うーん
７行でJPEG、かなり厳しいなぁ・・・

443:デフォルトの名無しさん
02/07/04 01:11
>>442
７行で DCT あるいは DFT だけならいけるかもしれないよ。
つーか、普通に書いてもメインの部分はそれくらいか…

444:デフォルトの名無しさん
02/07/04 01:18
>442
7行無圧縮PNGなら出来るかもな。
でも、CRCの計算がきついかもしれない。

445:デフォルトの名無しさん
02/07/04 09:57
>>444
とりあえず CRC の部分から書き始めてみる？
そこから、PNG のように大きな枠組みに持っていくのは大変かもしれないけど、
任意の CRC を計算するまでならできそうだし、それはそれで功有りかと。

446:デフォルトの名無しさん
02/07/04 10:49
>>445
いいですねぇ。最終的に7行の*.cファイル群を幾つかリンクするとJPEGエンコーダ/
デコーダ等々になる、というのは面白いかも。

447:445
02/07/04 11:52
CRC32 を計算、入力は標準入力から。g++ 2.95.3
多分あってると思いますが、確認お願いします。

#include <fstream>
unsigned C,t[256],i,j,v,a=256;
main(){
for(i=0;i<a;t[i++]=v)for(v=i,j=0;j<8;j++)v=(v&1)?((v/2)^0xEDB88320):(v/2);
for(C=~0;~(i=cin.get());)C=t[(C%a)^i]^(C/a);
cout<<hex<<~C<<endl;
}

448:445
02/07/04 12:08
ごめんなさい。１つ前のバージョンを送ってしまいました。

#include <fstream>
unsigned C,t[256],i,j,a=256;
main(){
for(;i<a;t[i++]=C)for(C=i,j=9;--j;)C=C/2^(C&1?0xEDB88320:0);
for(C=~0;~(i=cin.get());C=t[(C%a)^i]^(C/a));
cout<<hex<<~C<<endl;
}

449:デフォルトの名無しさん
02/07/04 13:34
参考資料
URLﾘﾝｸ(www01.u-page.so-net.ne.jp)

450:445
02/07/04 14:49
>>449
そうです。そこから縮めました。書いておけばよかったですね、はい。
ちなみに C=t[C%a^i]^C/a) でもう少し縮められます。

451:1
02/07/04 18:54

#include <stdio.h>

int main(void)
{
while(1)
printf("\t\b\b");
}

452:デフォルトの名無しさん
02/07/04 22:49
>>451
XPクラッシャーじゃん

453:デフォルトの名無しさん
02/07/05 09:21
>>452
確か 2000 でも落ちるような。
9x, Me は大丈夫。

454:デフォルトの名無しさん
02/07/05 21:47
>>453
NT系アウトの罠>>printf("\t\b\b");

455:デフォルトの名無しさん
02/07/06 10:39
七行プログラミングのスレにでてるコードをちゃんとインデントを入れた形に整形してくれる
プログラムなんてガイシュツですか？

456:デフォルトの名無しさん
02/07/06 10:41
>>455
作ればいいかと。{}付けがよっぽど変なバカのコード以外は簡単かと。

457:デフォルトの名無しさん
02/07/06 10:45
>>455
プリティプリンタでぐぐればいっぱいあるよ。

458:デフォルトの名無しさん
02/07/06 11:11
gnu-indent

459:デフォルトの名無しさん
02/07/06 11:19
>>455
visual stadioでもできるよ（たぶん

460:デフォルトの名無しさん
02/07/06 11:22
できない

461:デフォルトの名無しさん
02/07/06 19:53
DCTまだですか？

462:デフォルトの名無しさん
02/07/06 22:43
double c[8][8],is;void di(){int u,v;is=1./sqrt(2.);for(u=0;u<8;u++)for(v=0;x<8;
x++)c[u][x]=cos((2.*x+1.)*u*M_PI/16.);}void dc(int *b){int v,u,x,y,w[64];double
s,cu,cv;for(v=0;v<8;v++){cv=(v==0)?is:1.0;for(u=0;u<8;u++){cu=(u==0)?is:1.;s=0;
for(y=0;y<8;y+)for(x=0;x<8;x++)s+=b[y*8+x]*c[u][x]*c[v][y];w[v*8+u]=(int)(s*cu*
cv/4);}}}

463:デフォルトの名無しさん
02/07/06 23:07
>>462
x と v を間違えたり、y+ になったり、ちょっとしょぼーん（´・ω・｀）
もっと短くできそうだ

次は、PNG と JPG のファイルフォーマット変換部分か…

464:デフォルトの名無しさん
02/07/06 23:23
モジュールを集めればJPEGだって何だってできるのはあたりまえだから、
もう少し「寄せ集めること」の意義を考えてみないか？

たとえばSUSIEみたいに、メインルーチンとローダー・変換部分をわけて、
それぞれが７行プログラムで作成されているというように。

465:462
02/07/06 23:25
>>463 叩き台なので勘弁してCRAY.

466:デフォルトの名無しさん
02/07/06 23:54
Javaを使えば、JPEG入出力なんて始めからできているという罠

467:デフォルトの名無しさん
02/07/07 00:28
double c[8][8],is,s;int x,y,u,w[64];di(){is=1/sqrt(2);for(u=0;u<64;u++)c[u/8][u
%8]=cos((2*(u%8)+1)*(u/8)*M_PI/16);}dc(int*b){for(x=0;x<8;x++)for(u=0;u<8;w[x*8
+u]=s*(x?1:is)*(u++?1:is)/4)for(s=0,y=0;y<64;y++)s+=b[y]*c[u][y%8]*c[x][y/8];}

468:463
02/07/07 01:11
先を越された…
double c[8][8],s;int x,y,w[64];di(){for(x=64;x--;c[y=x/8][x%8]=cos((2*(x%8)+1)*
y*M_PI/16));}dc(int*b){for(x=64;x--;w[x]=s*(x/8?1:1/sqrt(2))*(x%8?1:1/sqrt(2))/
4)for(s=0,y=64;y--;)s+=b[y]*c[x%8][y%8]*c[x/8][y/8];}

469:デフォルトの名無しさん
02/07/07 12:27
>>464
過去ログ読んでね。そう言うコンセプトでやってる。

470:464
02/07/07 18:19
>>469
ごめん。読んでいるけどわからんかった・・・ｳﾂ

471:デフォルトの名無しさん
02/07/08 02:27
(⌒Д⌒)あらやだわ奥さんハハハ

472:みぃとぼぉる
02/07/08 15:09
参戦？させていただきます。んで、Pascalにて迷路...

Program Q;const B=$B800;var S,C,D,F:Word;A:Array[1..999]of Integer;begin For C
:=81to 3840do begin MemW[B:C*2]:=4016;If(C mod 80)=77 then C:=C+3;end;S:=1;A[S]
:=324;while(S>0)do begin C:=A[S];Mem[B:C]:=0;F:=0;while(F<15)do begin D:=(
Port[65]+S)mod 4;F:=F OR(1SHL D);D:=(2-(D div 2)*4)*(1+(D mod 2)*79);If Mem[B:C
+D*2]=176then begin Mem[B:C+D]:=0;A[S+1]:=C+D*2;S:=S+2;Break;end;end;S:=S-1;end
;Mem[B:164]:=0;Mem[B:7672]:=0;Readln;End.

80x50の英語モードDOS窓で CLS してから実行してちょ。
Borland Pascal 7.0 / WinXP で動作確認済み。難しい事は一切やっていないような。
ランタイムエラーが怖いのでCRTは未使用です。

尚、MS-DOSのメモリ依存。

473:みぃとぼぉる
02/07/08 16:25
ちょっぴり修正。

Program Q;Uses crt;const B=$B800;var S,C,D,F:Word;A:Array[1..999]of Word;begin
TextMode(259);Randomize;For C:=81to 3840do begin MemW[B:C*2]:=4059;If(C mod 80)
=77 then C:=C+3;end;S:=1;A[S]:=324;while(S>0)do begin C:=A[S];Mem[B:C]:=0;F:=0;
while(F<15)do begin D:=Random(4);F:=F OR(1SHL D);D:=(2-(D div 2)*4)*(1+(D mod 2
)*79);If Mem[B:C+D*2]=219then begin Mem[B:C+D]:=0;A[S+1]:=C+D*2;S:=S+2;Break;
end;end;S:=S-1;end;Mem[B:164]:=0;Mem[B:7672]:=0;Readln;End.

- ランダムナンバージェネレーターにポートを使わずに正規の命令を使用。
- 毎回生成するパターンも変更される。
- Borland / Turbo Pascal で実行時にエラーが出る場合は CRT と TextMode を削除
するか、バグ修正板のCRT RTLを使用すること。

でわ。

474:775
02/07/09 23:02
激簡単なもんから・・・・。
元画像をppmに限定すれば読みこみはかなり削減できないかな。＞コンバータ

#include <stdio.h>/* usage:bmp2ppm src.bmp dest.ppm*/
main(int c, char*v[]){int i,x,y;FILE *f,*g;if(c<3)return;if((f=fopen(v[1],
"rb"))==NULL||(g=fopen(v[2],"w"))==NULL)return;fseek(f,18,SEEK_SET);fread(&x,4
,1,f);fread(&y,4,1,f);fprintf(g,"P6\n%d %d\n255\n",x,y);fseek(f,54,SEEK_SET);
for(i=0;i<x*y*3;i++)fputc(fgetc(f),g);fclose(f);fclose(g);}

475:392
02/07/10 10:32
遅くなったけど、popクライアント
rcvmail サーバ名ユーザ名パスワードメール番号

#include <WinSock.h>
char z[512];int s,r,S;M(){z[r=recv(s,z,512,0)]=0;printf("%s",z);}T(x,y){r=spri\
ntf(z,x,y);strcat(z,"\r\n");send(s,z,r+2,0);M();}main(int c,char** v){SOCKADDR\
_IN a={2,28160};WSAStartup(257,z);a.sin_addr=*((PIN_ADDR)*(gethostbyname(v[1]))
->h_addr_list);connect(s=socket(2,1,0),&a,16);M();T("USER %s",v[2]);T("PASS %s"
,v[3]);if(c>4&&(c=atoi(v[4]))>0){T("LIST %d",c);sscanf(z,"%s%d%d",z+r,&r,&S);T(
"RETR %d",c);while((S-=r)>=0)M();}T("QUIT",0);closesocket(s);WSACleanup();}

476:463
02/07/10 18:19
>>474
上下反転はともかく、ＲＧＢも逆だといやんなので、直しました。
上下も直した方が良いでしょうかね？

#include <stdio.h>/* usage:bmp2ppm src.bmp dest.ppm */
main(int c,char**v){int i,x,y,z[3];FILE*f,*g;if(c<3||(f=fopen(v[1],"rb"))==NULL
||(g=fopen(v[2],"w"))==NULL)return;fseek(f,18,c=SEEK_SET);fread(&x,4,1,f);fread
(&y,4,1,f);fprintf(g,"P6\n%d %d\n255\n",x,y);fseek(f,54,c);for(i=x*y;--i;){for(
c=0;c<3;)z[c++]=fgetc(f);for(;c--;)fputc(z[c],g);}fclose(f);fclose(g);}

477:デフォルトの名無しさん
02/07/10 21:36
保守

478:デフォルトの名無しさん
02/07/10 21:41
>>477
早っ ∑(ﾟДﾟ)

479:デフォルトの名無しさん
02/07/10 22:35
popｸﾗｲｱﾝﾄ
ｷﾀ━━(^∀ﾟ)━━!!

480:デフォルトの名無しさん
02/07/11 18:47
寄せ集めで作ってみた無圧縮PNG。10行ﾃﾞｽ
CRCは>>448のを使わせてもらいました

#include <stdio.h>
typedef unsigned U;U X=128,C,t[256],i,j,a=256,h[17]={73,72,68,82},d[1<<18]={73,
68,65,84,120,218,1},l,M=1,N;FILE*f;B(U b){fputc(b,f);}W(U n){B(n>>24);B(n>>16);
B(n>>8);B(n);}S(U*b,U n){for(i=0;i<n;)B(b[i++]);for(i=0;i<a;t[i++]=C)for(C=i,j=
9;--j;)C=C/2^(C&1?0xedb88320:0);for(i=0,C=~0;i<n;)C=t[C%a^b[i++]&0xff]^C/a;W(~C
);}main(){f=fopen("mona.png","wb");W(0x89504e47);W(0xd0a1a0a);l=X+X*X*3;h[7]=h[
11]=X;h[12]=8;h[13]=2;W(13);S(h,17);d[7]=l;d[8]=l>>8;d[9]=~l;d[10]=~l>>8;l+=11;
for(i=11;i<l;M=(M+d[i++])%65521,N=(N+M)%65521)d[i]=(i-11)%(X*3+1)?i%a:0;d[i++]=
N>>8;d[i++]=N;d[i++]=M>>8;d[i++]=M;W(l);S(d,l+4);W(0);W(0x49454e44);
W(0xae426082);}

481:デフォルトの名無しさん
02/07/11 20:43
これは流石に7行は無理じゃなかろか?

482:480
02/07/12 14:08
9行･･･これ以上は無理ぽ

#include <stdio.h>
typedef unsigned U;U X=128,C,t[256],i,j,a=256,h[17]={73,72,68,82},d[1<<18]={73,
68,65,84,120,218,1},l,M=1,N;FILE*f;B(U b){fputc(b,f);}W(U n){B(n>>24);B(n>>16);
B(n>>8);B(n);}S(U*b,U n){for(i=0;i<a;t[i++]=C)for(C=i,j=9;--j;)C=C/2^(C&1?
0xedb88320:0);for(i=0,C=~0;i<n;C=t[C%a^b[i++]&0xff]^C/a)B(b[i]);W(~C);}main(){f
=fopen("mona.png","wb");W(0x89504e47);W(0xd0a1a0a);l=X+X*X*3;h[7]=h[11]=X;h[12]
=8;h[13]=2;W(13);S(h,17);d[7]=l;d[8]=l>>8;d[9]=~l;d[10]=~l>>8;l+=11;for(i=11;i<
l;M=(M+d[i++])%65521,N=(N+M)%65521)d[i]=(i-11)%(X*3+1)?i%a:0;d[i++]=N>>8;d[i++]
=N;d[i++]=M>>8;d[i]=M;W(l);S(d,l+4);W(0);W(0x49454e44);W(0xae426082);}

483:448
02/07/12 18:45
>>480
縮めてみました。

#include <stdio.h>
typedef unsigned U;U*x,X=128,i,j,a=256,t[256],l,M=1,k;FILE*f;W(U n){for(i=4;i--
;)fputc(n>>i*8,f);}S(U*b,U n){W(n-4);for(i=~0;n--;i=t[i%a^*b++%a]^i/a)fputc(*b,
f);W(~i);}main(){U h[17]={73,72,68,82,0,0,0,X,0,0,0,X,8,2},d[1<<18]={73,68,65,
84,120,218,1,l=X+X*X*3,l/a,~l,~l/a};f=fopen("mona.png","wb");for(i=a;i--;k=l/X)
for(k=i,j=9;--j;x=d+11)t[i]=k=k/2^(k&1?0xedb88320:0);W(0x89504e47);W(0xd0a1a0a)
;for(S(h,17);l;l--)j+=M+=*x++=l%k?l%a:0,M%=i=65521,j%=i;*x++=j/a;*x++=j;*x++=M/
a;*x++=M;S(d,x-d);W(0);fputs("IEND\256B`\202",f);}

484:デフォルトの名無しさん
02/07/12 22:43
>>483
もうわからん∑（´Д｀；)

485:484
02/07/12 22:46
つーか、新ﾈﾀ来たらあげて良し。

486:デフォルトの名無しさん
02/07/12 23:21
mona.pngって…

487:デフォルトの名無しさん
02/07/12 23:23
>>486
モナの絵が出てくるかと思ったけど、そうじゃないところが２ちゃんらしいというか。

488:デフォルトの名無しさん
02/07/14 00:38
age

489:484
02/07/14 02:18
これ以上はちょっと苦しいですね。
標準出力にしてもよいなら、後６文字くらいなんですが。

#include <stdio.h>
unsigned t[256],M=1,i,j,k,l,X=128,a=256;FILE*f;W(int n){for(i=4;i--;)putc(n>>i*
8,f);}S(int*b){W(X-4);for(i=~0;X--;i=t[i%a^putc(*b++,f)%a]^i/a);W(~i);}main(){
int*x,h[17]={73,72,68,82,0,0,0,X,0,0,0,X,8,2},d[1<<16]={73,68,65,84,120,218,1,l
=X+X*X*3,l/a,~l,~l/a};f=fopen("mona.png","wb");for(i=a;i--;k=l/X)for(k=i,j=9;--
j;x=d+11)t[i]=k=k/2^(k&1?0xedb88320:0);W(0x89504e47);W(0xd0a1a0a);for(X=17,S(h)
;l;l--)j+=M+=*x++=l%k?l%a:0,M%=i=65521,j%=i;*x++=j/a;*x++=j;*x++=M/a;*x++=M;X=x
-d;S(d);W(0);fputs("IEND\256B`\202",f);}

490:デフォルトの名無しさん
02/07/14 02:21
失礼。 484 ではなく 448 でした。

491:448
02/07/14 02:59
標準出力へ無圧縮 PNG を吐き出す７行プログラム

#include <stdio.h>
unsigned t[256],M=1,i,j,l,X=128,a=256;W(int n){for(i=4;i--;)putchar(n>>i*8);}S(
int*b){W(X-4);for(i=~0;X--;i=M^i/a)for(M=i%a^putchar(*b++)%a,j=9;--j;)M=M/2^(M&
1?0xedb88320:0);W(~i);}main(){int*x,h[17]={73,72,68,82,0,0,0,X,0,0,0,X,8,2},d[1
<<16]={73,68,65,84,120,218,1,l=X+X*X*3,l/a,~l,~l/a};W(0x89504e47);W(0xd0a1a0a);
X=l/X;for(x=d+11;l;l--)j+=M+=*x++=l%X?l%a:0,M%=i=65521,j%=i;*x++=j/a;*x++=j;*x
++=M/a;*x++=M;X=17;S(h);X=x-d;S(d);W(0);printf("IEND\256B`\202");}

492:デフォルトの名無しさん
02/07/14 10:39
ってかコンパイルとおらん・・・。
「不正な初期化」

493:448
02/07/14 13:28
>>492
gcc -ansi foo.c として通ったから問題ないと思った・・・
どこがだめだかわかります？ h[] と d[] の初期化かなぁ

494:448
02/07/14 13:47
>>492
通らないコンパイラは bcc32 かな。
gcc も -pedantic を付けたら通らなかった。
配列の初期化はコンパイル時に決定すべし、ということを忘れていたよ・・・欝

495:デフォルトの名無しさん
02/07/14 13:56
------ ビルド開始 : プロジェクト : 491, 構成 : Debug Win32 ------

コンパイルしています...
main.cpp
f:\programs\C++.net\7行\part2\491\main.cpp(2) : warning C4508: 'W' : 関数に戻り値の型が指定されていません。戻り値を void 型と見なします。
f:\programs\C++.net\7行\part2\491\main.cpp(4) : warning C4508: 'S' : 関数に戻り値の型が指定されていません。戻り値を void 型と見なします。
f:\programs\C++.net\7行\part2\491\main.cpp(7) : warning C4244: '=' : '__w64 int' から 'unsigned int' に変換しました。データが失われているかもしれません。
リンクしています...

ビルドログは "file://f:\programs\C++.net\7行\part2\491\Debug\BuildLog.htm" に保存されました。
491 - エラー 0、警告 3

---------------------- 終了 ----------------------

ビルド : 1 正常終了、0 失敗、0 スキップ

496:392
02/07/15 10:40
>>475 で受信したメッセージのSJISの本文を読めるようにする

rcvmail サーバ名ユーザ名パスワードメール番号 | tosjis

#include <stdio.h>
int x,y=0,f=0,c=-1,h,l;int T(int j){h=(j>>8)&255;l=j&255;l+=(h&1)?31:125;if(l>
126)l++;h=((h-33)>>1)+129;if(h>159)h+=64;return(h<<8)|l;}main(){while((x=getch\
ar())!=EOF)if(++c||x!=27)if(c!=1||!f||x!=40)if(c!=1||f||x!=36){if(c!=2||x!=66){
if(f)if(x<33||x>126)putchar(x);else if(!y)y=x;else{x=T(x|(y<<8));y=0;putchar(x
>>8);putchar(x&255);}else putchar(x);}else f^=1;c=-1;}}

497:デフォルトの名無しさん
02/07/15 19:48
>>496
縮めてみました。

#include <stdio.h>
int x,y,f,c=-1;main(){while(~(x=getchar()))if(++c||x-27)if(c-1||!f||x-40)if(c-1
||f||x-36){if(c-2||x-66)f&&32<x&&x<127&&!(c=!y)?x+=y&1?31:125,x>126?x++:0,y=(y-
33)/2+129,putchar(y>159?y+64:y),y=0:0,c?y=x:putchar(x);else f^=1;c=-1;}}

498:デフォルトの名無しさん
02/07/15 20:24
4行…(~~~ ﾟ ∀~)~~~ ﾟ　ﾒﾀﾞﾏﾎﾞｰﾝ

499:デフォルトの名無しさん
02/07/15 20:28
>>498ﾜﾗﾀ。

( ~~~ﾟ ∀~)~~~ ﾟ　ﾒﾀﾞﾏﾎﾞｰﾝ

みんなご一緒に… ( ~~~ ﾟ ∀~)~~~ ﾟ　ﾒﾀﾞﾏﾎﾞｰﾝ

意味不明なところで>>500getしてください。

500:デフォルトの名無しさん
02/07/15 20:30
500!!
7行は永遠に不滅です！

501:デフォルトの名無しさん
02/07/15 20:32
>>500
はげどー

502:デフォルトの名無しさん
02/07/15 20:35
七行はPart2で終わりです

503:デフォルトの名無しさん
02/07/15 20:46
Part2で終り？！・・・( ~~~ﾟ ∀~)~~~ ﾟ　ﾒﾀﾞﾏﾎﾞｰﾝ

504:デフォルトの名無しさん
02/07/15 20:48
７行どころか７行未満にする達人が増えたので、今度は
　７行以下プログラミング
になります。

505:デフォルトの名無しさん
02/07/15 20:51
>>497 を　>>475 の pop クライアントに融合させ、
直接 SJIS でメールを読むことができるようにならんかなぁ

お題のつもりなので age ます

506:497
02/07/15 21:59
これ以上は難しそうなので、終わりにします。
メールの方は良くわからないので、 >>505 のお題は他の方、どうぞお願いします。

#include <stdio.h>
int x,y,f,c=-1;main(){while(~(x=getchar()))if(++c||x-27)if(c-1||!f||x-40)if(c-1
||f||x-36){c==2&&x==66?f^=1:(f&&32<x&&x<127&&!(c=!y)?x+=y&1?x>95?32:31:126,y=(y
-33)/2+129,putchar(y>159?y+64:y),y=0:0,c?y=x:putchar(x));c=-1;}}

507:デフォルトの名無しさん
02/07/16 00:00
(~~~ ﾟ ∀~)~~~ ﾟ　ﾒﾀﾞﾏﾎﾞｰﾝ

508:デフォルトの名無しさん
02/07/16 20:33
保持age

509:デフォルトの名無しさん
02/07/17 01:00
repeat
cls 0:mes ""+h+":"+m+":"+s
wait 100
s+
if s=60{m+:s = 0}
if m=60{h+:m = 0}
loop

510:392
02/07/17 15:12
>>505 のお題に応えてみたけど・・・
とりあえず、くっつけてみただけ

#include <WinSock.h>
char z[512];int s,r,S,x,f,y,c=-1;M(){z[recv(s,z,512,0)]=0;for(r=0;x=z[r++];)if(
++c||x-27)if(c-1||!f||x-40)if(c-1||f||x-36){c==2&&x==66?f^=1:(f&&32<x&&x<127&&!
(c=!y)?x+=y&1?x>95?32:31:126,y=(y-33)/2+129,putchar(y>159?y+64:y),y=0:0,c?y=x:\
putchar(x));c=-1;}}T(x,y){r=sprintf(z,x,y);send(s,strcat(z,"\r\n"),r+2,0);M();}
main(int c,char** v){SOCKADDR_IN a={2,28160};WSAStartup(257,z);a.sin_addr=*((P\
IN_ADDR)*(gethostbyname(v[1]))->h_addr_list);connect(s=socket(2,1,0),&a,16);M()
;T("USER %s",v[2]);T("PASS %s",v[3]);if(c>4&&(c=atoi(v[4]))>0){T("LIST %d",c);
sscanf(z,"%s%d%d",z+r,&r,&S);T("RETR %d",c);while((S-=r)>=0)M();}T("QUIT",0);c\
losesocket(s);WSACleanup();printf("\r\n");}

現在、10行

511:デフォルトの名無しさん
02/07/19 18:21
age

512:七誌饅頭 ◆Pc9801rE
02/07/20 17:23
静的RangeEncoderです
encode inputfile outputfileとして使ってください。
unsigned longのかわりにsize_tを使うなど、外道なことをしています。

#include <stdio.h>
size_t l=0,r=0xffffffff,z,u[257];unsigned char f[256];main(int a,char**v){FILE
*n=fopen(v[1],"rb"),*o=fopen(v[2],"wb");int i,c;fseek(n,0,2);z=ftell(n);fwrite
(&z,4,1,o);fseek(n,0,0);while((c=fgetc(n))!=-1)if(f[c]!=255)f[c]++;for(i=0;i<
256;i++)u[i+1]=u[i]+f[i];fwrite(f,1,256,o);fseek(n,0,0);while((c=fgetc(n))!=-1
){r/=u[256];l+=u[c]*r;r*=f[c];while((l^l+r)<1<<24||r<1<<16&&((r=65535&~l+1),1)
){fputc(l>>24,o);r<<=8;l<<=8;}}for(i=0;i<4;i++){fputc(l>>24,o);l<<=8;}}

513:七誌饅頭 ◆Pc9801rE
02/07/20 17:24
ついでにDecoder
#include <stdio.h>
unsigned char f[256];size_t l,r=0xffffffff,c,q,z,u[257],i;main(int a,char**v){
FILE*n=fopen(v[1],"rb"),*o=fopen(v[2],"wb");fread(&z,4,1,n);fread(f,1,256,n);
for(i=0;i<256;i++)u[i+1]=u[i]+f[i];for(i=0;i<4;i++)c=c<<8|fgetc(n);while(z){r
/=u[256];q=(c-l)/r;if(q>=u[256])return;for(i=0;i<256&&q>=u[i+1];i++);if(i>=256
)break;fputc(i,o);z--;l+=u[i]*r;r*=f[i];while((l^l+r)<1<<24||r<1<<16&&((r=~l+1
&65535),1)){c=c<<8|fgetc(n);r<<=8;l<<=8;}}}

514: ◆iM7eXrMU
02/07/20 18:20
C言語+Win32でマンデルブロー。
cygwin で gcc -mno-cygwin -mwindows でコンパイル。
2行目はs=倍率、x=x座標、y=y座標。適当に変えれ。
s=2400,x=500,y=1030なんかも良いかも。

#include <windows.h>
int s=5800,x=1100,y=3000;
m(double a,double b){int t=100;double c,d,e,f;c=a=(a+x)/s;d=b=(b+y)/s;while(t--
){e=c*c-d*d+a;f=2*c*d+b;if(e*e+f*f>4)return 0;c=e;d=f;}return 1;}int WINAPI
WinMain(HINSTANCE q,HINSTANCE w,PSTR e,int r){HDC a=CreateDC("DISPLAY",0,0,0);
double i,j,k=0.5;for(j=0;j<400;j++)for(i=0;i<400;i++)SetPixel(a,i,j,255-RGB(((m
(i,j)+m(i+k,j)+m(i+k,j+k)+m(i,j+k)))*63,0,0));DeleteDC(a);}

515:デフォルトの名無しさん
02/07/20 21:05
＞7行×79文字なら言語は問いません。
＞過去作品は>>2-5を参照。

これ7行ﾌﾟﾛｸﾞﾗﾐﾝｸﾞじゃなくて、素直に553文字ﾌﾟﾛｸﾞﾗﾐﾝｸﾞにしたほうが
いいような気がする。
改行文字はカウントに含まない。
それでいいじゃん。
本質はそういう事だし、読みづらいだけ。
多分ｶﾞｲｼｭﾂなんだろうけど。
あと悪気はありません。これ面白いと思います。

516:デフォルトの名無しさん
02/07/20 21:14
改行をいかに避けるかにも面白さがあるんじゃないかな？ともおもう

517:デフォルトの名無しさん
02/07/20 22:00
>>512 >>513
符号と復号を別々にしても、いまさらという感じがする。
前スレｽﾚﾘﾝｸ(tech板:745番) で、
両者を併せて７行にしてしまっている（こちらは動的だが）。

できれば、静的バージョンもあわせて７行を目指して頑張って欲しい。

518:517
02/07/20 22:10
どうでもいいことなのかもしれないが、
過去レスで使われているテクニックをもっと使って欲しいと思ふ。

for 文の記述 for(i=0;i<x;i++){} --> for(i=x;i--;){}
シフト演算の置換 x<<=8,y>>=8; --> a=256;x*=a;y/=8;
ビット演算の利用 x=0xffffffff;while((c=getchar())!=EOF){}
　　　　　　　　　--> x=~0;while(~(c=getchar())){}

519:デフォルトの名無しさん
02/07/21 11:53
>>518
参考になります。
過去ログあんまり読んでなので。なんとなくやっただけだし。
今9行。exec E input outputでエンコード
exec d input outputでデコード
ファイルの入出力が痛い。
#include <stdio.h>
size_t l=0,r=~0,z,q,e,u[257],g;unsigned char f[256];main(int a,char**v){FILE*n
=fopen(v[2],"rb"),*o=fopen(v[3],"wb");int c=4,x=256;if(g=*v[1]-69){fread(&z,4,
1,n);fread(f,1,x,n);for(;c--;)e=e*x|fgetc(n);}else{while(~(c=fgetc(n)))z++,f[c
]<255?f[c]++:0;fwrite(&z,4,1,o);fwrite(f,1,x,o);fseek(n,0,0);}for(c=0;c<x;c++)
u[c+1]=u[c]+f[c];while(g?z--:~(c=fgetc(n))){r/=u[x];if(g){if((q=(e-l)/r)>=u[x]
)break;for(c=x;--c&&q<u[c];);fputc(c,o);}l+=u[c]*r;r*=f[c];while((l^l+r)<1<<24
||r<1<<16&&((r=65535&~l+1),1))g?(e=e*x|fgetc(n)):fputc(l>>24,o),r*=x,l*=x;}if(
!g)for(c=4;c--;)fputc(l>>24,o),l*=x;}

520:デフォルトの名無しさん
02/07/21 14:55
#include <stdio.h>
size_t l,r=~0,z,q,e,u[257],g,f[256];main(int a,char**v){FILE*n=fopen(v[2],"rb"
),*o=fopen(v[3],"wb");int c=4,x=256,(*t)()=fgetc;if(g=*v[1]-69)for(fread(&z,4,
1,n),fread(f,4,x,n);c--;)e=e*x|t(n);else{while(~(c=t(n)))z++,f[c]<255?f[c]++:0
;fwrite(&z,4,1,o);fwrite(f,4,x,o);fseek(n,0,0);}for(c=0;c<x;c++)u[c+1]=u[c]+f[
c];while(g?z--:~(c=t(n))){r/=u[x];if(g){for(q=(e-l)/r,c=x;--c&&q<u[c];);fputc(
c,o);}for(l+=u[c]*r,r*=f[c];(l^l+r)<1<<24||r<1<<16&&(r=65535&~l+1);)g?(e=e*x|t
(n)):fputc(l>>24,o),r*=x,l*=x;}if(!g)for(c=4;c--;)fputc(l>>24,o),l*=x;}
出力サイズは増えるが八行。
これ以上は厳しいかも

521:デフォルトの名無しさん
02/07/21 18:14
>>520
協力しようと思いましたが、あまり縮みませんね。
ロジック部が良くわからないので、ソース追いかけ中です。
定数やそのシフトを変数にできそう。(1<<24とか)
f=u-1 で置き換えると、もう少し短くなりそうですが・・・

#include <stdio.h>
size_t l,r=~0,z,q,e,u[257],f[256],c=5,x=256;main(int g,char**v){FILE*n=fopen(v[
2],"rb"),*o=fopen(v[3],"wb");int(*t)()=fgetc;if(g=*v[1]-69)for(fread(&z,4,1,n),
fread(f,4,x,n);--c;)e=e*x|t(n);else{for(;~(c=t(n));f[c]<255?f[c]++:0)z++;fwrite
(&z,4,1,o);fwrite(f,4,x,o);fseek(n,c=0,0);}for(;c<x;c++)u[c+1]=u[c]+f[c];while(
g?z--:~(c=t(n))){r/=u[x];if(g){for(q=(e-l)/r,c=x;--c&&q<u[c];);fputc(c,o);}for(
l+=u[c]*r,r*=f[c];(l^l+r)<1<<24||r<1<<16&&(r=65535&~l+1);)g?e=e*x|t(n):fputc(l
>>24,o),r*=x,l*=x;}for(c=4;!g&&c--;)fputc(l>>c*8,o);}

522:デフォルトの名無しさん
02/07/21 20:14
int(*t)()=fgetcはsize_tに移動しても大丈夫かと(警告は出るかも)。

523:デフォルトの名無しさん
02/07/22 20:27
u[c+1]=u[c]+f[c];を
q=u[c+1]=q+f[c];にすると1バイトちぢむかも(w

524:521
02/07/22 23:46
>>522 getc に置き換えることにより t を使わないようにしました。
>>523 サンクスです。でも現時点で q が無くても同じ文字数だ・・・

#include <stdio.h>
size_t l,r=~0,z,q,e,u[257],f[256],c=5,x=256;main(int g,char**v){FILE*n=fopen(v[
2],"rb"),*o=fopen(v[3],"wb");if(g=*v[1]-69)for(z=getw(n),fread(f,4,x,n);--c;)e=
e*x|getc(n);else{for(;~(c=getc(n));f[c]<255?f[c]++:0)z++;putw(z,o);fwrite(f,4,x
,o);fseek(n,c=0,0);}for(;c++<x;)q=u[c]=q+f[c-1];for(;g?z--:~(c=getc(n));){r/=u[
x];if(g){for(c=x;--c&&(e-l)/r<u[c];);putc(c,o);}for(l+=u[c]*r,r*=f[c];(l^l+r)<1
<<24||r<1<<16&&(r=65535&~l+1);)g?e=e*x|getc(n):putc(l>>24,o),r*=x,l*=x;}for(c=4
;!g&&c--;)putc(l>>c*8,o);}

次ページ