mzp https://blog.hatena.ne.jp/mzp/ みずぴー日記 https://mzp.hatenadiary.org/ Erlang 30分プログラム 30分プログラム、その286。Problem20 via Project Euler。 n × (n - 1) × ... × 3 × 2 × 1 を n! と表す。 100! の各桁の数字の合計を求めよ。 桁の分解といえば、unfold。Erlangの標準ライブラリには無いので、Ruminations of a Programmer: Fun with unfold in Erlangを参考に自分で作った。 使い方 $ escript problem20.erl 100 648 ソースコード -module(problem20). -export([main/1]). unfold(Pred… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fmzp.hatenadiary.org%2Fentry%2F20080413%2Fsum" title="Problem20 - みずぴー日記" 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 2008-04-13 00:00:01 rich https://mzp.hatenadiary.org/entry/20080413/sum 1.0 100%