The purpose of this task is to explore working with   complex numbers.



Task

Given   n,   find the   nth   roots of unity.




(define pi (* 4 (atan 1)))
 
(do ((n 2 (+ n 1)))
    ((> n 10))
    (display n)
    (do ((k 0 (+ k 1)))
        ((>= k n))
        (display " ")
        (display (make-polar 1 (* 2 pi (/ k n)))))
    (newline))