LOGO-L> fastpower

[neuwirth <neuwirth@smc.univie.ac.at>]

to see how many multiplications are needed
for the fast power calculation method do the following


to n.of.calls.fast.power :exp 
if :exp = 1 [output 0]
if evenp :exp [output 1 + n.of.calls.fast.power (:exp / 2)] 
output 1 + n.of.calls.fast.power (:exp - 1)
end


then use the command line


foreach map [[x] list :x n.of.calls.fast.power :x] iseq 2 20 [print ?]


--
Erich Neuwirth <neuwirth@smc.univie.ac.at>
Computer Supported Didactics Working Group, Univ. Vienna
Visit our SunSITE at http://sunsite.univie.ac.at



---------------------------------------------------------------
Please post messages to the Logo forum to logo-l@gsn.org.  Mail
questions about the list administration to logofdn@gsn.org.  To
unsubscribe send    unsubscribe logo-l    to majordomo@gsn.org.