DouKaku? 7047 pooq: 実行した日から2013年12月31日まで...(LL Golf Hole 3 - 13日の金曜日を数え上げる)

Comment detail

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

実行した日から2013年12月31日までの日付のテーブルをつくり13日を取り出し
その中から金曜日を取り出しています。

実行結果
2009  2 13
2009  3 13
2009 11 13
2010  8 13
2011  5 13
2012  1 13
2012  4 13
2012  7 13
2013  9 13
2013 12 13

1 2	load'dates' exit wd(#~5&=&weekday)(#~13&=&{:"1)todate(+i.&(78161&-))todayno 3{.6!:0''

すみません。総数の表示が抜けていました。

1 2	load'dates' exit wd(":,":&#)(#~5&=&weekday)(#~13&=&{:"1)todate(+i.&(78161&-))todayno 3{.6!:0''

フックとフォークを使うと頭くらくらしてくるけど、すこし縮んだ。

1	exit wd(":,":&#)(#~13={:"1)todate(#~2=7\|])(+[:i.78161-])todayno 3{.6!:0''[load'dates'

DouKaku?

Comment detail

Index

Feed

Other

Link

Pathtraq