解答・コメントを送る方法
コメントを送るには2つの方法があります。
- 匿名でコメントを書くログインせずにコメントを書くことができます。 名前は「匿名」となります。
- アカウントを作成してコメントを書くアカウントを作成すると、記名での投稿ができます。 また、プロフィールページが作成され、 簡単なプロフィールや 統計情報が表示されるようになります。
投稿ボタンを押す前に以下の文章を確認してください
- 当サイトへの投稿は クリエイティブ・コモンズ・ライセンス BY(表示)および、その解釈に同意するものとみなされます。各ページには下のようにライセンス表示が行われます。
- あなたの投稿したコード・コメント・トピックが再利用・添削されることを望まない場合は、投稿をお控えください。
- 自分が書いていない、ウェブサイトや書籍などからの無断コピーは著作権の侵害です。著作権者の了解を得るか、自分で0から書いてください。
- 著作権の侵害、名誉毀損、など投稿内容に問題がある場合、削除することがあります。
- これらのことにあなたはあらかじめ同意したものとみなされます。
Post comment
Post a comment to the following challenge:
LL Golf Hole 3 - 13日の金曜日を数え上げる
(Nested
Flatten)
As a reply to the following comment: mc: SERIESとMETATILITIESを...(#7004) [show]
mc
#7004()
[
Common Lisp
]
Rating0/0=0.00
;>>> 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))Rating0/0=0.00-0+
[ reply ]