# parameters: $n - sequence length; @_ domain elements sub random_sequence { my $n = shift; return () if $n < 1; return map { $_[rand($#_+1)] } (1..$n); } # (c) Vlado Keselj 2003-2007 http://www.cs.dal.ca # random_sequence - of specified length and given objects # $Id: random_sequence,v 1.1 2007/01/25 17:57:37 vlado Exp $