過去作品は、もしかしたら>>2-10あたりに。
前スレ
http://pc11.2ch.net/test/read.cgi/tech/1142467359/
part4
http://pc8.2ch.net/test/read.cgi/tech/1051703369/
part 3
http://pc2.2ch.net/tech/kako/1033/10331/1033143528.html
part 2
http://pc3.2ch.net/tech/kako/1018/10188/1018840143.html
part 1
http://pc.2ch.net/tech/kako/984/984182993.html
http://pc2.2ch.net/test/read.cgi/tech/1033143528/5-15,25
Part 2
http://pc3.2ch.net/test/read.cgi/tech/1018840143/900-906
Part 4
http://pc8.2ch.net/test/read.cgi/tech/1051703369/993-995
Part 5
http://pc11.2ch.net/test/read.cgi/tech/1142467359/982-984
＿＿＿＿＿■＿＿＿
＿＿＿■■＿＿＿＿
＿■■＿＿＿＿＿＿
■＿＿＿＿＿＿＿■
■＿＿＿＿＿＿＿■
＿■■■■■■■＿'''
シェルピンスキーのギャスケット in J
=[q=c=i=4];f=i--*K;c-=!Z[h+(K+6?p+K:C[i]=p*A-(p/9|0)*145)])p=B[i];for(c?0:K+6?h
+=K:t?B=C:0;i=K=q--;f+=Z[A+p])k=X[p=h+B[q]]=1;h+=A;if(f|B)for(Z=X,X=[l=228],B=[
[-7,-20,6,h=17,-9,3,3][t=++t%7]-4,0,1,t-6?-A:2];l--;)for(l%A?l-=l%A*!Z[l]:(P+=
k++,c=l+=A);--c>A;)Z[c]=Z[c-A];for(S=P;i<240;S+=X[i]|(X[i]=Z[i]|=++i%A<2|i>228)
?'':'Q')i%A||(S+='\n');D.innerText=S;Z[5]||setTimeout(Y,i-P)}Y(h=K=t=P=0)">
enc=:3 :'(B{~#._6[\,(8#2)#:a.i.y),(0 2 1 i.3|#y)#''='''
dec=:3 :'(a.{~#._8[\,(6#2)#:B i.y)}.~_2>.(i.&''=''-#)y'
BASE64エンコード＆デコード in J
なにこれ
mov ah,9
mov dx,msg
int 21h
mov ax,4c00h
int 21h
msg db "Hello, world!$"
7行でHello, world!
>>13はx86/DOS/NASMか
↑こういうコードがかけるらしい。qsortの第4引数が
int strcmp(const char**a, const char**b) {
while(**a == **b) {
if(**a == '\0')
return 0;
(*a)++; (*b)++;
}
return **a - **b;
}
をコンパイルしたコードだとか。C言語で無名関数を渡す方法は他にもあるのかな?
こういうのもゴルフのテクニックのひとつ？
partIあたりに、
int main=0xc3;
ってのがあったぜ。
>15にしろ上のコードにしろ、実行環境依存するから美しくはないが
面白い発想ではあるな
もしまだだったら面白そうだからやってみようと思ってたり。
暇な人用仕様を念のため。
・Cベースのパッチ作成＆適用ツール
・差分ファイルのフォーマットは自由。7行diffで書き出した差分ファイルで7行patchが正常に動けばOK。
・テキスト関連の機能はなし。あくまでも差分書き出しと差分適用に限定。
・ディレクトリ差分、複数ファイルの差分をひとつの差分ファイルにまとめる機能も省略。
差分作成：diff.exe old.exe new.exe update.diff
差分適用：patch.exe old.exe update.diff
このネタのミソは、いかに差分を小さくする工夫があるか（同一パターンの発見精度の高さ）だよなぁ
/*diff.c*/
#include<windows.h>
main(int c,char**v){CopyFile(v[2],v[3],1);}
/*patch.c*/
#include<windows.h>
main(int c,char**v){CopyFile(v[2],v[1],0);}
asmも使えることを確認した。実行環境依存のものだけはここで通るように条件つけたら？
前ｽﾚのを試してみた。
http://pc11.2ch.net/test/read.cgi/tech/1142467359/879
前スレで#include <windows.h> を連発されてウザかったから。
提案しただけで命令したわけではないし、>>26にUNIX板の使用を強制されるいわれもない。
氏ね
頭のほどが知れるわ
. ／ （ー） （ー）＼ "反論できなくなったら「氏ね」か。"
／ ⌒（__人__）⌒ ＼ "頭のほどが知れるわ "
| |r┬-| |
＼ `ー'´ ／
ノ ＼
／´ ヽ
| ｌ ＼
ヽ -一''''''"~~｀`'ー--､ -一'''''''ー-､.
ヽ ＿＿＿＿(⌒)(⌒)⌒) ) (⌒＿(⌒)⌒)⌒))
＿＿＿_
／_ノ ヽ､_＼
ﾐ ﾐ ﾐ oﾟ(（●）) (（●）)ﾟo ﾐ ﾐ ﾐ だっておー！！！
/⌒)⌒)⌒. ::::::⌒（__人__）⌒:::＼ /⌒)⌒)⌒)
| / / / |r┬-| | (⌒)/ / / /／
| :::::::::::(⌒) | | | ／ ゝ :::::::::::/
| ノ | | | ＼ / ） /
ヽ / `ー'´ ヽ / ／
| | l||l 从人 l||l l||l 从人 l||l
ヽ -一''''''"~~｀`'ー--､ -一'''''''ー-､
ヽ ＿＿＿＿(⌒)(⌒)⌒) ) (⌒＿(⌒)⌒)⌒))
vipでコテハンやってるしこのスレ潰すくらいの影響力は持ってるから
くだらないことで刺激して後悔しないようにね
<body id=D onkeydown=K=event.keyCode-38 onload="Z=X=[B=A=12];function Y(){for(C
=[q=c=i=4];f=i--*K;c-=!Z[h+(K+6?p+K:C[i]=p*A-(p/9|0)*145)])p=B[i];for(c?0:K+6?h
+=K:t?B=C:0;i=K=q--;f+=Z[A+p])k=X[p=h+B[q]]=1;h+=A;if(f|B)for(Z=X,X=[l=228],B=[
[-7,-20,6,h=17,-9,3,3][t=++t%7]-4,0,1,t-6?-A:2];l--;)for(l%A?l-=l%A*!Z[l]:(P+=
k++,c=l+=A);--c>A;)Z[c]=Z[c-A];for(S=P;i<240;S+=X[i]|(X[i]=Z[i]|=++i%A<2|i>228)
?'■':'＿')i%A||(S+='\n');D.innerText=S;Z[5]||setTimeout(Y,i-P)}Y(h=K=t=P=0)">
無関係の人間まで巻き込まないでね
. ／ （ー） （ー）＼ "vipでコテハンやってるし"
／ ⌒（__人__）⌒ ＼
| |r┬-| |
＼ `ー'´ ／
ノ ＼
／´ ヽ
| ｌ ＼
ヽ -一''''''"~~｀`'ー--､ -一'''''''ー-､.
ヽ ＿＿＿＿(⌒)(⌒)⌒) ) (⌒＿(⌒)⌒)⌒))
＿＿＿_
／_ノ ヽ､_＼
ﾐ ﾐ ﾐ oﾟ(（●）) (（●）)ﾟo ﾐ ﾐ ﾐ だっておー！！！
/⌒)⌒)⌒. ::::::⌒（__人__）⌒:::＼ /⌒)⌒)⌒)
| / / / |r┬-| | (⌒)/ / / /／
| :::::::::::(⌒) | | | ／ ゝ :::::::::::/
| ノ | | | ＼ / ） /
ヽ / `ー'´ ヽ / ／
| | l||l 从人 l||l l||l 从人 l||l
ヽ -一''''''"~~｀`'ー--､ -一'''''''ー-､
ヽ ＿＿＿＿(⌒)(⌒)⌒) ) (⌒＿(⌒)⌒)⌒))
そこそこ強力なフィルタが書けそうだな
環境依存うぜーって話はなかったのに、
それ以外の時は出るんだよな。
winユーザーが多いのは認めるが、それでも環境依存って
ことには代わりはないとは思うがね
俺は環境依存はそんなに気にならないかな。
特定の環境でしか動かないソースってのは「ハードルを下げたら
ここまでジャンプして越えることが出来たよ」って言ってるようなもんだから、
依存しようとしてなかろうと作者の工夫次第と思ってる。
# 別にwindows.hを使うのが幼稚だと言ってるワケじゃないからあしからず ;-)
環境依存は少ないほうが好みだけど、ライン引きが難しいから
「標準出力がゲーム機で動かないじゃないか」というツッコミまで許すことになりそうで怖い。
s/標準出力が/標準出力がない/
<p id=B></p><textarea cols=64 rows=8 onblur=B.innerHTML=/[^+/-9A-Z]/i.test(v=value)?btoa(unescape(encodeURI(v))):decodeURIComponent(escape(atob(v)))>
標準Cにない機能を使うための止むを得ない環境依存と、
字数を減らすためだけの"馴れ馴れしい"環境依存の違いだと思うよ（後者が悪いとは言わない）。
音を鳴らすという課題なら、windows.hなりXlib.hなり#includeしないわけには行かないだろう。
もちろん79x7の範囲でクロスプラットフォームにできれば言うことはないｗ
なぜそこに突っ込まないのか…‥ もしかしてwindows.hにprintfがあるのか？
(面白|凄)ければ評価されるだろうし、逆も然り。
納得できないコードだったら自分で直して投下すればいい
コードで語ろうぜ
そんなんあったっけ。気づかんかった
前スレで７行ライブラリの話が出てたのを皆忘れてしまったのだろうか？
とりあえず、インクルード内でstdio.h含めインクルードしてるのはよくあるんじゃないか？
よく移植の時に重複定義で悩ませられるような。
標準ライブラリのヘッダがインクルードガードしてないわけがないじゃん。
なぜかすっぽ抜けてたりしてわけがわからない時に悩むんだっての。
とりあえずまあガードしてるってことはどちらでも問題ないってことじゃないのか？
多いのは問題ないが、足りないのは問題だろ。
問題だったら省略されるわけないんだから、多少忘れたって足りない問題は起きない。
どっかでインクルードされてりゃ問題ないだろって話。
7行でおｋ
#include<dirent.h>/*bcc限定かも……*/
char*f,r[4]="B:";void _(char*v){DIR*d;struct dirent*e;int c=0,i;char b[512];A:
if(!(d=opendir(strcmp(v,"C:")?v:"\\")))return;if(c)for(i=0;i<c;i++)readdir(d);B
:while(c++,e=readdir(d)){if(*e->d_name=='.')goto B;sprintf(b,"%s\\%s",v,e->
d_name);if(fclose(fopen(b,"r"))?closedir(d),_(b),1:strcmp(f,e->d_name)?0:puts(v
))goto A;}}main(int c,char**v){if(c==2){f=v[1];for(;r[0]++-75;)_(r);}return 0;}
*s,*d;main(int c,char**v){long W,H,*t,x,y=0,a;unsigned char h[54],f[3];s=fopen(
v[1],"rb");d=fopen(v[2],"wb");fread(h,1,54,s);W=*(t=(long*)&h[18]);H=*(t+1);a=4
-W*3%4;fwrite(h,1,54,d);for(;y++<H;){for(x=0;x++<W;)fread(h,1,3,s),f[0]=f[1]=f[
2]=77*h[2]+150*h[1]+29*h[0]>>8,fwrite(f,1,3,d);a-4?fread(h,1,a,s):0;}}
bmp形式の画像(24bit限定)をグレイスケールに変換
一応4ビット境界にも対応させてある
×4ビット境界
○4バイト境界
>>64に「こんなに可読性の高いコード書いてて恥ずかしくないの？」
って言ってるんだと思って普通に読み流してた
* main(c,v)char**v{って書くのが一番短いよ。
* yはグローバル変数にすれば初期化は不要だよ。
* H=*++t;とすればちょっと得するよ。
* (ANSI C) *s,*d;のように型無しで変数を定義するのは認められてないよ。
int*s,*d,y;main(c,v)char**v;{long W,H,*t,x,a;unsigned char h[54],f[3];s=fopen(v
[1],"rb");d=fopen(v[2],"wb");fread(h,1,54,s);W=*(t=(long*)&h[18]);H=*++t;a=4-W*
3%4;fwrite(h,1,54,d);for(;y++<H;){for(x=0;x++<W;)fread(h,1,3,s),f[0]=f[1]=f[2]=
77*h[2]+150*h[1]+29*h[0]>>8,fwrite(f,1,3,d);a-4?fread(h,1,a,s):0;}}
こんな感じかな
あとその次のforは第3項をうまく使えば , が一つ消せそうな
freadが3つあるのが気になるけどCだから関数を文字でおく
とかはできないんだよな
#include<stdio.h>
int*s,*d,y;main(c,v)char**v;{long W,H,*t,a;unsigned char h[54],f[3];fread(h,1,
54,s=fopen(v[1],"rb"));W=*(t=(long*)&h[18]);a=4-W*3%4;fwrite(h,1,54,d=fopen(v[2
],"wb"));++t;for(;y++<*t;a-4&&fread(h,1,a,s))for(c=W;c--;fwrite(f,1,3,d))fread(
h,1,3,s),f[0]=f[1]=f[2]=77*h[2]+150*h[1]+29*h[0]>>8;}
int*s,*d,y;main(c,v)char**v;{long W,H,*t,x,a;unsigned char h[54],f[3];s=fopen(v
[1],"rb");d=fopen(v[2],"wb");fread(h,1,54,s);W=*(t=(long*)&h[18]);H=*++t;a=4-W*
3%4;fwrite(h,1,54,d);for(;y++<H;){for(x=0;x++<W;)fread(h,1,3,s),f[0]=f[1]=f[2]=
77*h[2]+150*h[1]+29*h[0]>>8,fwrite(f,1,3,d);a-4?fread(h,1,a,s):0;}}
#include<stdio.h>
int*s,*d,y;main(c,v)char**v{long W,H,*t,x,a;unsigned char h[54],f[3];s=fopen(v[
1],"rb");d=fopen(v[2],"wb");for(fread(h,1,54,s),W=*(t=(long*)&h[18]),H=*++t,a=4
-W*3%4,fwrite(h,1,54,d);y++<H;a-4?fread(h,1,a,s):0)for(x=0;x++<W;fwrite(f,1,3,d
))fread(h,1,3,s),f[0]=f[1]=f[2]=77*h[2]+150*h[1]+29*h[0]>>8;}
勉強になった
size_t(*r)()=fread;
とはできるが、もう少し使用回数が多くないと得にはならないな。
int*s,*d,y;main(c,v)char**v;{long W,*t,x,a;unsigned char h[54],f[3];fread(h,1,
54,s=fopen(v[1],"rb"));W=*(t=(long*)&h[18]);a=4-W*3%4;fwrite(h,1,54,d=fopen(v[2
],"wb"));++t;for(;y++<*t;a-4&&fread(h,1,a,s))for(x=W;x--;fwrite(f,1,3,d))fread(
h,1,3,s),f[0]=f[1]=f[2]=77*h[2]+150*h[1]+29*h[0]>>8;}
これならいいか
じゃあyもlongにして、あとtも消せる？
#include<stdio.h>
int*s,*d;main(c,v)char**v;{long W,x,y,a;unsigned char h[54],f[3];for(fread(h,1,
54,s=fopen(v[1],"rb")),W=*(long*)&h[18],fwrite(h,1,54,d=fopen(v[2],"wb")),a=4-W
*3%4;y++<*++&W;a-4&&fread(h,1,a,s))for(x=W;x--;fwrite(f,1,3,d))fread(h,1,3,s),f
[0]=f[1]=f[2]=77*h[2]+150*h[1]+29*h[0]>>8;}
お前ちゃんと走らせてるのか？
出力が同じになることぐらい確認しとけよ。
すます
#include<stdio.h>
long*s,*d,y;main(c,v)char**v;{unsigned char h[54],f[3];long *t=&h[18],x,a;fread
(h,1,54,s=fopen(v[1],"rb"));a=4-*t*3%4;fwrite(h,1,54,d=fopen(v[2],"wb"));for(;y
++<t[1];a-4&&fread(h,1,a,s))for(x=*t;x--;fwrite(f,1,3,d))fread(h,1,3,s),f[0]=f[
1]=f[2]=77*h[2]+150*h[1]+29*h[0]>>8;}
unsigned char h[54],f[3];long*s,*d,y,*t=h+18,x,a;main(c,v)char**v;{fwrite(h,1,
fread(h,1,54,s=fopen(v[1],"rb")),d=fopen(v[2],"wb"));for(a=4-*t*3%4;y++<t[1];a-
4&&fread(h,1,a,s))for(x=*t;x--;fwrite(f,1,3,d))fread(h,1,3,s),*f=f[1]=f[2]=77*h
[2]+150*h[1]+29**h>>8;}
<script>S=String.fromCharCode;c='0123456789+/=';for(i=122;64<i;i-=i-97?1:7)c=S(
i)+c;document.write(eval('l=v.length;for(i=p=0;i<l;){for(n=0,j='+(/[^+/-9=A-Z]/
i.test(v=unescape(encodeURI(prompt(r=''))))?'3;j--;l<i&&p--)n=n<<8|v.charCodeAt
(i++);for(j=4;j--;)r+=c.charAt(n>>6*j&63)}p?r.slice(0,p)+(p+1?"==":"="):r':'4;j
--;t-64||p--)n=n<<6|(t=c.indexOf(v.charAt(i++)))&63;for(j=3;j--;)r+=S(n>>8*j&25
5)}decodeURIComponent(escape(r.slice(0,p)||r))')))</script>
ほぼ限界だと思うんだが、どうなんだろう
pやcharAtが冗長な気もするけど・・・
<script>S=String.fromCharCode;c='0123456789+/=';for(i=123;65<i;)c=S(i-=i-97?1:7
)+c;document.write(eval('l=v.length;for(i=p=0;i<l;){for(n=0,j='+(/[^+/-9=A-Z]/i
.test(v=unescape(encodeURI(prompt(r=''))))?'3;j--;l<i&&p--)n=n<<8|v.charCodeAt\
(i++);for(j=4;j--;)r+=c.charAt(n>>6*j&63)}p?r.slice(0,p)+(p+1?"==":"="):r':'4;\
j--;t-64||p--)n=n<<6|(t=c.indexOf(v.charAt(i++)))&63;for(j=3;j--;)r+=S(n>>8*j&\
255)}decodeURIComponent(escape(r.slice(0,p)||r))')))</script>
C=[q=c=i=4];f=i--*K;c-=!Z[h+(K+6?p+K:C[i]=p*A-(p/9|0)*145)])p=B[i];for(c?0:K+6?
h+=K:t?B=C:0;i=K=q--;f+=Z[A+p])k=X[p=h+B[q]]=1;h+=A;if(f|B)for(Z=X,X=[l=228],B=
[[-7,-20,6,h=17,-9,3,3][t=++t%7]-4,0,1,t-6?-A:2];l--;)for(l%A?l-=l%A*!Z[l]:(P+=
k++,c=l+=A);--c>A;)Z[c]=Z[c-A];for(S="";i<240;S+=X[i]|(X[i]=Z[i]|=++i%A<2|i>228
)?i%A?"■":"■<br>":"＿");D.innerHTML=S+P;Z[5]||setTimeout(Y,i-P)})(h=K=t=P=0)'
OperaとSafariではどちらも動かなかった。
Mozilla Firefox-3.0 3.0a8,
どっちでも動かないんだが・・・
まあそんなことはどうでもいいけど、<br> を \n にするだけのために innerText を使うのはいただけない
TOP カテ一覧 スレ一覧 2ch元 削除依頼 ▲
Androidアプリ制作依頼スレ (309)
【ActionScript3】Webツールを作ろう【GPL】 (142)
DarkBASIC (441)
ニートの俺が何か開発して食いつなぐスレ (687)
Ruby最高や！ (185)
【超高速】C/C++に代わる低級言語を開発したい 7 (957)
--log9.info------------------
SCEがなくなったらゴキブリはどこに行くのか (119)
【俳句】 ゲーム業界 【川柳】 (214)
なぜ、ソニーは圧勝しているのか？ (494)
何故ソニーは、ステルスマーケティングを行うのか 5 (988)
ハードは安物、ソフトは幼稚なものが売れる時代 (217)
本日の日経産業新聞の報道について★２ (125)
Vita出してからPSPの勢いまで止まっちゃったよね (134)
モンハン3G 3DSで2011年12月10日発売 MH4は3DS★46 (265)
小学校卒業は任天堂卒業 part5 (283)
３６０は要らないハードウェア (276)
【JC-net】ステマ検索候補1位､ソニーといえばサクラ (197)
クソVITA天国反省会 (161)
amazon amazonうっせーんだよ (149)
3DSに低性能疑惑 (335)
ポケモンBW2のパッケがダサすぎ (225)
マイクロソフトがTPPをごり押ししている件 (558)
--log55.com------------------
【バーチャル】hololiveファンスレ#10162【youtuber】
【ぼっち系YouTuber】パーカーチャンネル 梅酒三杯目【人気急上昇】
【YouTube】よゐこチャンネル part10
【ツイアカ削除、サブCH削除】とぅるんとぅるん監視スレPart9【落ち目コース】
【バーチャル】hololiveファンスレ#10170【youtuber】
【バーチャル】hololiveファンスレ#10082【youtuber】
【バーチャルYouTuber】天音かなた part11【ホロライブ/hololive】
【バーチャルYouTuber】八重沢なとりスレ#24【アイドル部】