comment on

Most Revered Monks,
Given a list of random number: @nlist = (3,24,8,17,23,14,17,9,16,24,25,11,22,14,14,8,19,16,15,8);
And list of candidate hash key: my @key_list = ('A'..'Z');

I wish to classify those number in @nlist into a hash. Where each hash will contain number that has same denominator.

Update: As per Aristotle's notion. This is not LCM (Least Common Multiple) or GCF (Greatest Common Factor), it is just simply denominator, based on first number found.

Finally is to get the following result:

my $VAR1 = {
          'A' => [3,24,9,24,15],
          'B' => [8,16,8,16,8],
          'C' => [17,17],
          'D' => [23],
          'E' => [14,14,14],
          'F' => [25],
          'G' => [11,22],
          'H' => [19]
        };
[download]

In principle this is how I got those result manually. From @nlist:

First we found 3 - $nlist[0]. Store 3 as a first element of first hash 'A'
Next we found 24 - $nlist[1]. Check that it is actually a multiple of 3 which already has a 'home' in 'A'
Next we found 8 - $nlist[2]. This is not a multiple of 3, thus we have to make a new 'home' for it. For that we create a new hash 'B'.
Next we found 17 - $nlist[3]. It is neither member of hash 'A' or 'B' thus we create hash 'C' for it.
Next we found 23 - $nlist[4]. It is neither member of 'A', 'B' or 'C' thus we create hash 'D' for it.
Finally, we found 8 - $nlist[$#nlist]. It is a member of 'B', and store it as it's last array element

I am currently stuck with my code below. I really am not sure how to go about it.
I humbly seek your enlightenment.

#!/usr/bin/perl -w

use strict;
use Data::Dumper;


# This is pre-generated random number list, 
# size could be much greater than this ( >20)
my @nlist = (3,24,8,17,23,14,17,9,16,24,25,11,22,14,14,8,19,16,15,8);

# This is a pre-generated key candidate. 
# It may not be used up all of them
# In practice I will create a large key list, 
# that should be greater than  potential hash to be created
my @key_list = ('A'..'Z');

my $hoa;

foreach  my $nlist ( @nlist  )
{
    my @tmpar = ($nlist[0]);
    my $klist;

    if ( check_member(\@tmpar,$nlist) == 1 )
    {
      push @tmpar, $nlist;
      $klist = shift @key_list;
      push @{$hoa->{$klist}},  @tmpar ;
    }

}               

print Dumper $hoa ;
# -- Subroutine ------
sub check_member
{
    # To check if a value can be a member of an array
    my    ($alist,$snum)    = @_;
    
    if ( $snum % $alist->[0] == 0 )
    {
        return 1;
    }
    
    return 0;
}
[download]

Regards,
Edward

In reply to Howto Dynamically Create a Hash? by monkfan

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		`&`
	<		`<`
	>		`>`
	[		`[`
	]		`]`

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.