OpenEuphoria

Re: Please Help ME figure it out

• Posted by Chris Bensler <bensler at MAILOPS.COM> May 06, 2000
• 534 views

Hi Dave,

> I can not figure out how to Take a sequence and print the sequence
starting
> somewhere in the middle going to the end and then jumping to the begining
> and stopping where it started. I don't know how to explain it.
>
> E.G.
>
> sequence scale
> scale = {"C"}, {"D"},{"E"},{"F"}
>
> --some print routine
>
> I need to start at say "D" (depending on the user's pick)and print this:
>
> D E F C

Try something like this... (untested code)

<CODE>

sequence scale
atom scale_length
scale = "CDEF"
scale_length = length(scale)

procedure print_scale(atom scale_pos)
   sequence tmp
   tmp = scale[scale_pos..scale_length] & scale[1..scale_pos-1]
   puts(1, tmp)
end procedure

print_scale(2)

<CODE>

Chris