- 1 名前：デフォルトの名無しさん [02/04/15 12:09]
- 7行×79文字なら言語は問いません。
過去作品は>>2-5を参照。
■前スレ
pc.2ch.net/test/read.cgi/tech/984182993/
- 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
> ねたをくれなんていってる時点で間違ってたんだ…
より。（改行をマジで適当に追加）。
すげーな。
- 364 名前：デフォルトの名無しさん mailto:sage [02/06/11 06:12]
- 前ここにprintfってあったっけ？
- 365 名前：デフォルトの名無しさん mailto:sage [02/06/11 18:01]
- >>364
sprintfなら
pc.2ch.net/test/read.cgi/tech/984182993/428
- 366 名前：デフォルトの名無しさん mailto:sage [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 mailto:sage [02/06/14 20:04]
- ここの人はレベルが高くてHSPを知らない罠か・・・（´д｀；
- 369 名前：デフォルトの名無しさん mailto:sage [02/06/14 21:09]
- >368
いや、縮める隙を探してるさいちゅう。
HSPだって立派じゃないけど言語だしね
- 370 名前：366 mailto:sage [02/06/14 21:35]
- >>369
ありがたや。なるべくif文使わないようにしたから、回りくどいことやってます。（´ー｀
もっといい迷路アルゴリズムが使いたいんだけど、長くなる・・・
- 371 名前：デフォルトの名無しさん [02/06/14 23:05]
- >>350
(ﾟдﾟ)すげー
- 372 名前：デフォルトの名無しさん mailto:sage [02/06/14 23:22]
- >>367だけど
>>366,>>368ｺﾞﾒｿ、HSPだったのね、よく考えずにレスしてた（ｗ
勉強中の折れは「レベルが低くてHSPを知らない」のであった。
ﾀﾞｳｿしてみよかな？
- 373 名前：moge mailto:hage [02/06/15 00:12]
- もっと繁栄を願ってage
- 374 名前：デフォルトの名無しさん [02/06/15 14:38]
- 7行以内でbase64エンコード/デコードプログラム作ってくれ
- 375 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [02/06/15 17:21]
- ネットワークゲーム用の汎用サーバとかは７行じゃ大変？
Javaでキボンヌ。
- 377 名前：デフォルトの名無しさん mailto:sage [02/06/15 20:35]
- >>376
そもそも汎用サーバなどという発想自体が厨
仕様を定義してみせい
- 378 名前：デフォルトの名無しさん mailto:sage [02/06/16 13:41]
- アクセスしてきたクライアントのソケットを保持。
どのクライアントから言われたことも、すべてのクライアントに返す。
という意味でした。
- 379 名前：デフォルトの名無しさん mailto:sage [02/06/16 13:46]
- >>378
絶対どこかでデータの動機ミスが怒りそうな予感。
- 380 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [02/06/22 00:46]
- お題：BlockSorting
- 386 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [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 mailto:sage [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 mailto:sage [02/06/22 02:50]
- ぅぁー、>388バグりまくりだ。
出なおしてきます。
- 390 名前：デフォルトの名無しさん [02/06/24 00:47]
- ageじゃ！
- 391 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [02/06/28 15:00]
-
「 #include
は数えないのはどうよ？」
って議論になったことがあった（はず）なのでｷﾆｽﾝﾅ！
- 394 名前：デフォルトの名無しさん [02/06/28 19:29]
- 新たなお題キボーン
- 395 名前：デフォルトの名無しさん mailto:sage [02/06/28 19:47]
- >>393
おいおい、ｿﾘｬだめだって話になったろ
- 396 名前：392 mailto:sage [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 mailto:sage [02/06/28 22:56]
- 書き忘れたけど、>>397からは.cppじゃなくて.cでよろしく
- 399 名前：tara mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [02/06/29 13:54]
- >>395
いや、「打つ」とかかいてあったんで。
- 401 名前：392 mailto:sage [02/06/29 16:48]
- >>399
お早う。本当だ、動いたヨ。
ずっと、VS6でやってたからなぁ。
何はともあれ、taraさんThx!
- 402 名前：392 mailto:sage [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 mailto:sage [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 名前：せめて mailto:sage [02/06/29 23:37]
- >>404
なにをするプログラムなのか、書け
- 406 名前：392 mailto:sage [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 mailto:sage [02/06/29 23:53]
- >405
>>402のを縮めてみますた。
- 408 名前：392 mailto:sage [02/06/29 23:53]
- >>404
ごめん、見てなかった
残念ながら、
error LNK2001: 外部ｼﾝﾎﾞﾙ "_sinf" は未解決です
fatal error LNK1120: 外部参照 1 が未解決です。
と言われたよ。
- 409 名前：デフォルトの名無しさん mailto:sage [02/06/30 00:03]
- つーか>>399のやつ、VC6.0でも動くが何が問題？
- 410 名前：392 mailto:sage [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 mailto:sage [02/06/30 00:27]
- >>409
教えてくれてありがとう。
おかげで助かった。
- 412 名前：tara mailto:sage [02/06/30 01:42]
- >409
お、VC++6.0でも動きましたか。
.NETの方しかインストールしてなかったもので、確認できなかったんです。
ありがとうございました。
- 413 名前：404 mailto:sage [02/06/30 01:48]
- >>408
sinfってman引いてあったから使ったんだけどVCには無いのか。鬱氏。
>>410
7行達成おめでとう♪
|
 |
