Regression- Stasis-Progression

[NagyMusic]

I wonder if anyone has a suggestion on producing this list (with sublists) in Opusmodus, in which the first number decreases in value, the second number stays the same, and the third number increases in value? Thank you!

 

(

(7) (3)

(6) (3) (1)

(5) (3) (2)

(4) (3) (3)

(3) (3) (4)

(2) (3) (5)

(1) (3) (6)

    (3) (7)

)

 

[opmo]

make 3 lists and mix them

[o_e]

like this..?

(setf one (gen-integer 7 1))
(setf two (gen-repeat (length one) '(3)))
(setf three (reverse one))

(mapcar  #'(lambda (x y z)
           (list x y z)) one two three)

hth

[NagyMusic]

Thank you! Yes, that's what I was looking for.  I appreciated the opportunity to learn how to set up a more automated process to produce lists.

[AM]

or...

 

(loop 
  for x from 7 downto 1 
  for y from 1 to 7
  collect (list x 3 y))