串列中資料的轉置

f5612140

例如:已知串列(串列中的个数不定) (("XX" "A" "B" "C" "D" "E" "F")
("1F" "15.51" "6.87" "0" "130.59" "7.2" "15.18")
("2F" "0" "0" "11.9" "146.61" "7.25" "18.98")
("3F" "0" "0" "62.84" "98.11" "6.01" "11.02")
("4F" "0" "0" "56.89" "55.29" "5.37" "0" )
("14F" "0" "0" "56.89" "55.29" "5.37" "0")
) 希望得转置结果 (("XX" "1F" "2F" "3F" "4F" "14F")
("A" "15.51" "0" "0" "0" "0")
("B" "6.87" "0" "0" "0" "0")
("C" "0" "11.9" "62.84" "56.89" "56.89")
("D" "130.59" "146.62" "98.11" "55.29" "55.29")
("E" "7.2" "7.25" "6.01" "5.37" "5.37")
("F" "15.18" "18.98" "11.02" "0" "0")
)

小妹丁

顺便问一下，能不能得到以下要求： 已知 (1 2 )
(6 7 )
(a b )
(f g ) 也想得到这样的结果：
(1 6 a f)
(1 6 b f)
(1 6 a g)
(1 6 b f) (1 7 a f)
(1 7 b f)
(1 7 a g)
(1 7 b f) (2 6 a f)
(2 6 b f)
(2 6 a g)
(2 6 b f) (2 7 a f)
(2 7 b f)
(2 7 a g)
(2 7 b f)

ZZXXQQ

看下面： (DEFUN INV-MATRIX (FIRST / SL1 SL2 I J SECOND TEMPL)
(SETQ SL1 (LENGTH FIRST) I 0 J 0 SECOND (LIST))
(SETQ SL2 (LENGTH (CAR FIRST)) TEMPL (LIST))
(REPEAT SL2
(REPEAT SL1
(SETQ TEMPL (CONS (NTH I (NTH J FIRST)) TEMPL) J (1+ J))
)
(SETQ SECOND (CONS (REVERSE TEMPL) SECOND) TEMPL (LIST) I (1+ I) J 0)
)
(REVERSE SECOND)
) (DEFUN C:INV ()
(INV-MATRIX (LIST '("XX" "A" "B" "C" "D" "E" "F")
'("1F" "15.51" "6.87" "0" "130.59" "7.2" "15.18")
'("2F" "0" "0" "11.9" "146.61" "7.25" "18.98")
'("3F" "0" "0" "62.84" "98.11" "6.01" "11.02")
'("4F" "0" "0" "56.89" "55.29" "5.37" "0" )
'("14F" "0" "0" "56.89" "55.29" "5.37" "0")
)
)
)

f5612140

献花一朵,谢谢帮了大忙