Pocket7878_dev https://blog.hatena.ne.jp/Pocket7878_dev/ Let's write β https://tech-blog.pocket7878.com/ ICPC Lisp ICPC2012の問題が公開になりました。 http://www.psg.cs.titech.ac.jp/icpc/icpc2012/contest/all_ja.html というわけでLispで解いてみましょう。 さて、ProblemAですが、こんな感じですかね。 (defun calc-year-day (year) (if (zerop (mod year 3)) (* 20 10) (+ (* 20 5) (* 19 5)))) (defun convert-to-day (year month day) (let ((res 0)) ;;Year (loop for y from 1… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Ftech-blog.pocket7878.com%2Fentry%2F20120706%2F1341577933" title="ICPC2012 Problem A - Let&#39;s write β" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2012-07-06 21:32:13 rich https://tech-blog.pocket7878.com/entry/20120706/1341577933 1.0 100%