DouKaku? 7265 yugui: 時刻が付いてしまうのはまぁ許される? ...(LL Golf Hole 3 - 13日の金曜日を数え上げる)

Comment detail

LL Golf Hole 3 - 13日の金曜日を数え上げる (Nested Flatten)

時刻が付いてしまうのはまぁ許される?

Fri Feb 13 16:31:21 +0900 2009
Fri Mar 13 16:31:21 +0900 2009
Fri Nov 13 16:31:21 +0900 2009
Fri Aug 13 16:31:21 +0900 2010
Fri May 13 16:31:21 +0900 2011
Fri Jan 13 16:31:21 +0900 2012
Fri Apr 13 16:31:21 +0900 2012
Fri Jul 13 16:31:21 +0900 2012
Fri Sep 13 16:31:21 +0900 2013
Fri Dec 13 16:31:21 +0900 2013
10

1	p (Time.now..Time.gm(2013,12,31)).step(86400).count{\|x\|x.mday==13&&x.wday==5&&!p(x)}

goruby版

1	p (Ti.no..Ti.gm(2013,12,31)).st(86400).ct{\|x\|x.my==13&&x.wy==5&&!p(x)}

間違い。gorubyだとpが値を返すのでした。

1	p (Ti.no..Ti.gm(2013,12,31)).st(86400).ct{\|x\|x.my==13&&x.w==5&&p(x)}

yugui さんのコード、どうも動かないと思ったら step のあとに count が繋げられるのは 1.9 からなのですね。 1.8.6 ではエラーになってしまいました。一応 1.8.6 でも動作する版を作ってみました。 2013年12月31日まで = 2014年1月1日としてますが、許される?

1
2
3

c=0
(Time.now..Time.gm(14)).step(86400){|d|d.day==13&&d.wday==5&&(c+=1)&&p(d)}
p c

c=0
(Time.now..Time.gm(14)-1).step(86400){|d|p(d)if"#{d}"=~/F.{7}13/&&c+=1}
p c

# または同サイズの

c=0
(Time.now..Time.gm(14)-1).step(86400){|d|p(d)if d.day*d.wday==65&&c+=1}
p c

１文字縮められました。

1
2
3

c=0
(Time.now..Time.gm(14)-1).step(86400){|d|p(d)if"#{d}"=~/i\D*13/&&c+=1}
p c

DouKaku?

Comment detail

Index

Feed

Other

Link

Pathtraq