OpenEuphoria

Re: Recursion

• Posted by Bryan So <sohim at ?aho?.com> Jul 21, 2007
• 511 views

This is a shorter recursion

constant stuff={"oranges","apples","bananas"}
 procedure hello(object stuff)
   if length(stuff) > 0 then
       puts(1,stuff[1]&"\n")
       hello(stuff[2..$])
   end if
 end procedure
 
 hello(stuff)