8 lines
227 B
Text
8 lines
227 B
Text
(de coins (Sum Coins)
|
|
(let (Buf (mapcar '((N) (cons 1 (need (dec N) 0))) Coins) Prev)
|
|
(do Sum
|
|
(zero Prev)
|
|
(for L Buf
|
|
(inc (rot L) Prev)
|
|
(setq Prev (car L)) ) )
|
|
Prev ) )
|