同じ金額を持った人たちが一斉にランダムな相手に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