Comment detail
LL Golf Hole 3 - 13日の金曜日を数え上げる (Nested Flatten)
kkobayashi
#7044()
[
R
]
短くしてみました。
1 | l=Sys.Date():16070;class(l)="Date";length(print(l[format(l,"%d%w")==135]))
|
kkobayashi
#7044()
[
R
]
短くしてみました。
1 | l=Sys.Date():16070;class(l)="Date";length(print(l[format(l,"%d%w")==135]))
|
kkobayashi
#7010()
[
R
]
Rating1/1=1.00
2013年と都合よく解釈しました。
私にはこのくらいが限度のようです。
with(as.POSIXlt(l<-(seq(Sys.Date(),as.Date("2013-12-31"),"d"))), length(print(l[mday==13 & wday==5])))Rating1/1=1.00-0+
1 reply [ reply ]