Re: How to not print the same random number

This may give you what you want:

use strict;
use warnings;

print join"\n",grep$_,map{our%s;my$n=1+int rand(10);$s{$n}++?0:$n}1..1
+00;
[download]

DWIM is Perl's answer to Gödel

Comment on Re: How to not print the same random number Download Code

Replies are listed 'Best First'.
Re^2: How to not print the same random number by ysth (Canon) on Mar 05, 2006 at 07:56 UTC
I like the "may" part. Did you calculate the actual odds?	[reply]
Re^3: How to not print the same random number by GrandFather (Saint) on Mar 05, 2006 at 09:41 UTC
Statistics is not my strong suit. I ran a test version a few times and noticed that about 23-25 itterations sufficed often enough and guessed that 100 would seldom dissapoint. Glad you noticed the "may". :) DWIM is Perl's answer to Gödel	[reply]