JAPH out of random (Bored)

[lindex]

#!/usr/bin/perl

#
# A waste of brain power
#

$|++;
use strict;
use vars qw(%h @e @j $v $i $r);

@j = qw(
  74 117 115 116 32 65 110 111 116 
  104 101 114 32 80 101 114 108 32 
  72 97 99 107 101 114 
);

open($r,"</dev/urandom") || die("$!: /dev/urandom\n");
while($i!=($#j+1)) {
  $v=(unpack("S2",<$r>) % 177);
  next if($h{$v}==$v);
  for(my($c)=0;$c <= $#j;$c++) {
    if($j[$c]==$v) {
      $i++;
      $e[$c]=chr($v);
      print "\r[ ".join('',map{my($c)=$_||' '; $c}@e)." ]";
    }
  }
  $h{$v}=$v;
}
print "\n";
close($r);

lindex

/****************************/
  [e-mail], [e-mail]
    http://jason.gost.net
/*****************************/