Comment detail
LL Golf Hole 3 - 13日の金曜日を数え上げる (Nested Flatten)This comment is reply for 7035 kgbu: 大元になる日付のリストは素直に1日ごとの...(LL Golf Hole 3 - 13日の金曜日を数え上げる). Go to thread root.
This comment is reply for 7035 kgbu: 大元になる日付のリストは素直に1日ごとの...(LL Golf Hole 3 - 13日の金曜日を数え上げる). Go to thread root.
kgbu #7043() [ Erlang ] Rating1/1=1.00
申し訳ありません、動かないコードを投稿してしまいました。 最初に投稿したものは、最初に空行が必要でした。 (escriptコマンドは、最初の行を無視するため) 最初の行をコメントとして、コードも多少短くしたものを再投稿いたします。 実行方法と結果は、以下のように、元記事と同様です。 escript スクリプトのファイル名 [{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}] 10 days%% main(_)->M=[{X,Y,13}||{X,Y,13}<-a(date(),{2013,12,31}),calendar:day_of_the_week({X,Y,13})=:=5],io:format("~p~n~p days~n",[M,length(M)]). a(X,X)->[X]; a(X,Y)->[X]++a(calendar:gregorian_days_to_date(calendar:date_to_gregorian_days(X)+1),Y).Rating1/1=1.00-0+