2009/2/4 Rob Canning <robcann...@eircom.net>:
> hello,
> i am new to this list and very new to pearl.
> i have run into a problem i cant find a solution - i have searched the net
> for an answer but as i am so new to perl (and programming in general)
> perhaps i dont even know the right keywords...
>
> ok here it goes..
>
> use Math::Combinatorics;
>
> my @n = qw(tomfl toml tomml tommh tomh);
> my @permutations = (join(" ",map { join " ", @$_ } permute(@n)),"\n");
I think if you drop the out join you will be fine:
my @permutations = map { join " ", @$_ } permute(@n);
Good luck,
Dp.
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
