RosettaCodeData/Task/Exponentiation-operator/PicoLisp/exponentiation-operator.l

(de ** (X N)  # N th power of X
   (if (ge0 N)
      (let Y 1
         (loop
            (when (bit? 1 N)
               (setq Y (* Y X)) )
            (T (=0 (setq N (>> 1 N)))
               Y )
            (setq X (* X X)) ) )
      0 ) )
CDE 2013-04-10 16:57:12 -07:00			`(de ** (X N) # N th power of X`
Time for an 2014 update… 2014-01-17 05:32:22 +00:00			`(if (ge0 N)`
			`(let Y 1`
			`(loop`
			`(when (bit? 1 N)`
			`(setq Y (* Y X)) )`
			`(T (=0 (setq N (>> 1 N)))`
			`Y )`
			`(setq X (* X X)) ) )`
			`0 ) )`