xiaobizhang
« on: July 25, 2015, 02:01:21 PM »
;;;known
(setq l1'
('
(3 10) '
(2 15) '
(1 22)) l2 '('('(3) '(1))
'('(2 2))
'('(2) '(1 1))
'('(1 1 1 1))
'('(1 1 1)))
)
;;;Result
(setq l3 '
('
('
(3) '
(1)) 10) ;According L2 ['('(3) '(1))]=> '((3 10) (1 20)) [Because (gcd 10 20)=10] => '( '((3) (1)) 10) and Surplus '(1 12) '('('(2 2)) 7) ;According L2 ['('(2 2))]=> '('(2 15)) => '( '('(2 2)) 7) and Surplus '(2 1)
'('('(2) '(1 1)) 1) ;According L2 ['('(2) '(1 1))]=> Surplus '(2 1) + Surplus '(1 12) [Because (gcd 1 12)=1] => '('('(2) '(1 1)) 1) and Surplus '(1 10)
'('('(1 1 1 1)) 2) ;According L2 ['('(1 1 1 1))]=> '(1 10) => '('('(1 1 1 1)) 2) and Surplus '(1 2)
'('(1 1) 2) ;According L2 ['('(1 1 1))]=> '(1 2) => '('(1 1) 2)
)
Sorry! I am anxious to go out, I made a mistake.
« Last Edit: July 26, 2015, 02:09:09 AM by xiaobizhang »
Logged