OpenEuphoria

1. Need help combining 2 sequences

• Posted by Lnettnay Aug 28, 2012
• 1343 views

I have 2 sequences such as this:

voters = {{82,68,82,68,82},{82,68,68,68,82},{82,68,68,68,68}} 
colors = {{23,71,23,71,23},{23,71,71,71,23},{23,71,71,71,71}} 

and I would like to combine them into 1 sequence like this

image = {{82,23,68,71,82,23,68,71,82,23},{82,23,68,71,68,71,68,71,82,23},{82,23,68,71,68,71,68,71,68,71}} 

so that I can use

display_text_image({1,1}, image) 

to display the image quickly.

I would like to do this without having to resort to a nested for loop but I can't find any sequence routine that will do what I want. I might not be understanding the supplied sequence routines.

TIA,
Lonny

3. Re: Need help combining 2 sequences

• Posted by EUWX Aug 28, 2012
• 1242 views

voters = {{82,68,82,68,82},{82,68,68,68,82},{82,68,68,68,68}} 
colors = {{23,71,23,71,23},{23,71,71,71,23},{23,71,71,71,71}} 

image = {{82,23,68,71,82,23,68,71,82,23},{82,23,68,71,68,71,68,71,82,23},{82,23,68,71,68,71,68,71,68,71}} 

display_text_image({1,1}, image) 

-- If your two sequences are raw data in the program,  
-- it would be most appropriate to have them as 
voters = {{82,0,68, 0,82, 0,68, 0,82,0},{82, 0,68, 0,68, 0,68, 0,82, 0},{82, 0,68, 0,68, 0,68, 0,68, 0}}  
 
colors = {{0,23, 0,71, 0,23, 0,71, 0,23,},{ 0,23, 0,71, 0,71, 0,71, 0,23},{0,23, 0,71, 0,71, 0,71, 0,71}}               
        
-- Even if the sequences are program generated, you could interpose  
-- the zeros in the program that generates the sequences. 
-- Then an addition of the sequences would give you your required sequence. 
 

5. Re: Need help combining 2 sequences

• Posted by Lnettnay Aug 29, 2012
• 1253 views

-- If your two sequences are raw data in the program,  
-- it would be most appropriate to have them as 
voters = {{82,0, 68,0, 82,0, 68,0, 82,0},{82,0, 68,0, 68,0, 68,0, 82,0},{82,0, 68,0, 68,0, 68,0, 68,0}}  
 
colors = {{0,23, 0,71, 0,23, 0,71, 0,23},{ 0,23, 0,71, 0,71, 0,71, 0,23},{0,23, 0,71, 0,71, 0,71, 0,71}}               
        
-- Even if the sequences are program generated, you could interpose  
-- the zeros in the program that generates the sequences. 
-- Then an addition of the sequences would give you your required sequence. 
 

Hi EUWX,

I'm using the sequence operations like so:

voters = repeat(repeat(2,dimensions[2]), dimensions[1]) 
-- 2d array of 2s 
voters = rand(voters) - 1                                                    
-- 2d array of 0s and 1s 
colors = voters 
voters = 'D' + voters * ('R' - 'D')                                          
-- 0s become 'D's and 1s become 'R's 
colors = 23 + colors * (48)                                                 
-- 0s become 23s and 1s become 71s 
 
-- to generate a 2d sequence of 'D's and 'R's 
-- the way I'm doing it doesn't allow me to put in extra 0s 

Thanks for your suggestion. As I told Greg in a previous post since I only generate the sequence once I guess I'll just go with the nested for loops.
Lonny

7. Re: Need help combining 2 sequences

• Posted by Lnettnay Aug 29, 2012
• 1186 views

Thanks EUWX,

That looks like it should work. I'm at work now. I'll test out when I get home.

Lonny

9. Re: Need help combining 2 sequences

• Posted by DerekParnell (admin) Aug 30, 2012
• 1125 views

include std/math.e 
-- This functions interleaves elements from two sequences to form a new sequence. 
-- For example, 
--    interleave("abcdef", "123456") --> "a1b2c3d4e5f6" 
public function interleave(sequence A, sequence B) 
	sequence res 
	integer j 
 
	-- Set resulting sequence length. Will always be combined length of both arguments.	 
	res = repeat(0, length(A) + length(B)) 
	-- Initialize target index in result sequence. 
	j = 0 
	 
	-- First, we interleave elements from both arguments, up to the 
	-- last element in the shortest argument. 
	for i = 1 to math:min({length(A), length(B)}) do 
		j += 1 
		res[j] = A[i] 
		j += 1 
		res[j] = B[i] 
	end for 
	 
	-- Next, we simply copy the remaining elements from the longest argument. 
	j += 1 
	if length(A) < length(B) then 
		res[j .. $] = B[length(A) + 1 .. $] 
		 
	elsif length(A) > length(B) then 
		res[j .. $] = A[length(B) + 1 .. $] 
		 
	end if 
	 
	-- And we're done.				 
	return res 
end function 
 
sequence image 
sequence voters 
sequence colors 
 
voters = {{82,68,82,68,82},{82,68,68,68,82},{82,68,68,68,68}}  
colors = {{23,71,23,71,23},{23,71,71,71,23},{23,71,71,71,71}}  
image = {} 
 
for i = 1 to length(voters) do 
	image = append(image, interleave(voters[i], colors[i])) 
end for 
 
? image 

11. OT: Re: Need help combining 2 sequences

• Posted by jimcbrown (admin) Aug 30, 2012
• 1083 views

It's hard to pinpoint a specific person or organization, AFAICT, but...

http://en.wikipedia.org/wiki/Red_states_and_blue_states

It does make a lot of sense to paint the democrats red (the traditional liberal colour) and republicans blue (the tradiational conservative colour), but this is only slightly more likely to happen than getting the US to adopt metric over imperial.

That's not a motto, that's taxation!

Seriously, I can't find an official motto or slogan of the democratic party. The closest thing I can find to that are the various campaign slogans used in the presidential elections.

Slightly offhand, see how well a goverment without taxation worked for the US under the Articles of Confederation.

If only I could invoke Godwin's law here. So close...