七行プログラミング part6

**デフォルトの名無しさん** · 2008/07/06(日) 23:00:49

7行×79文字なら言語は問いません。
過去作品は、もしかしたら>>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

**デフォルトの名無しさん** · 2008/07/06(日) 23:12:00

>>1乙

**デフォルトの名無しさん** · 2008/07/06(日) 23:20:55

>>1乙

**デフォルトの名無しさん** · 2008/07/06(日) 23:26:19

●作品集
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

**デフォルトの名無しさん** · 2008/07/07(月) 13:42:19

↓7行で乙

**デフォルトの名無しさん** · 2008/07/07(月) 19:05:55

print'''■■■■■■■＿＿
＿＿＿＿＿■＿＿＿
＿＿＿■■＿＿＿＿
＿■■＿＿＿＿＿＿
■＿＿＿＿＿＿＿■
■＿＿＿＿＿＿＿■
＿■■■■■■■＿'''

**デフォルトの名無しさん** · 2008/07/07(月) 19:51:21

g=:(],],.])^:[(' '(<2 1)}]\4$' *')"_

シェルピンスキーのギャスケット in J

**デフォルトの名無しさん** · 2008/07/07(月) 19:59:15

alert('\u003e\u003e\u0031\u000a\u4E59')

**デフォルトの名無しさん** · 2008/07/07(月) 21:10:27

<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)
?'':'Q')i%A||(S+='\n');D.innerText=S;Z[5]||setTimeout(Y,i-P)}Y(h=K=t=P=0)">

**デフォルトの名無しさん** · 2008/07/07(月) 21:37:11

B=:'0123456789+/',~a.{~,(a.i.'Aa')+/i.26
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

**デフォルトの名無しさん** · 2008/07/07(月) 22:06:01

>>9
なにこれ

**デフォルトの名無しさん** · 2008/07/07(月) 22:09:14

前スレで７行ASMってネタ出てたけど、実際どこまで出来るものかな？

**デフォルトの名無しさん** · 2008/07/07(月) 22:33:45

org 100h
mov ah,9
mov dx,msg
int 21h
mov ax,4c00h
int 21h
msg db "Hello, world!$"

7行でHello, world!

**デフォルトの名無しさん** · 2008/07/07(月) 22:39:18

アセンブリはCPUやコンパイラやOSによってかなり依存するからなぁ
>>13はx86/DOS/NASMか

。 · 2008/07/07(月) 23:00:18

http://codepad.org/LN7ZIsBO

↑こういうコードがかけるらしい。qsortの第4引数が

int strcmp(const char**a, const char**b) {
while(**a == **b) {
if(**a == '\0')
return 0;
(*a)++; (*b)++;
}
return **a - **b;
}

をコンパイルしたコードだとか。C言語で無名関数を渡す方法は他にもあるのかな?
こういうのもゴルフのテクニックのひとつ？