七行プログラミング part6

[表示 : 全て最新50 1-99 101- 201- 301- 401- 2ch.scのread.cgiへ]
Update time : 05/17 19:09 / Filesize : 125 KB / Number-of Response : 402
[このスレッドの書き込みを削除する]
[＋板最近立ったスレ＆熱いスレ一覧 : ＋板最近立ったスレ／記者別一覧] [類似スレッド一覧]


↑キャッシュ検索、類似スレ動作を修正しました、ご迷惑をお掛けしました

七行プログラミング part6

1 名前：デフォルトの名無しさん mailto:sage [2008/07/06(日) 23:00:49 .net]: 7行×79文字なら言語は問いません。
過去作品は、もしかしたら>>2-10あたりに。

前スレ
pc11.2ch.net/test/read.cgi/tech/1142467359/
part4
pc8.2ch.net/test/read.cgi/tech/1051703369/
part 3
pc2.2ch.net/tech/kako/1033/10331/1033143528.html
part 2
pc3.2ch.net/tech/kako/1018/10188/1018840143.html
part 1
pc.2ch.net/tech/kako/984/984182993.html
175 名前：174 mailto:sage [2008/11/18(火) 20:16:54 .net]: n+=m+=n;
この文の繰り返しでフィボナッチ数が生成されるのに感動をおぼえた。
176 名前：デフォルトの名無しさん mailto:sage [2008/11/19(水) 10:13:24 .net]: 10行分超過

<body id=d onKeydown=k(event.keyCode-38)><div id=I height=100 width=280 valign=
bottom><div id=r>○<div id=t>大</div></div></div><p id=g><script>a=-4;b=10;X=3*
(Y=90);D=document;s=setInterval;S=parseInt;H="innerHTML";A="style";p="position"
;O="absolute";g[A][p]=I[A][p]=O;r[A][p]="relative";l(o=B=r.v=J=n=0);Q(B,r);P(20
,r);q=15;E=[0,0,0,0,0,0,0,0];L=E.length;s(G,150);M=s(h,150);w=-20;function Q(z,
e){e.y=Y-S(e[A].paddingTop=Y-z+"px");}function l(z){g[H]=z;}function G(){r.v;r.
K=r.y;r.v+=a;if(B<(F=r.v+r.y)&&F<Y){Q(F,r);}else{r.v=0;Q(B,r);if(!o){t[H]="大";
}}}function h(){if(Math.random()<0.11+n/50000){for(j=0;j<L;j++){if(!E[j]){E[j]=
1;break;}}if(j<L){T=D.createElement("div");T.id="e"+j;T[H]=(j==4)?"砲":(j%3==1)
?"棘":j%2==0?"亀":"栗";d.appendChild(T);P(X-b,T);T[A][p]=O;Q(w+((j==4)?40:0),T)
;}}for(i=0;i<L;i++){if(E[i]>0){c=D.getElementById("e"+i);R((-b)*((i==5)?2:1),c)
;if(c.x<20){E[i]=0;d.removeChild(c);}if(r.x>c.x-q*0.1&&r.x<c.x+q*1.3&&r.y>(C=c.
y-w)-q*1.5&&r.y<C+q*1.5){if(i%3!=1&&r.K>0){E[i]=0;k(0);J=1;d.removeChild(c);c[H
]="";l(n+=100);}else{r.v+=b*3;t[H]="出";clearInterval(M);k=function(){};o=1;}}}
}}function P(z,e){e.x=S(e[A].paddingLeft=z+"px");}function R(z,e){if(0<(f=z+e.x
)&&f<X){P(f,e);}else{e.V=0;}}function k(z){R(b*z,r);if(!z&&(r.y==B||J)){r.v+=b*
1.7;t[H]="方";J=0;}}</script>
177 名前：デフォルトの名無しさん mailto:sage [2008/11/19(水) 21:59:43 .net]: 今までの短縮技がまったく生かされてないような

過去の作品を見てみよう！
178 名前：デフォルトの名無しさん mailto:sage [2008/11/21(金) 00:39:49 .net]: >>176
どうやってもキラーに太刀打ちできなかったｗｗ
179 名前：デフォルトの名無しさん mailto:sage [2008/11/21(金) 00:48:42 .net]: ７行でライツアウト
180 名前：デフォルトの名無しさん mailto:sage [2008/11/22(土) 00:26:48 .net]: 変な動きする

#!/usr/bin/perl # THIS INTERPRETER RUNS UNSTABLY, CANNOT EXECUTE NEST SYNTAXES.
if($#ARGV){print"7Lines BF interpreter\nUsage: ./7bfi File [Files..]";exit(-1);}
@m=(0)x256;@c=split(//,`cat "@ARGV"`);for($i=$p=0;$i<=$#c;$i++){if($c[$i]eq'['&&
!$m[$p]){for($j=$i;$j<=$#c;$j++){$i=$c[$j]eq']'?$j+1:$i;}}if($c[$i]eq']'&&$m[$p]
){for($j=$i-1;$j>=0;$j--){$i=$c[$j]eq'['?$j:$i;}}if($c[$i]eq'>'){$p++;}if($c[$i]
eq'<'){$p--;}if($c[$i]eq'+'){($m[$p]%=0xFF)++;}if($c[$i]eq'-'){($m[$p]%=255)--;}
if($c[$i]eq'.'){print chr($m[$p]);}if($c[$i]eq','){$m[$p]=unpack('c2',getc);}};
181 名前：デフォルトの名無しさん mailto:sage [2008/12/08(月) 21:21:05 .net]: >>179
これがサイズ可変
<body id=B><script>w=5;x=w+1;function f(n,_,g){f[n]^=1;f[n+1]^=1;f[n-1]^=1;f[n+
x]^=1;f[n-x]^=1;for(j=w*x;j;)_+=j--%x?'<a href=javascript:f('+j+',++c)>'+(f[j]?
g='●':'○'):'<br>';B.innerHTML=g?_:'Great!!'}for(i=w*x;i;)i--%x&&Math.random(c
=0)<.5&&f(i)</script>

これが 5 x 5 固定
<body id=B><script>a=f=function(n,_,g){a^=(1<<n)*67.515625;for(j=30;j;)_+=j--%6
?'<a href=javascript:f('+j+',++c)>'+(a>>j&1?g='●':'○'):'<br>';B.innerHTML=g?_
:'Great!!'};for(i=30;i;)i--%6&&Math.random(c=0)<.5&&f(i)</script>
182 名前：デフォルトの名無しさん mailto:sage [2008/12/08(月) 22:01:50 .net]: >>179
俺も作ってみた

<title>LO</title><body onload="S='',A=[U='<button id=',V=' onclick="U(',W=
')">・</button>'];B=[b=0];Q=['#cab','#f08',x='#867'];for(i=0;++i<42;A[i]=B
[i]=0)S+=i>6&i<36?i%6?U+i+V+i+W:'<br>':'';document.getElementById(0).innerHTML=
S;U=function(i){B[i]^=b,V(i-6),V(i-1),V(i),V(i+1),V(i+6);for(m=j=0;j++<36;m|=A[
j]);m?0:alert('You got it!')};for(i=7,V=function(i){if(i%6&&i>6&i<36)I=document
.getElementById(i).style,I.backgroundColor=y=Q[A[i]^=1],I.color=B[i]?x:y};i<36;
i++)i%6?Math.random()<.5?U(i):V(i)+V(i):0;b=1"><pre style="line-height:1" id=0>
183 名前：デフォルトの名無しさん mailto:sage [2008/12/08(月) 22:07:53 .net]: >>181
うはあこれは凄い
184 名前：デフォルトの名無しさん mailto:sage [2008/12/13(土) 03:25:47 .net]: >>182
unterminated stringと出たのだが（FF3）
185 名前：デフォルトの名無しさん mailto:sage [2008/12/13(土) 13:10:49 .net]: >>184
" が " になってるんだと思う
あと、無理矢理改行されてるから1行にしないとだめ
なんだかなぁ
186 名前：デフォルトの名無しさん mailto:sage [2008/12/16(火) 04:02:52 .net]: using System.Drawing;using System.Drawing.Drawing2D;using f=System.Single;
class P{static void Main(string[]a){using(Bitmap i=new Bitmap(a[0])){M(i,1
,f.Parse(a[1]),f.Parse(a[2]),f.Parse(a[3]));i.Save(a[0]+"-d.bmp");}}static
Bitmap M(Bitmap i,f s,f z,f w,f h){if(s>.0001){using(Bitmap t=M((Bitmap)i.
Clone(),s*z,z,w,h))using(Graphics g=Graphics.FromImage(i))using(Matrix m=
new Matrix()){m.Translate(w,h);m.Scale(s,s);m.Translate(-w,-h);g.Transform
=m;g.DrawImage(t,new Point());}}return i;}}

usage filename z(<1.0), w, h

悪魔は出てきません。
187 名前：デフォルトの名無しさん mailto:sage [2008/12/16(火) 04:22:48 .net]: どういうプログラムか書いてくれると、まとめる時に助かります。
188 名前：デフォルトの名無しさん mailto:sage [2008/12/16(火) 20:43:48 .net]: >>187
合わせ鏡みたいな何かです。

文字数に余裕があったので回転も加えてみた

using System.Drawing;using System.Drawing.Drawing2D;using f=System.Single;
class P{static void Main(string[]a){using(Bitmap i=new Bitmap(a[0])){M(i,1,f.
Parse(a[1]),f.Parse(a[2]),f.Parse(a[3]),f.Parse(a[4]));i.Save(a[0]+"-d.bmp");}
}static Bitmap M(Bitmap i,f s,f z,f r,f w,f h){if(s>.0001){using(Bitmap t=M((
Bitmap)i.Clone(),s*z,z,r,w,h))using(Graphics g=Graphics.FromImage(i))using(
Matrix m=new Matrix()){m.Translate(w,h);m.Scale(s,s);m.Rotate(r);m.Translate(
-w,-h);g.Transform=m;g.DrawImage(t,new Point());}}return i;}}

usage: filename z(<1.0) r w h

なんか逆に汚くなったような… orz
189 名前：デフォルトの名無しさん mailto:sage [2008/12/16(火) 23:39:50 .net]: #include <stdio.h>
main(){
int i=0;
i=(i++?i-1:i+1);
printf(%d, i);
}

悪魔が出るかも？
190 名前：デフォルトの名無しさん mailto:sage [2008/12/17(水) 01:35:23 .net]: >>189
2重引用符忘れてるじゃん。
191 名前：デフォルトの名無しさん mailto:sage [2008/12/17(水) 02:20:06 .net]: 普通にエラーだったな
192 名前：デフォルトの名無しさん mailto:sage [2008/12/17(水) 10:49:29 .net]: 悪魔＝コンパイルエラー
193 名前：デフォルトの名無しさん mailto:sage [2008/12/17(水) 11:31:40 .net]: コンパイル通る環境あるのか？
194 名前：デフォルトの名無しさん mailto:sage [2008/12/18(木) 01:43:12 .net]: printfの所はともかく、?は副作用完了点なので悪魔は出ない
195 名前：デフォルトの名無しさん mailto:sage [2008/12/18(木) 02:20:44 .net]: ネタくれ
196 名前：デフォルトの名無しさん mailto:sage [2008/12/18(木) 13:13:22 .net]: 鼻から悪魔がでればそれで十分
197 名前：デフォルトの名無しさん mailto:sage [2009/01/10(土) 03:52:43 .net]: おら、ネタもってきたぞ

空から女の子が降ってくる - ぼくはまちちゃん！(Hatena)
d.hatena.ne.jp/Hamachiya2/20090109/fallingirl

> 文字数が多くて IE6 だと動かないようになっちゃったのが残念です…！
> だれかもっと縮めて！
> (500文字くらいに！)

javascript:(function(){scroll(0,0);H='hamachiya.com/';D=document;F=Math.floor;
R=Math.random;Q=new Image;Q.src=H+'g1.gif';L=function(){var X=F(R()*vw);var Y=0;
var r=F(R()*9)+3;var V=Z(X,Y);D.body.appendChild(V);var f=function(){if(Y+r<vh){V.style.top
=(Y+=r)+'px'}else{V.style.top=vh+'px';V.src=H+'g2.gif';setTimeout(function(){V.src=H+'g3.gif'},550);
clearInterval(t);}};var t=setInterval(f,40)};Z=function(x){var e=D.createElement('img');e.src=Q.src;
var s=e.style;s.position='absolute';s.left=x+'px';s.top=0;return e;};var vw,vh;Q.onload=function(){
vw=(self.innerWidth||D.documentElement.clientWidth||D.body.clientWidth)-Q.width;vh=(
self.innerHeight||D.documentElement.clientHeight||D.body.clientHeight)-Q.height;setInterval(
L,800);Q.onload={}}})()

ブックマークレットなんで1行にしてアドレスバーに突っ込むタイプの奴な
198 名前：デフォルトの名無しさん [2009/01/10(土) 03:57:14 .net]: age忘れた
199 名前：デフォルトの名無しさん mailto:sage [2009/01/10(土) 14:18:43 .net]: 512バイトプログラミングか
とりあえずお行儀よいコード
javascript:(function(H,G,D,R,c,a,T){scroll(T=D.title,0);setInterval(function(o,
i){if(R()<.05)a.push(D.body.appendChild(o=new Image)),o.src=H+1+G,i=o.style,i.
position='absolute',i.right=R(o.s=R(o.b=99)*3+1)*90+'%';for(i=0;o=a[i++];)with(
o)b-=s,b<0&&setTimeout(function(){src=H+3+G;onclick=function(){D.title=[T,++c];
D.body.removeChild(this)}},550,src=H+2+G,a.splice(--i,b=1)),style.bottom=b+'%'}
,40)})('hamachiya.com/g','.gif',document,Math.random,0,[])
200 名前：デフォルトの名無しさん mailto:sage [2009/01/10(土) 14:36:19 .net]: 行儀無視 420 bytes
javascript:scroll(H='//hamachiya.com/g',G='.gif',D=document,R=Math.random,a=[],
D.title=0,setInterval(function(){if(R(B=D.body)<.05)a.push(B.appendChild(o=
new Image)),o.src=H+1+G,i=o.style,i.position='absolute',i.left=R(o.s=R(o.b=99)*
3+1)*90+'%';for(i=0;o=a[i++];)with(o)b-=s,b<0&&setTimeout(function(){src=H+3+G;
onclick=function(){D.title++;B.removeChild(this)}},550,src=H+2+G,a.splice(--i,b
=1)),style.bottom=b+'%'},40))

まともなカウンター 499 bytes
javascript:scroll(H='//hamachiya.com/g',D=document,B=D.body,R=Math.random,a=[],
S=B.appendChild(C=D.createElement('b')).style,S[P='position']=A='absolute',S.
top=0,S.fontSize='9em',setInterval(function(){if(R(G='.gif')<.05)a.push(B.
appendChild(o=new Image)),o.src=H+1+G,S=o.style,S[P]=A,S.left=R(o.s=R(o.b=99)*3
+1)*90+'%';for(i=0;o=a[i++];)with(o)b-=s,b<0&&setTimeout(function(){src=H+3+G;
onclick=function(){C.innerHTML++;B.removeChild(this)}},550,src=H+2+G,a.splice(
--i,b=1)),style.bottom=b+'%'},40))
201 名前：デフォルトの名無しさん [2009/02/19(木) 07:12:24 .net]: age
202 名前：デフォルトの名無しさん [2009/02/26(木) 16:04:55 .net]: AgI
203 名前：デフォルトの名無しさん mailto:sage [2009/03/13(金) 22:38:23 .net]: sage
204 名前：デフォルトの名無しさん mailto:sage [2009/03/14(土) 05:41:45 .net]: ネタくれ
205 名前：デフォルトの名無しさん mailto:sage [2009/03/14(土) 22:57:03 .net]: 万華鏡
206 名前：デフォルトの名無しさん mailto:sage [2009/03/22(日) 02:05:29 .net]: 無理だろｗｗｗ
207 名前：デフォルトの名無しさん [2009/03/31(火) 21:12:53 .net]: C/C++で、

int*a;

みたいなスペースが入らない記述があるけど、
これって環境依存？依存しない？
遠い昔こういう書き方をしたらエラーになった気がするけど。
208 名前：デフォルトの名無しさん mailto:sage [2009/03/31(火) 21:36:57 .net]: 聞く場所間違っているよ。
【初心者歓迎】C/C++室 Ver.64【環境依存OK】
pc12.2ch.net/test/read.cgi/tech/1234193151/
こちらへどうぞ。

最長トークンで分けられるので、int, *, a, ;に分けられる。
ゆえに、スペース(大抵スペースといえば、半角のスペースだろうけど)が、入らなくても問題はない。

エラーになった原因はおそらく
C89までは、ブロックの先頭でしか変数を宣言できなかったから。
すでに、aという識別子が宣言または定義されていたから。
int*a;より前でなんらかの構文エラーをそのまま引きずって、int*a;が構文エラーと見なされたから。
などなどか。
209 名前：デフォルトの名無しさん mailto:sage [2009/03/31(火) 21:37:18 .net]: 仕様書読めよ
210 名前：デフォルトの名無しさん mailto:sage [2009/03/31(火) 21:43:59 .net]: >>208
thx!
211 名前：デフォルトの名無しさん mailto:sage [2009/04/05(日) 21:54:51 .net]: www.youtube.com/watch?v=y9uYEM2osYQ
これを作ってみた。テキスト化はやる気が足りなかった。
ESCで終了

:?7%00%DDPYA44P,5@P_4?P],}P^5'2PZ-%qPR545PZ5E]1F}5uAP5,ZP]5w9'PU/5zjPRQu
:Nide/com2txt/X-uw'P'5+~PZ5g(P]-vjPRU-*`P5H9P-E)PZ-KaP5V2P]5hTP5BSPRUVES
:?[X5;:PZ5WN'PR',~P/5`QP5Z P-UrPEUQ]EENNNNNN:~
:~J_%!f?&3t39w_!!TPgMvBW!K"^_wwM/wCK"#`wwP%d1W!j<PdMOoC<>L@l#l-&@>@Hl#l&0lbjuN
:l,?Mrt2L#Ytg7t&h8=PLbtq@l<Pbteq@"c1.#PfRPi^%&3kf&:Mv7!/I"aw6w9Mw_d!L"O9pR33bf
:)P\j3bfr)5hIH#nB:'Isf,%`V!9hMn#"3i_!&Lf&pk"!!!!"777!"!!!!"777!"!!!!"!!!!*
212 名前：デフォルトの名無しさん mailto:sage [2009/04/08(水) 14:54:17 .net]: base64のデコードの方だけだけど、jsで２行でできたｗ
<input onkeyup='event.keyCode-13||window.open("data:text/html;base64,"+
this.value,"","width=400,height=300")' >
213 名前：デフォルトの名無しさん mailto:sage [2009/04/09(木) 07:59:50 .net]: location でいいし
214 名前：デフォルトの名無しさん [2009/04/11(土) 11:39:52 .net]: タブをきれいにスペースに置き換えるスクリプトがほしいです。
215 名前：デフォルトの名無しさん [2009/04/11(土) 12:50:48 .net]: >>214
www.pinkdragon.net/doc_lib/contents/ja/ruby_man/FAQ-le4ba6t0m4eck3116sclvb.html#a7.2e17.20.e3.82.bf.e3.83.96.e3.82.92.e3.82.b9.e3.83.9a.e3.83.bc.e3.82.b9.e3.81.ab.e5.b1.95.e9.96.8b.e3.81.97.e3.81.9f.e3.81.84.e3.81.ae.e3.81.a7.e3.81.99.e3.81.8c
216 名前：デフォルトの名無しさん mailto:sage [2009/04/13(月) 22:32:27 .net]: pc11.2ch.net/test/read.cgi/hard/1235225061/940

<body id=B bgcolor=gray onload="a='fff,ff0,0ff,0f0,f0f,f00,00f,000'.split(',');
b='background:#';c=';color:#';d='<tr height=';e='<td align=center style='+b;s=[
'<table width=640 cellspacing=0>','文字が滲んで見えないか','カラーバーの中の四\
角が見えるか'+d+'200>','階調が見えるか'+d+'80>',d+'80>'];for(i in a){s[1]+=d+
'30>';for(j in a)s[1]+=e+a[j]+c+a[i]+'>液晶TV';s[2]+=e+a[i].replace(/f/g,'eb').
replace(/0/g,10)+'><div style=width:40;height:40;'+b+a[i]+'>';s[3]+=e+(x=(256+4
*i).toString(16).slice(1))+x+x+c+'fff>'+4*i;s[4]+=e+(x=(y=255-4*i).toString(16)
)+x+x+'>'+y}B.innerHTML=s.join('<tr><th colspan=8>')">
217 名前：デフォルトの名無しさん mailto:sage [2009/04/14(火) 01:30:34 .net]: <body id=B bgcolor=gray onload="a='fff,ff0,0ff,0f0,f0f,f00,00f,000'.split(',');
b='background:#';c=';color:#';d='<tr height=';e='<td align=center style='+b;s=[
'<table width=640 cellspacing=0>','文字が滲んで見えないか','カラーバーの中の四\
角が見えるか'+d+'200>','階調が見えるか'+(f=d+'80>'),f];for(i in a){g=a[i];h=4*i
;s[1]+=d+'30>';for(j in a)s[1]+=e+a[j]+c+g+'>液晶TV';s[2]+=e+g.replace(/f/g,'e\
b').replace(/0/g,10)+'><div style=width:40;height:40;'+b+g+'>';s[3]+=e+(x=(256+
h).toString(16).slice(1))+x+x+c+'fff>'+h;s[4]+=e+(x=(y=255-h).toString(16))+x+x
+'>'+y}B.innerHTML=s.join('<tr><th colspan=8>')">

d+'80>'を1つに
g=a[i];の追加
h=4*i;入れたら文字数変わらないけどコードの改行位置が変わった
218 名前：デフォルトの名無しさん mailto:sage [2009/04/14(火) 01:50:44 .net]: <body id=B bgcolor=gray onload="a='fff,ff0,0ff,0f0,f0f,f00,00f,000'.split(',');
b='background:#';c=';color:#';d='<tr height=';e='<td align=center style='+b;s=[
'<table width=640 cellspacing=0>','文字が滲んで見えないか','カラーバーの中の四\
角が見えるか'+d+'200>','階調が見えるか'+(f=d+'80>'),f];for(i in a){g=a[i];h=4*i
;s[3]+=e+(x=(256+h).toString(16).slice(1))+x+x+c+'fff>'+h;s[4]+=e+(x=(y=255-h).
toString(16))+x+x+'>'+y;s[1]+=d+'30>';for(j in a)s[1]+=e+a[j]+c+g+'>液晶TV';s[2
]+=e+g.replace(/f/g,'eb').replace(/0/g,10)+'><div style=width:40;height:40;'+b+
g+'>'}B.innerHTML=s.join('<tr><th colspan=8>')">

s[*]の順番入れ替えて5行目末の\を消した
219 名前：デフォルトの名無しさん mailto:sage [2009/04/14(火) 02:15:46 .net]: うぜえ
220 名前：デフォルトの名無しさん mailto:sage [2009/04/14(火) 19:15:18 .net]: 乙乙
221 名前：デフォルトの名無しさん mailto:sage [2009/04/14(火) 22:33:43 .net]: htmlタグが無かったりタグを閉じてなかったり
いろいろルール違反な感じなのは良いのか？
222 名前：デフォルトの名無しさん mailto:sage [2009/04/14(火) 22:55:02 .net]: 動けばいいのだ。
そもそもhtmlタグはもとから省略可能。
終了タグも省略可能なものは結構あるぞ。
223 名前：デフォルトの名無しさん mailto:sage [2009/04/14(火) 22:59:26 .net]: >>221
doctype宣言がないんだからやりたい放題
224 名前：デフォルトの名無しさん mailto:sage [2009/04/19(日) 22:08:18 .net]: ｈｊｈｇｇ
225 名前：デフォルトの名無しさん mailto:sage [2009/05/12(火) 23:10:32 .net]: <script>m=Math;i=0;setInterval(function f(){_.innerHTML+=(i<17?(m.PI+"").charAt
(i):m.floor(m.random()*10))+(++i%99?"":"<br>")},1)</script><a id=_>
226 名前：デフォルトの名無しさん mailto:sage [2009/05/13(水) 00:31:40 .net]: 関数名って必要？
227 名前：デフォルトの名無しさん [2009/05/16(土) 06:51:37 .net]: あんまり多くすると重いかも
小数点とか区切り位置とかは手抜き

<body id=B onload="a=prompt('何桁?',b=1e4)>>2;c=d=0;setInterval(function w(){if
(0<a--){e=a*14+14;for(f=c%=b;g=--e*2;c=c/g|0)c=c*e+b*(d?w[e]:b/5),w[e]=c%--g;d=
f+c/b|0;B.innerHTML+=(d+b+'').slice(1)+(a%25?' ':'<br>')}},250)">
228 名前：デフォルトの名無しさん [2009/05/24(日) 05:52:29 .net]: wonderfulで動く7行プログラムキボン
229 名前：デフォルトの名無しさん [2009/05/27(水) 20:31:40 .net]: cm.xrea.cc/thread/program_002.html#R448 にあったのが
C++版だったので、Cで動くようにしてみた。コンパイラは gcc-4.3.2 で確認。

#include <stdio.h>
int main(int c,char *v[]){unsigned C,t[256];int i,j;FILE *F;
if(!(F=fopen(v[1],"r"))){fprintf(stderr,"Can't Open:%s\n",v[1]);return 1;}
for(i=0;i<256;t[i++]=C)for(C=i,j=9;--j;)C=C/2^(C&1?0xedb88320:0);
for(C=~0;(i=getc(F))>=0;C=t[C&255^i]^C>>8);
fclose(F);printf("%08lx %s\n",~C,v[1]);return 0;}
230 名前：デフォルトの名無しさん mailto:sage [2009/05/28(木) 08:02:07 .net]: ついでに CRC16
#include <stdio.h>
int main(int c,char *v[]){unsigned short C,t[256];int i,j;FILE *F;
if(!(F=fopen(v[1],"r"))){fprintf(stderr,"Can't Open:%s\n",v[1]);return 1;}
for(i=0;i<256;t[i++]=C)for(C=i,j=9;--j;)C=C/2^(C&1?0xa001:0);
for(C=0;(i=getc(F))>=0;C=t[C&255^i]^C>>8);
fclose(F);printf("%04x %s\n",C,v[1]);return 0;}

CRC16の場合、テーブル無しに直接計算するコードもあったりするのだが
ttp://retroarchive.org/cpm/cdrom/CPM/GENASM/CRC16.ASM
ttp://retroarchive.org/cpm/cdrom/CPM/GENASM/CRC120.ASM
こういうのをCにしてみるのも面白いかと思った。
231 名前：デフォルトの名無しさん mailto:sage [2009/06/12(金) 08:57:12 .net]: DOS系ディスクイメージのヘッダ出力。perl-5.8.8と DOS版Jperl4 で動作確認。
こんな感じだと、ちょっとしたバイナリデータ確認なんかにも使えそうだと思った。

#!/usr/bin/perl
sub D{print"@_\n";exit 1}&D("$0 [-o offset] <imgfile>")if$#ARGV<0;$F=shift;if(
$F=~/^-/){&D("??: -$'")if"o"ne$';$_=eval(shift);$F=shift}open(F)||&D("$F:$!\n")
;binmode F;seek(F,$_,0);read(F,$_,128);close F;@_=unpack(vCvCv2Cv3V,substr($_,
11,21));$i=0;for((secsize,cluster_secs,reseverd_secs,fat_num,root_dir_max,
seccount,media_disc,fat_secs,trk_secs,heads,hidden_secs)){print"$_:$_[$i++]\n"}
print"VolLbl:'".substr($_,0x2b,11)."'\nFatType:'".substr($_,0x36,8)."'\n"
232 名前：デフォルトの名無しさん mailto:sage [2009/07/22(水) 20:21:54 .net]: >>230
反転してるのかこれ
233 名前：デフォルトの名無しさん mailto:sage [2009/08/23(日) 21:07:49 .net]: 既出を参考にマインスイーパ
コマンドライン引数として「横縦地雷数」を「"」で囲んで渡す　例）"9 9 10"
座標は左上を「1 1」として「x y」で入力
#include <stdio.h>
extern"C"long time(long*);int r=time(0),w,h,b,m;char*f,*p,*q;void C(int t){if(
p[t]==63){int i=9,k=0;for(m--;i--;p[t]=q[t]?64:48+k)k+=q[t+i/3*w-w+i%3-1];for(
i=9;!k&&i--;)C(t+i/3*w-w+i%3-1);}}int main(int n,char**v){sscanf(v[1],"%d%d%d"
,&w,&h,&b);n=w++*h;h*=w;f=new char[m=h+w*4+h];for(q=f+w*2;m--;p=q+h+w)f[m]=0;
for(m=n-b;h--;)p[h]=(h+1)%w?r=r*69069+5,(r>>26&63)<64*b/n--?b-=q[h]=1,63:63:10
;for(;puts(p),m*=!q[h];C(h=--n*w+--b))scanf("%d%d",&b,&n);delete[]f;return 0;}

先人たちに感謝を
234 名前：デフォルトの名無しさん mailto:sage [2009/09/01(火) 04:04:50 .net]: おお、久しぶりに大作きたか

しかし過疎ったな…このスレ。活気あった頃が懐かしい
235 名前：デフォルトの名無しさん [2009/09/23(水) 06:31:29 .net]: ゲーム音楽にありそう
236 名前：デフォルトの名無しさん mailto:sage [2009/09/23(水) 06:33:37 .net]: 誤爆しました
237 名前：デフォルトの名無しさん [2009/09/23(水) 07:28:31 .net]: ネタくれ
238 名前：デフォルトの名無しさん mailto:sage [2009/09/23(水) 10:24:12 .net]: ゲーム音楽
239 名前：デフォルトの名無しさん [2009/09/25(金) 01:29:19 .net]: ゲーム音楽という言葉が出たのでスレ違いだけど、
音出しテスト用にデータ量が少ないBGM探してるんだけど
おすすめ何かありませんか？
今はゼビウス使ってますが飽きてきたので
この年代のナムコは簡単でいいBGMが多いね
240 名前：デフォルトの名無しさん mailto:sage [2009/09/25(金) 01:42:37 .net]: ファルコムの曲でもつかえば？
場合によってはライセンスがフリーだし
241 名前：デフォルトの名無しさん [2009/09/25(金) 01:44:17 .net]: じゃあxanaduにするわ
あんがと
242 名前：デフォルトの名無しさん mailto:sage [2009/09/25(金) 02:03:53 .net]: MML から WAVE 生成とかできるかな
243 名前：デフォルトの名無しさん mailto:sage [2009/09/25(金) 09:31:17 .net]: >>242
cm.xrea.cc/thread/program_004.html#R867
867-869,920 七行達成ビミョーだけど。
244 名前：デフォルトの名無しさん mailto:sage [2009/09/25(金) 12:13:33 .net]: >>243
なるほど・・・
245 名前：デフォルトの名無しさん [2009/09/30(水) 03:10:07 .net]: 人生を変える名言・格言　今日の昼飯　ガッカリした観光名所　おまえら花粉対策何してる？
どんな本を読めばいいのかわからない　　ニコニコ動画でこれは見とけ！っていう動画ある？
一番欲しい物┌──────────────────────┐...ただし異論は認める
ュー速三大　 |┌‐‐.───────────────────‐.┐| 　ν速民お薦めの漫
決めようぜ ! !｜|　lニニニl 　　　　　　　　　　　　　　　　　　　　　　　|｜.先での悲惨な出来事
マイナｰだけ...｜|　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 |｜今期で一番面白いア
外食で何食 .｜|‐iﾆﾆﾆi.iﾆﾆﾆi──────┬─────────┤| ど.こ.までが一般的な
遅.刻.の.言.い｜|. L∩,,」L∩,,」　　　　　　　　　i　　　　　　　　　　　　 |｜.っ　て　言　う　の　？
あつまれ～｜|　　　　　　　　　　　　　　　 i　　　　 ∧＿∧　　　　　 |｜った映画といえば？
外食600円以.｜|　　　　　　　　　　　　　　　 i　　　（´∀｀　）　　　　　|｜コロコミックの思い出
がいい職業 .｜|　　　　　　　　　　　　　　　 i　　　 /"￣￣￣ﾞi　　　 |｜んだらどうするの？
エリアの魅力.｜|　　　　　　　　　　　　　　　 i　　　 | ヽ　　　|　　　 .|｜にありがちな事と言え
る.んじゃね.??｜|　　　　　　　　　　　　　　　 i　　　ゝ＿＿＿丿　　　|｜ν速民ならどうする？
　.未だにニコ.｜|　　　　　　　　　　　　　　　 i　　　　　　　　　　　　 |｜い奴はいないよな？
..日の思い出..｜!'‐/￣￣￣￣￣￣￣￣￣￣￣￣ﾞヽ───────┘| 必ずレスがもらえるコ
　衝撃の動画├─|　─┐─┐　ﾅ＿ヽヽ　　　|　|..|───────‐┤絶対入れたいアドオ
がいいよネ　｜　 |　 .ﾉ　　／イ / ＿　　──　．．|　　　　　　　　　　　 |する理由、やめた理由
野山の魅力　｜　＼＿＿＿＿　　　＿＿＿＿＿＿/ 　　　　　　　　　　｜一体どっちが害悪？
お前らの知っ.｜　　　　　　　　　＼／　　　　　　　　　　　　　　　　　　 |.してもらうと嬉しいこと
246 名前：デフォルトの名無しさん [2009/09/30(水) 03:10:48 .net]: 5日ぶりのレスが誤爆でごめんね、ごめんね；；
247 名前：デフォルトの名無しさん mailto:sage [2009/11/03(火) 08:34:35 .net]: ガタガタじゃないか
248 名前：デフォルトの名無しさん mailto:sage [2009/11/05(木) 10:21:33 .net]: というほどでもないと思うが
249 名前：デフォルトの名無しさん mailto:sage [2009/11/09(月) 02:39:25 .net]: 「テトリスを1時間強で作ってみた」動画の投稿者にインタビュー──「プログラミングの楽しさ伝えたい」：ITpro
itpro.nikkeibp.co.jp/article/Interview/20091104/340019/?ST=develop&P=2

> 　ちなみに以前は，「7行プログラミング」という2ちゃんねるのスレによく書き込んでいたのですよ。
> 「トリッキーの1」っていうハンドル・ネームで「6行オセロ」とかを作っていて，面白かったですね。
250 名前：デフォルトの名無しさん mailto:sage [2009/11/09(月) 03:04:30 .net]: >>249
俺が書こうと思ってきたら書き込まれてたｗｗｗｗ
251 名前：デフォルトの名無しさん mailto:sage [2009/11/09(月) 03:12:48 .net]: ttp://tsushima.2ch.net/test/read.cgi/newsplus/1257697437/
ν即+見て久方ぶりに飛んできました…初期の砂嵐なんかはお題も良かったね。
ttp://www.broadtail.jp/
typedef と詰め詰めのコードがキモいヘッダ画像はさすが悪趣味だね。
252 名前：デフォルトの名無しさん mailto:sage [2009/11/09(月) 16:03:40 .net]: ぬるぽ
253 名前：デフォルトの名無しさん mailto:sage [2009/11/10(火) 00:16:35 .net]: ｶﾞｯ
254 名前：デフォルトの名無しさん mailto:sage [2009/12/02(水) 19:48:41 .net]: >>249
この人part1からいたみたいだな
しかも常連さん
255 名前：デフォルトの名無しさん mailto:sage [2009/12/10(木) 17:04:13 .net]: おれもいつかインタビューで仮眠愚アウトする日がくるかもしれない
256 名前：デフォルトの名無しさん mailto:sage [2009/12/26(土) 19:17:39 .net]: #define MAX 36
typedef long long a,b[MAX];void c(a*e,a*f){a g=*e,h=*f;for(;g?h%=g:0;)g%=h;*e/=
g+=h;*f/=g;}int printf(char*,...),d;int main(){for(b e={1},f={1};printf("B[%d]\
=%lld/%lld\n",d,e[d],f[d]),++d<MAX;){a g=0,h=1,i=d,j,k,l;for(;i--;g=g*l+k*h,h*=
l,c(&h,&g))for(l=f[j=i],k=e[i];c(&k,&l),j;k*=d+1-j)l*=j--;h*=d+1;c(&g,&h);l=h<0
?i:1;e[d]=-g/l;f[d]=h/l;}}
257 名前：デフォルトの名無しさん mailto:sage [2009/12/27(日) 11:02:20 .net]: ベルヌーイ数か
これはC99のソースなんだな
258 名前：デフォルトの名無しさん [2010/01/23(土) 23:26:21 .net]: >>249
超絶テクニックを伝授！七行プログラミング　第1回
6行でリバーシを作る
itpro.nikkeibp.co.jp/article/MAG/20100120/343504/
259 名前：デフォルトの名無しさん mailto:sage [2010/01/24(日) 17:16:34 .net]: 実に面白い
260 名前：デフォルトの名無しさん mailto:sage [2010/01/24(日) 21:28:41 .net]: 久々に雑誌買ってみようかな?
ﾄﾘｯｷｰの1さん懐かしいな。
261 名前：デフォルトの名無しさん mailto:sage [2010/05/09(日) 08:48:43 .net]: GetMessageが-1以外の負数を返さないことが保証されてないのが怖い
262 名前：デフォルトの名無しさん mailto:sage [2010/05/10(月) 10:46:04 .net]: >>261
msdn.microsoft.com/ja-jp/library/cc364699.aspx
まあ保障じゃないけど
263 名前：デフォルトの名無しさん [2010/07/04(日) 13:09:56 .net]: 微妙な燃料投下。

#!perl
open(F,shift)||die;binmode F;print<DATA>,$/,'#~';$p=$j=2;while(read(F,$c,1)){
push(@b,ord($c));if($#b>2){&E;@b=()}}close F;&E if@b;print"*\n";sub E{for($t=0,
$i=0;$i<4;++$i){$t*=3;$t+=$b[$i]%3}$c=int(($t+1)*20/19);while(1){++$c if($c+=33)
>=42;print chr($c);if(++$p>=72){print"\n#";$p=0}last if!@b;$c=int((shift@b)/3)}}
__DATA__
#?7%00%DDPYA44P,5@P_4?P],}P^5'2PZ-%qPR545PZ5E]1F}5uAP5,ZP]5w9'PU/5zjPRQu
#Nide/com2txt/X-uw'P'5+~PZ5g(P]-vjPRU-*`P5H9P-E)PZ-KaP5V2P]5hTP5BSPRUVES
#?[X5;:PZ5WN'PR',~P/5`QP5Z P-UrPEUQ]EENNNNNN#~

nideさん作　com2txt をperlで書いてみた。
改行コードは DOS/Windows系のCRLF前提なので、LFのみ時は要変換。
264 名前：デフォルトの名無しさん mailto:sage [2010/07/16(金) 22:02:20 .net]: >>263
改行コード問題の改善と文法レベルでの縮め。

#!perl
$L="\x0D\x0A";sub E{$t=0;($t*=3)+=$b[$_]%3 for 0..3;$_=int(($t+1)*20/19);{($_+=
33)>=42&&++$_;print chr;$p=0,print"$L#"if++$p>=72;@b||last;$_=int((shift@b)/3);
redo}}binmode STDOUT;if(open F,pop){binmode F;print'#?7%00%DDPYA44P,5@P_4?P],}'
,"P^5'2PZ-%qPR545PZ5E]1F}5uAP5,ZP]5w9'PU/5zjPRQu$L#Nide/com2txt/X-uw'P'5+~PZ5g"
,"(P]-vjPRU-*`P5H9P-E)PZ-KaP5V2P]5hTP5BSPRUVES$L#?[X5;:PZ5WN'PR',~P/5`QP5Z P-U"
,"rPEUQ]EENNNNNN#~$L$L#~";$p=2;while(read F,$_,1){push@b,ord;E,@b=()if@b>3}@b&&
E;print"*$L"}
265 名前：デフォルトの名無しさん mailto:sage [2010/07/22(木) 16:58:56 .net]: DOSの.com ファイルをテキスト化するcom2txt。
DOSリアルモードで動くJperl4に対応させてみた。
www.vector.co.jp/soft/dl/dos/util/se000203.html

#!/usr/bin/perl
$L="\x0D\x0A";sub E{$t=0;for(0..3){$t*=3;$t+=$b[$_]%3};$_=int(($t+1)*20/19);{(
$_+=33)>=42&&++$_;print pack(C,$_);$p=0,print"$L#"if++$p>=72;@b||last;$_=int((
shift@b)/3);redo}}binmode STDOUT;if(open(F,shift)){print'#?7%00%DDPYA44P,5@P_4'
,"?P],}P^5'2PZ-%qPR545PZ5E]1F}5uAP5,ZP]5w9'PU/5zjPRQu$L#Nide/com2txt/X-uw'P'5+"
,"~PZ5g(P]-vjPRU-*`P5H9P-E)PZ-KaP5V2P]5hTP5BSPRUVES$L#?[X5;:PZ5WN'PR',~P/5`QP5"
,"Z P-UrPEUQ]EENNNNNN#~$L$L#~";binmode F;$p=2;while(read(F,$_,1)){push(@b,ord);
&E,@b=()if@b>3}@b&& &E;print"*$L"}
266 名前：デフォルトの名無しさん mailto:sage [2010/08/01(日) 21:51:12 .net]: 七行テトリスまだ縮んでるみたいだね

ttp://d.hatena.ne.jp/Ozy/20100325/p1
ttp://d.hatena.ne.jp/murky-satyr/20100801/tetris464
267 名前：デフォルトの名無しさん mailto:sage [2010/08/02(月) 01:13:34 .net]: 次は七行コワリスだな
268 名前：デフォルトの名無しさん mailto:sage [2010/08/03(火) 20:15:04 .net]: >>267
そwwれwwはww
269 名前：デフォルトの名無しさん mailto:sage [2010/08/19(木) 17:58:25 .net]: ぬるぽ
270 名前：デフォルトの名無しさん mailto:sage [2010/08/19(木) 18:02:48 .net]: はぁ
271 名前：デフォルトの名無しさん [2010/09/11(土) 10:43:03 .net]: #!/usr/bin/perl
%T=qw(! ¡ ' , . ˙ ; ؛ ? ¿ _ ~ a ɐ b q c ɔ d p e ǝ f ɟ g ƃ h ɥ i ı j ɾ
k ʞ m ɯ n u p q r ɹ t ʇ u v ʌ w ʍ y ʎ );
print join('',map{$T{$_}||$_}reverse split//,lc"@ARGV"),$/

fliptitle.com をperlにしてみた。
272 名前：デフォルトの名無しさん [2010/09/11(土) 12:59:33 .net]: >>271
MACですか…
273 名前：デフォルトの名無しさん mailto:sage [2010/09/11(土) 14:21:01 .net]: Windows 7プログラミングが 7行プログラミングかと間違える今日この頃。
274 名前：デフォルトの名無しさん mailto:sage [2010/09/11(土) 15:25:17 .net]: >>271
アイとエルはもうちょっといい文字ないのかな
まあないんだろうけど
275 名前：デフォルトの名無しさん mailto:sage [2010/09/11(土) 18:28:01 .net]: iは!でいいのに

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef