zehnpaard https://blog.hatena.ne.jp/zehnpaard/ Arantium Maestum https://zehnpaard.hatenablog.com/ Clojure IT速報 前回 まあこれもありかも。 (def coins [500 100 50 10 5 1]) (defn f [[remainder & count-list] coin] (concat ((juxt rem quot) remainder coin) count-list)) (defn coin-count2 [n] (->> coins (reduce f (list n)) next reverse)) reduceの戻り値を、これまでの商のリストの先頭に余を加えたものにすると比較的シンプル。 ただ、これだとリストの先頭とそれ以外で意味が違ってくるので、そこはちょっと悲しい。 しかしd… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fzehnpaard.hatenablog.com%2Fentry%2F2016%2F05%2F07%2F100643" title="簡単な硬貨問題 from IT速報3 - Arantium Maestum" 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 2016-05-07 10:06:43 rich https://zehnpaard.hatenablog.com/entry/2016/05/07/100643 1.0 100%