bonotake https://blog.hatena.ne.jp/bonotake/ bonotakeの日記 https://bonotake.hatenablog.com/ 雑記 http://d.hatena.ne.jp/m-hiyama/20060701/1151716681より。任意のネットワークで考えるのは面倒なので、リストでやってみました。つまり、N人の人が一列に並んでいて、隣同士の人だけ「知っている」ような、元の問題のサブセット。 初期値のリストを与えると、その先頭から順に「富の再配分」をしていきます。 それを100回繰り返した結果をCSV形式で吐き出す、そんなHaskellのコード。きれいじゃないけど。 import Char import System times = 100 share :: [Float] -> [Float] share [] = … 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fbonotake.hatenablog.com%2Fentry%2F20060701%2F1151727665" title="富の再配分 - bonotakeの日記" 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 2006-07-01 13:21:05 rich https://bonotake.hatenablog.com/entry/20060701/1151727665 1.0 100%