LL Golf Hole 3 - 13日の金曜日を数え上げる in Erlang DouKaku?

今日から2013年12月31日までの、13日の金曜日とその総数を表示してください。

余力のあるものはこのプログラムを短くしてみたり、短くしてみたり、短くしてください。

※LL Future実行委員の高野光弘です。この出題は LL Future公式の出題であり、優れたものについてはLL Golfのセッションでご紹介させていただくかもしれません。ご理解の上、ご投稿ください。また、LL Futureのチケットは現在も発売中です。よろしければ、メインイベントの方にもぜひご参加ください。

see: DateTime - Rubyリファレンスマニュアル

#!/usr/bin/env ruby
require 'date'

from = DateTime.now
to = DateTime.parse("2013-12-31")

friday = (from..to).inject(0) do |friday, date|
    if date.mday == 13 and date.wday == 5 then
        puts date.strftime('%Y-%m-%d')
        friday + 1
    else
        friday
    end
end

puts friday

大元になる日付のリストは素直に1日ごとのものを生成しています。
escript ファイル名
として実行します。
実行結果例(2008/8/7に実行)
[{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(_) ->
        L=a(date(),{2013,12,31}),
    M=[{X,Y,13} || {X,Y,13} <- L, 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).

申し訳ありません、動かないコードを投稿してしまいました。
最初に投稿したものは、最初に空行が必要でした。
(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).

DouKaku?

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

Posted feedbacks - Erlang

Index

Feed

Other

Link

Pathtraq