Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
PerlMonks  

Re: find index of specific array value that occurs multiple times

by Util (Priest)
on Mar 29, 2012 at 13:46 UTC ( #962403=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    use strict;
    use warnings;
    ...
    #my @offset_n = map { $_ + 1 } @index_n;
    #print "    Conserved: ", join(',', @offset_c), "\n";
    #print "Not conserved: ", join(',', @offset_n), "\n";
    
  2. or download this
    $VAR1 = "        :***  *   .** *::***** **:::::**: ::*:*** :*****:*.**
    +*******: .:* *   **:.*.. *****.***:***:: ..*: **.* ****:*************
    +";
        Conserved: 9,10,11,14,19,20,22,25,26,27,28,29,31,32,38,39,44,46,47
    +,48,51,52,53,54,55,57,59,60,61,62,63,64,65,66,67,72,74,78,79,82,86,87
    +,88,89,90,92,93,94,96,97,98,104,107,108,110,112,113,114,115,117,118,1
    +19,120,121,122,123,124,125,126,127,128,129
    Not conserved: 0,1,2,3,4,5,6,7,8,12,13,15,16,17,18,21,23,24,30,33,34,3
    +5,36,37,40,41,42,43,45,49,50,56,58,68,69,70,71,73,75,76,77,80,81,83,8
    +4,85,91,95,99,100,101,102,103,105,106,109,111,116,130
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://962403]
help
Chatterbox?
[shmem]: Corion: alas, air too.
[Corion]: shmem: Yes, very sad!
[choroba]: doesn't sound much useful, which means I'll probably remember it
[karlgoethebier]: "that blue pain" == Salzglasur as far as i remember
[karlgoethebier]: Paint!
[shmem]: karlgoethebier the blue pain comes after all bembels are empty
[karlgoethebier]: Confusing "Bembel" with "Membel" might result in a slap in the face in Hesse...
[karlgoethebier]: shmem: Yes. Greetings from Dr. Freud
[Discipulus]: blue pain is a synōnymía

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (10)
As of 2017-05-24 08:57 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?