[H-GEN] Hostnames in meeting.humbug.org.au

Sarah Hollings sarah at humanfactors.uq.edu.au
Sun Aug 22 09:04:27 EDT 2004


Mark Suter wrote:
> [ Humbug *General* list - semi-serious discussions about Humbug and     ]
> [ Unix-related topics. Posts from non-subscribed addresses will vanish. ]
> 
> -----BEGIN PGP SIGNED MESSAGE-----
> Hash: SHA1
> 
> Folks,
> 
> I've taken Swambo's suggestion, as relayed by Tony and improved
> by Robert and written some code.  Any comments to me directly
> please - note use of Reply-To ;)
> 
> This should be a cut-and-paste run-from-the-shell-prompt job:
> 
>     perl -we '
>     my @setA = qw( almond azure beige black blue brown coral cream cyan drab gold
>             ivory lace linen navy orange pink plum purple red rose salmon smoke snow
>             tan tomato violet wheat white yellow );

  MR. PINK
Why can't we pick out our own
colors?

JOE
I tried that once, it don't work.
You get four guys fighting over
who's gonna be Mr. Black. Since
nobody knows anybody else, nobody
wants to back down. So forget it,
I pick. Be thankful you're not
Mr. Yellow.





>     my @setB = qw( baby bed boat box brick car cat chair cloud cow dog fire flower
>             hat horse house key mat maze moon paper phone rabbit rock sail snake
>             spear stamp star stump table tea tree truck );
>     my %seen = ();
>     foreach (1 .. 512) {
>         my $name = @setA[ rand @setA ] . @setB[ rand @setB ];
>         redo if ++$seen{$name} > 1;          # duplicates
>         redo if $name =~ m{ \B (.) \1 \B }x; # embedded doubles
>         redo if length $name > 10;           # too long
>         print "$name\n";
>     }
>     '
> 
> Yours sincerely,
> 
> - -- Mark John Suter  | I know that you  believe  you understand
> suter at humbug.org.au | what you think I said, but I am not sure
> gpg key id 2C71D63D | you realise that what you  heard  is not
> mobile 0411 262 316 | what I meant.        Robert J. McCloskey
> -----BEGIN PGP SIGNATURE-----
> Version: GnuPG v1.2.5 (GNU/Linux)
> Comment: Check Keyservers or http://zwitterion.org/keys/
> 
> iD8DBQFBKIETRYso2ixx1j0RAhK0AJ96kB4dfJxvU0MJckn09wX4HUyuagCeI1GU
> K1Hm++d0KUCXHHEaKh2i0gA=
> =dwfJ
> -----END PGP SIGNATURE-----
> 
> _______________________________________________
> General mailing list
> General at lists.humbug.org.au
> http://lists.humbug.org.au/cgi-bin/mailman/listinfo/general


-- 
Sarah Hollings                     IT Manager
sarah at humanfactors.uq.edu.au       The ARC Key Centre
Ph +61 7 33656080                  for Human Factors and
Mb +61 416 045401                  Applied Cognitive Psychology





More information about the General mailing list