七行プログラミング part6

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

210:デフォルトの名無しさん
09/03/31 21:43:59
>>208
thx!

211:デフォルトの名無しさん
09/04/05 21:54:51
URLﾘﾝｸ(www.youtube.com)
これを作ってみた。テキスト化はやる気が足りなかった。
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:デフォルトの名無しさん
09/04/08 14:54:17
base64のデコードの方だけだけど、jsで２行でできたｗ
<input onkeyup='event.keyCode-13||window.open("data:text/html;base64,"+
this.value,"","width=400,height=300")' >

213:デフォルトの名無しさん
09/04/09 07:59:50
location でいいし

214:デフォルトの名無しさん
09/04/11 11:39:52
タブをきれいにスペースに置き換えるスクリプトがほしいです。

215:デフォルトの名無しさん
09/04/11 12:50:48
>>214
URLﾘﾝｸ(www.pinkdragon.net)

216:デフォルトの名無しさん
09/04/13 22:32:27
ｽﾚﾘﾝｸ(hard板: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:デフォルトの名無しさん
09/04/14 01:30:34
<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:デフォルトの名無しさん
09/04/14 01:50:44
<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:デフォルトの名無しさん
09/04/14 02:15:46
うぜえ

220:デフォルトの名無しさん
09/04/14 19:15:18
乙乙

221:デフォルトの名無しさん
09/04/14 22:33:43
htmlタグが無かったりタグを閉じてなかったり
いろいろルール違反な感じなのは良いのか？

222:デフォルトの名無しさん
09/04/14 22:55:02
動けばいいのだ。
そもそもhtmlタグはもとから省略可能。
終了タグも省略可能なものは結構あるぞ。

223:デフォルトの名無しさん
09/04/14 22:59:26
>>221
doctype宣言がないんだからやりたい放題

224:デフォルトの名無しさん
09/04/19 22:08:18
ｈｊｈｇｇ

225:デフォルトの名無しさん
09/05/12 23:10:32
<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:デフォルトの名無しさん
09/05/13 00:31:40
関数名って必要？

227:デフォルトの名無しさん
09/05/16 06:51:37
あんまり多くすると重いかも
小数点とか区切り位置とかは手抜き

<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:デフォルトの名無しさん
09/05/24 05:52:29
wonderfulで動く7行プログラムキボン

229:デフォルトの名無しさん
09/05/27 20:31:40
URLﾘﾝｸ(cm.xrea.cc) にあったのが
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:デフォルトの名無しさん
09/05/28 08:02:07
ついでに 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の場合、テーブル無しに直接計算するコードもあったりするのだが
URLﾘﾝｸ(retroarchive.org)
URLﾘﾝｸ(retroarchive.org)
こういうのをCにしてみるのも面白いかと思った。

231:デフォルトの名無しさん
09/06/12 08:57:12
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:デフォルトの名無しさん
09/07/22 20:21:54
>>230
反転してるのかこれ

233:デフォルトの名無しさん
09/08/23 21:07:49
既出を参考にマインスイーパ
コマンドライン引数として「横縦地雷数」を「"」で囲んで渡す　例）"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:デフォルトの名無しさん
09/09/01 04:04:50
おお、久しぶりに大作きたか

しかし過疎ったな…このスレ。活気あった頃が懐かしい

235:デフォルトの名無しさん
09/09/23 06:31:29
ゲーム音楽にありそう

236:デフォルトの名無しさん
09/09/23 06:33:37
誤爆しました

237:デフォルトの名無しさん
09/09/23 07:28:31
ネタくれ

238:デフォルトの名無しさん
09/09/23 10:24:12
ゲーム音楽

239:デフォルトの名無しさん
09/09/25 01:29:19
ゲーム音楽という言葉が出たのでスレ違いだけど、
音出しテスト用にデータ量が少ないBGM探してるんだけど
おすすめ何かありませんか？
今はゼビウス使ってますが飽きてきたので
この年代のナムコは簡単でいいBGMが多いね

240:デフォルトの名無しさん
09/09/25 01:42:37
ファルコムの曲でもつかえば？
場合によってはライセンスがフリーだし

241:デフォルトの名無しさん
09/09/25 01:44:17
じゃあxanaduにするわ
あんがと

242:デフォルトの名無しさん
09/09/25 02:03:53
MML から WAVE 生成とかできるかな

243:デフォルトの名無しさん
09/09/25 09:31:17
>>242
URLﾘﾝｸ(cm.xrea.cc)
867-869,920 七行達成ビミョーだけど。

244:デフォルトの名無しさん
09/09/25 12:13:33
>>243
なるほど・・・

245:デフォルトの名無しさん
09/09/30 03:10:07
人生を変える名言・格言　今日の昼飯　ガッカリした観光名所　おまえら花粉対策何してる？
どんな本を読めばいいのかわからない　　ニコニコ動画でこれは見とけ！っていう動画ある？
一番欲しい物┌───────────┐...ただし異論は認める
ュー速三大　 |┌‐‐.──────────‐.┐| 　ν速民お薦めの漫
決めようぜ ! !｜|　lニニニl 　　　　　　　　　　　　　　　　　　　　　　　|｜.先での悲惨な出来事
マイナｰだけ...｜|　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 |｜今期で一番面白いア
外食で何食 .｜|‐iﾆﾆﾆi.iﾆﾆﾆi───┬─────┤| ど.こ.までが一般的な
遅.刻.の.言.い｜|. L∩,,」L∩,,」　　　　　　　　　i　　　　　　　　　　　　 |｜.っ　て　言　う　の　？
あつまれ～｜|　　　　　　　　　　　　　　　 i　　　　 ∧＿∧　　　　　 |｜った映画といえば？
外食600円以.｜|　　　　　　　　　　　　　　　 i　　　（´∀｀　）　　　　　|｜コロコミックの思い出
がいい職業 .｜|　　　　　　　　　　　　　　　 i　　　 /"￣￣￣ﾞi　　　 |｜んだらどうするの？
エリアの魅力.｜|　　　　　　　　　　　　　　　 i　　　 | ヽ　　　|　　　 .|｜にありがちな事と言え
る.んじゃね.??｜|　　　　　　　　　　　　　　　 i　　　ゝ＿＿＿丿　　　|｜ν速民ならどうする？
　.未だにニコ.｜|　　　　　　　　　　　　　　　 i　　　　　　　　　　　　 |｜い奴はいないよな？
..日の思い出..｜!'‐/￣￣￣￣￣￣￣￣￣￣￣￣ﾞヽ────┘| 必ずレスがもらえるコ
　衝撃の動画├─|　─┐─┐　ﾅ＿ヽヽ　　　|　|..|────‐┤絶対入れたいアドオ
がいいよネ　｜　 |　 .ﾉ　　／イ / ＿　　─　．．|　　　　　　　　　　　 |する理由、やめた理由
野山の魅力　｜　＼＿＿＿＿　　　＿＿＿＿＿＿/ 　　　　　　　　　　｜一体どっちが害悪？
お前らの知っ.｜　　　　　　　　　＼／　　　　　　　　　　　　　　　　　　 |.してもらうと嬉しいこと

246:デフォルトの名無しさん
09/09/30 03:10:48
5日ぶりのレスが誤爆でごめんね、ごめんね；；

247:デフォルトの名無しさん
09/11/03 08:34:35
ガタガタじゃないか

248:デフォルトの名無しさん
09/11/05 10:21:33
というほどでもないと思うが

249:デフォルトの名無しさん
09/11/09 02:39:25
「テトリスを1時間強で作ってみた」動画の投稿者にインタビュー─「プログラミングの楽しさ伝えたい」：ITpro
URLﾘﾝｸ(itpro.nikkeibp.co.jp)

> 　ちなみに以前は，「7行プログラミング」という2ちゃんねるのスレによく書き込んでいたのですよ。
> 「トリッキーの1」っていうハンドル・ネームで「6行オセロ」とかを作っていて，面白かったですね。

250:デフォルトの名無しさん
09/11/09 03:04:30
>>249
俺が書こうと思ってきたら書き込まれてたｗｗｗｗ

251:デフォルトの名無しさん
09/11/09 03:12:48
ｽﾚﾘﾝｸ(newsplus板)
ν即+見て久方ぶりに飛んできました…初期の砂嵐なんかはお題も良かったね。
URLﾘﾝｸ(www.broadtail.jp)
typedef と詰め詰めのコードがキモいヘッダ画像はさすが悪趣味だね。

252:デフォルトの名無しさん
09/11/09 16:03:40
ぬるぽ

253:デフォルトの名無しさん
09/11/10 00:16:35
ｶﾞｯ

254:デフォルトの名無しさん
09/12/02 19:48:41
>>249
この人part1からいたみたいだな
しかも常連さん

255:デフォルトの名無しさん
09/12/10 17:04:13
おれもいつかインタビューで仮眠愚アウトする日がくるかもしれない

256:デフォルトの名無しさん
09/12/26 19:17:39
#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:デフォルトの名無しさん
09/12/27 11:02:20
ベルヌーイ数か
これはC99のソースなんだな