LL Golf Hole 3 - 13日の金曜日を数え上げる in Common Lisp 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

SERIESとMETATILITIESを利用してみました。

;>>> Friday, February 13, 2009
;>>> Friday, March 13, 2009
;>>> Friday, November 13, 2009
;>>> Friday, August 13, 2010
;>>> Friday, May 13, 2011
;>>> Friday, January 13, 2012
;>>> Friday, April 13, 2012
;>>> Friday, July 13, 2012
;>>> Friday, September 13, 2013
;>>> Friday, December 13, 2013
;==> 10

(use-package :series)

(defun friday13-p (ut)
  (and (= 13 (nth-value 3 (decode-universal-time ut)))
       (= 4 (nth-value 6 (decode-universal-time ut)))))

(let* ((from (get-universal-time))
       (to (encode-universal-time 59 59 23 31 12 2013))
       (uts (choose-if #'friday13-p (scan-range :from from :upto to :by (* 60 60 24)))))
  (iterate ((ut uts)) 
    (format t "~A~%" (metatilities:date-string ut)))
  (collect-length uts))

あんまりゴルフっぽくなりませんでした。 anarchy golf なら embed するところ。

(princ (loop for y from 2008 to 2013 sum
         (loop for m from 1 to 12
           as x = (encode-universal-time 0 0 0 13 m y)
           as a = (and (< (get-universal-time) x)
                       (= (elt (multiple-value-list (decode-universal-time x)) 6) 4))
           count a if a do (format t "~D-~D-13~%" y m))))

DouKaku?

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

Posted feedbacks - Common Lisp

Index

Feed

Other

Link

Pathtraq