Sponsored Content
Top Forums Programming Code review: recursion in circular array, reduce two functions to one? Post 303014964 by RudiC on Saturday 24th of March 2018 08:51:34 AM
Old 03-24-2018
Ohhh - got it . . . Try - recent bash (ksh) required -
Code:
animals=(Lion Tiger Panther Cougar Cheetah Leopard)
DLT=1
IDX=3
for i in {1..20}
  do    echo $IDX: ${animals[IDX]}
        (( IDX % (${#animals[@]}-1) )) || (( DLT *= -1 ))
        (( IDX += DLT))
  done
3: Cougar
4: Cheetah
5: Leopard
4: Cheetah
3: Cougar
2: Panther
1: Tiger
0: Lion
1: Tiger
2: Panther
3: Cougar
4: Cheetah
5: Leopard
4: Cheetah
3: Cougar
2: Panther
1: Tiger
0: Lion
1: Tiger
2: Panther


Last edited by RudiC; 03-24-2018 at 10:10 AM..
This User Gave Thanks to RudiC For This Post:
 

9 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Can some review my code would be appreicated?

I am getting an error "ftpNotes.sh: syntax error at line 8 : `<<' unmatched" #!/bin/ksh PATH=/usr/sbin/:/usr/bin:/usr/ucb:/etc:/usr/local/bin:. cd $HOME if ;then if ; then echo 'DSC file already ftp to epm server' else ftp -n epmdev00 <<SCRIPT... (1 Reply)
Discussion started by: sibghat
1 Replies

2. Shell Programming and Scripting

Can someone review my code tell me where I am going wrong?

Started writing my code. my read input is not even asking nor working? And I get a EOF script error. echo "1) aragorn.domain.net" echo "2) marvel.domain.net" echo "3) athena.domain.net" echo "4) gandalf.domain.net" echo "5) griffin.domain.net" echo "What server would you like... (4 Replies)
Discussion started by: chrchcol
4 Replies

3. Shell Programming and Scripting

Tricky array substitution in functions

Hello, Please tell me if there is a better way to get the number of elements from an array that is passed to a function. This is what works on Solaris 8 (ksh) but it looks odd: loop_array() { array_name=$2 b1='\${\#' b2='}' nr_elements=`eval echo... (6 Replies)
Discussion started by: majormark
6 Replies

4. Programming

[ C ] multidemensional array pass to functions

Please excuse my ineptitude for a bit as I've been spoiled for the past few months with only writing perl code instead of C. So ok, I've been thinking about some code to change the crc32 values that are held within central directory headers of zip files. Because I'm lazy I decided to just... (3 Replies)
Discussion started by: VRoemer
3 Replies

5. Shell Programming and Scripting

How to reduce code.....

Hi All, Could some one help me to reduce the code... if then ./plist -m "$queuename" |grep $2|awk '{print $3}' >unlock.log elif then ./plist -m "$queuename" |grep $2|awk '{print $4}' >unlock.log else ./plist -m "$queuename" |grep $2|awk '{print $5}' >unlock.log . . . . ... (1 Reply)
Discussion started by: harshakusam
1 Replies

6. Shell Programming and Scripting

Passing array to functions in ksh script

Let me know if there is a way to pass array to a funtion in ksh script. function isPresent { typeset member member=$1 dbList=$2 echo '$1:' $1 echo '$2' $dbList The array will be at the second position....something like this isPresent 12 <array> if then echo... (3 Replies)
Discussion started by: prasperl
3 Replies

7. Programming

c++ code to check whether a list is circular or not

hi all, i need c++ code to check whether a list is circular or not... please help (8 Replies)
Discussion started by: vidyaj
8 Replies

8. Shell Programming and Scripting

Need help on Assigning a Array variable from Background Functions

I have a question on how can I assign a output of a function to a variable which is executed in background. Here is my example $ cat sample_program.sh #!/bin/ksh exec_func () { sleep 1 v=`expr $1 + 100` print $v } export OUT_ARR date for i in 1 2 do OUT_ARR=`exec_func $i` &... (1 Reply)
Discussion started by: mohan_kumarcs
1 Replies

9. Shell Programming and Scripting

Reduce the number of lines by using Array

I have the following code to count the number of how many times the name occurred in one file. The code is working fine and the output is exactly what I want. The problem is the real code has more than 50 names in function listname which cause function name to have more than 50 case ,and function... (14 Replies)
Discussion started by: samsan
14 Replies
GO::Metadata::Panther(3pm)				User Contributed Perl Documentation				GO::Metadata::Panther(3pm)

NAME
GO::Metadata::Panther - Species info for data used by Panther Clusters SYNOPSIS
use GO::Metadata::Panther qw/@species/; for my $species (@species) { # do something } Or use GO::Metadata::Panther; my $s = GO::Metadata::Panther->code('YEAST'); DESCRIPTION
Accesses information related to species in the Panther seq2pthr.gz file. This file can be fetched from: <ftp://ftp.pantherdb.org/genome/pthr7.0/> Each item in the exportable @species array contains a hash reference for each species. The items in that hash are: code A scalar or the UniProt species code. ncbi_taxa_id A scalar reference of NCBI taxa ids that items in the GO database match. This should only be one id, but sometimes it's useful to scan multiple. For a complete list of every UniProt species matched to a NCBI taxa <http://www.uniprot.org/docs/speclist> Constructors The constructors scans @species for the requested data and returns the object that matches the data. Otherwise it returns a false false. my $s = GO::Metadata::Panther->code(unicode_species_code) Return an object filled with the species reference from the UniProtKB species code. my $s = GO::Metadata::Panther->ncbi(ncbi_taxa_id) Greate an object from the ncbi_taxa_id. Function Functions that can be used outside of the OO interface. GO::Metadata::Panther::codes() Returns a list of all UniProt species codes in @species. GO::Metadata::Panther::valid_codes(unicode_species_code) Send it a list of panther Unicode codes, returns true if they are all present in @species. Othewise returns false. OO Function $s->ncbi_ids() Returns the list of NCBI taxa identifiers associated with the UniProt species code. In a perfect word this will only every return one value. In any case, the first value will be the actual numeric identifier associated. AUTHOR Sven Heinicke <sven@genomics.princeton.edu</gt> perl v5.14.2 2010-07-08 GO::Metadata::Panther(3pm)
All times are GMT -4. The time now is 10:19 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy