はじめてのにき

_ ニコニコ

なんか時計が大幅に進んでるとログインできないらしいけど、 大幅に遅れてる場合はどうなんだろう。 パスワード再発行しても入れないなーという

(01:09)

_ パネポンDS

http://d.hatena.ne.jp/tekezo/20070427#1177604610

こんなの出たのかー。 こっちで買えるのかな

(01:11)

_ ポーランド

http://d.hatena.ne.jp/Gimite/20060725/1153803035

なんか再帰で sub に勝てる気がしたんだけど。

とりあえず sub の方を安易に縮めると

$_="- + 1 / 2 2 + 3 * 4 5"
0while sub! /(\W) (\d\S*) (\d\S*)/,'\2_\3_\1'
p$_.tr'_',' '

とか

$_="- + 1 / 2 2 + 3 * 4 5"
sub /(\W) (\d\S*) (\d\S*)/,'\2_\3_\1'while/ /
p$_.tr'_',' '

になると思う。

で再帰の方。 空白が無いならこんな感じのは結構短いしまだ少し縮みそう。

_="-+1/22+3*45"
f=proc{|$_|/^\d/?$&:/./?(s=$&;f[$']+f[$']+s):''}
p f[_]

出力に空白入れるのは色々難しい… 入力に空白が入るだけなら

_="- + 1 / 2 2 + 3 * 4 5"
f=proc{|$_|/ /?(_=$`)[0]<?0?f[$']+f[$']+_:_:$_}
p f[_]

こんな感じで短くなったりするし

$_="- + 1 / 2 2 + 3 * 4 5"
f=proc{|_|$'=~/ /&&(_=$`)[0]<?0?f[]+f[$']+_:_}
p f[~//]

こんな感じの別解とかも考えられたりとか。

元の問題通りの動作となると、

$_="- + 1 / 2 2 + 3 * 4 5"
f=proc{|_|$'=~/ /&&(_=$`)[0]<?0?f[]+f[$']+[_]:[_]}
p f[~//]*' '

_="- + 1 / 2 2 + 3 * 4 5"
f=proc{|$_|/^\d /?$&:/. /?(s=$&;f[$']+f[$']+s):''}
p f[_+' '].chop

のあたりを考えたんだけど、やはり最後の空白難しいよなーという。

(18:43)

_ sub の方

$_="- + 1 / 2 2 + 3 * 4 5"
0while sub! /(\W) (\d\S*) (\d\S*)/,'\2\3\1'
p scan(/./)*' '

もアリか。もちろん scan は split('') でも。

(19:02)