同じ金額を持った人たちが一斉にランダムな相手に1ドルを渡すことを繰り返す Perl スクリプト 2017-07-11-2 [Programming][Algorithm][Perl] 元ネタはこちら。 「100人を部屋に集めてお金をランダムな相手に渡し続ける」とだんだんと貧富の差が生まれる - GIGAZINE プログラム書いて実験してみた。 ■コード(rand-ageru.pl) #!/usr/bin/perl use strict; use warnings; use List::Util qw(min max); my ($num, $loop_max) = @ARGV; my @money = ($num) x $num; for (my $loop = 1; $loop <= $loop_max; $loop++) { for (my $from = 0; $from < $nu
![同じ金額を持った人たちが一斉にランダムな相手に1ドルを渡すことを繰り返す Perl スクリプト](https://cdn-ak-scissors.b.st-hatena.com/image/square/13eb62723313ba12858b9c4dcc96cce6c97edccc/height=288;version=1;width=512/https%3A%2F%2Fc1.staticflickr.com%2F5%2F4207%2F35016643814_b370627ee9.jpg)