kgbu #7043(2008/08/07 09:00 GMT) [ 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
1 2 3 4
%% 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+
[ reply ]
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+