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



Task

Given   n,   find the   nth   roots of unity.




(defun roots-of-unity (n)
 (loop for i below n
       collect (cis (* pi (/ (* 2 i) n)))))