はじめてのにき

_ ReRe: 人材獲得作戦

http://d.hatena.ne.jp/ku-ma-me/20100112/p1

s=*$<
x=y=0
y+=1until x=/S/=~s[y]
q=[[a=s,x,y]]
(a,x,y=q.shift
a=a.map &:dup
a[y][x]=?$
4.times{|k|s[j=-(k^1)/2+1+y][i=-k/2+1+x]!=?*&&(s[j][i]=?*;q<<[a,i,j])}
)while/G/=~a*''
puts a

あんまマジメにやってないんだけど 適当に解いてて一応勝ってる (181B) ぽいので。

はじっこに壁があるのを仮定してるのはちょっとずるかったりするんかな。 あと S の位置が 1,1 というのを仮定してよかったらだいぶラクなんだけどなあ。 なんかそれを仮定してそうなコードをどっかで見た気がしたんだ

(00:43)

_ SysV IPC でチート

http://john.freml.in/codegolf-cheating

できそうと教えてもらったけど、 まぁ誰もやらんだろうと思ってたんだけど、やってくれた。

というわけで共有メモリとメッセージキューは殺したんだけど、 semaphore は mono が使うらしい。 アホかーと思ったんだけど、 まぁ数をギリギリの数にしておいた。

でもまぁ気持ち悪いし、 一個でも semaphore 作られたら C# のプログラムが動かなくなるので、 後で semaphore はクリアするようにしておこうと思う。 で、 Ruby は syscall 呼ばんと getsem とか無いかなぁ…とかいう。

(00:48)

_ 167B

s=*$<
x=y=0
y+=1until x=/S/=~s[y]
q=[a=s,x,y]
(a,i,j,*q=q
a=a.map &:dup
a[j][i]=9*4.times{|k|q+=[a,x,y]if s[y=-~k%3-1+j][x=-k/2+1+i]!=s[y][x]=?*})while/G/=~a*''
puts a

まだまだ縮みそうではある

(01:04)

_ 161B

s=*$<
x=y=0
y+=1until x=/S/=~s[y]
q=[a=s,x,y]
(a,i,j,*q=q
a=*a*''
a[j][i]=9*4.times{|k|q+=[a,x,y]if s[y=-~k%3-1+j][x=-k/2+1+i]!=s[y][x]=?*})while/G/=~a*''
puts a

よく考えるとどうせ 1.9 じゃ動かんしなぁ

(01:08)

_ 120B

q=a=gets(p),~/S/
(a,i,*q=q
a*=1
a[i]=9*4.times{|x|q+=[a,x]if$_[x=-~x%3*-~~/$/-~/$/+-x/2+i]!=$_[x]=?*})while/G/=~a
puts a

golf data structure is always linear は金言だなぁ…

しかしなんかむしろコードが間違ってたらはずかしいな

(01:32)

_ 124B

q=gets(p)*1,~/S/
(a,i,*q=q
a[i]<?S&&a[i]=?$
4.times{|x|q+=[a*1,x]if$_[x=-~x%3*-~~/$/-~/$/+-x/2+i]!=$_[x]=?*})while/G/
puts a

どうしても S を塗らない処理が大変だなぁ。 G を塗らないのはむしろ短くなった気がするんだけど…

(02:31)