hiroshi-manabe · April 15, 2019 16:45
diff --git a/randpick_a b/randpick_a
 #!/usr/bin/perl -nl
 use Getopt::Std;
 BEGIN {
    getopt("n:a:" => \%o);
    $n = $o{"n"} ||= 10;
    $all = $o{"a"};
 }
 if (rand($all - $. + 1) < $n) {
    print;
    --$n;
 }
	#!/usr/bin/perl -nl
	use Getopt::Std;
	BEGIN {
	getopt("n:a:" => \%o);
	$n = $o{"n"} \|\|= 10;
	$all = $o{"a"};
	}
	if (rand($all - $. + 1) < $n) {
	print;
	--$n;
	}