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:picolisp@software-lab.de?subject=Unsubscribe

Reply via email to