Re: How to get this not the usual round robin looping

My humble solution:

use strict;
use warnings;
use Data::Dumper;

my @K = qw (H1 H2 H3 H4);
my @V = qw (1 2 3 4 5 6 7 8 9 10);

my %hash;
my $i = -1;

push @{ $hash{ $K[ ++$i&4 ? 3-$i%4 : $i%4 ] } }, $_ for @V;

print Dumper \%hash;
[download]

UPDATE: ...or...

push @{ $hash{ $K[ int 3.5*abs sin (0.19634954085+0.39269908170*++$i) 
+] } }, $_ for @V;
[download]

Comment on Re: How to get this not the usual round robin looping Select or Download Code

Replies are listed 'Best First'.
Re^2: How to get this not the usual round robin looping by Discipulus (Canon) on Oct 14, 2015 at 07:48 UTC
chapeau for your solutions, but while i was reading them to appreciate how bad i was to not studied math (quite at all), i realized that your two push lines work only for 0 to 3. has your math solution the possibility to abstract this and using the index of a variable `@K`? thanks L* There are no rules, there are no thumbs.. Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.	[reply] [d/l] [select]
Re^3: How to get this not the usual round robin looping by hdb (Monsignor) on Oct 14, 2015 at 08:47 UTC
Well spotted! Right now I cannot think of something as terse as this for the general solution. The `$i&4` basically tells the ups and downs and would need to be replaced by something like `int($i/@K)&1` (not tested). The line based on `sin` will not work for large arrays `@K` as `sin` is not linear enough for that... Update: This should work: `push @{ $hash{ $K[ int(++$i/@K)&1 ? @K-1-$i%@K : $i%@K ] } }, $_ for @ +V;` [download]	[reply] [d/l] [select]
Re^2: How to get this not the usual round robin looping by karlgoethebier (Abbot) on Oct 13, 2015 at 17:05 UTC
"My humble solution" I guess this a typical case of total underestimation. Update: What a cool solution! Best regards, Karl ŤThe Crux of the Biscuit is the Apostropheť	[reply]
Re^3: How to get this not the usual round robin looping by hdb (Monsignor) on Oct 13, 2015 at 19:18 UTC
You are exaggerating!	[reply]


We don't bite newbies here... much
	PerlMonks