åãéé¡ãæã£ã人ãã¡ãä¸æã«ã©ã³ãã ãªç¸æã«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
{{#tags}}- {{label}}
{{/tags}}