Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Re: Continuing from "Turning foreach into map?" - perlreftut and References

by Random_Walk (Prior)
on Apr 06, 2005 at 12:26 UTC ( #445277=note: print w/replies, xml ) Need Help??


in reply to Continuing from "Turning foreach into map?" - perlreftut and References

I am guessing you want to get something like this.

User enters a list of food items Program looks up group for food items Program looks up rules to see if those groups can be combined or not. Program reports to user

The best aproach for this would be to make a hash with the food item as the key and its group number as the value stored under this key. No playing with refs there :(

Perhaps you want the user to enter a food item and the program will suggest possibly combinations to go with this, in this case the best approach is probably functional programing ! I think Haskell is the popular one round here. But that is not why we're here is it, to do it in perl you may well want to build an array or hash of arrays. As your food groups are numeric in your rules I'd be inclined to use array of arrays.

@food=( ['eggs', 'fish'], ['cheese', 'lard'], ['breed', 'rice'], ['beer', 'wine'], ); print $food[3][0]; # prints beer

If you want to do the hash of arrays you can build it up like this

%food=( 'carbs' => ['breed', 'rice'], 'tasty' => ['chocolate', 'pistacio'], ); print $food{tasty}[1]; # prints pistacio

Cheers,
R.

Pereant, qui ante nos nostra dixerunt!

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://445277]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (3)
As of 2021-10-22 01:36 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My first memorable Perl project was:







    Results (85 votes). Check out past polls.

    Notices?