I don't understand what is happening, here...
I am playing around with Problem 35 on Project Euler and just stumbled on this:
(de split-number (N)
(mapcar format (chop (format N))) )
(de all-rotations (N)
(let SN (split-number N)
(make
(for L (range 1 (length SN))
(link (rot SN))
(println SN) ) ) ) )
: (all-rotations 123)
(3 1 2)
(2 3 1)
(1 2 3)
-> ((1 2 3) (1 2 3) (1 2 3))
I can't understand why I do not get the same result as the println.
Did I (yet again) miss-balance the parenthesis? If so, I can't see where...
Thanks.
--
Laurent ARTAUD
--
UNSUBSCRIBE: mailto:[email protected]?subject=Unsubscribe
