O O
O O
(4)(4)
O O
O O
(3)(3)
O O
O O
(5)(5)
O O
O O
O O
O O
O O
(6)(6)
O O
O O
(1)(1)
(2)(2)
O O
O O
O O
#============================================
# Mar 21. Examples of recursive and iterative programs
#============================================
# number of digits in an integer (recursive)
recnumdig dproc nTposint
if n ! 10 then return 1;
else return 1 C recnumdig trunc n
10 ;
end if;
end proc;
recnumdig := proc n::posint
if n!10 then return 1else return 1Crecnumdig trunc 1 / 10 * nend if
end proc
recnumdig 10000 ; 5
#=========================================
# printing a (palindromic sequence
#=========================================
rec1 dproc nTinteger
if n= 1 then printf " %d ", n;
else printf " %d ", n;
rec1 n K1 ;
printf " %d ", n;
end if;
end proc;
rec1 := proc n::integer
if n=1 then printf " %d ", nelse printf " %d ", n;rec1 n K 1 ; printf " %d ", n
end if
end proc
rec1 10 ;
10 9 8 7 6 5 4 3 2 1 2 3 4 5 6 7 8 9 10
#=============recursive max ==========================
mymax da,b/piecewise aOb , a, a %b, b ;
mymax := a,b/piecewise b !a,a,a%b,b
Ld1, 34, 45, 12, 34, 6, 234, 6, 78, 234, 2 ;
L:= 1, 34, 45, 12, 34, 6, 234, 6, 78, 234, 2
recmax dproc kTinteger #return the max of L[1..k]
if k=1 then return L1;
else return mymax L k ,recmax kK1 ;
end if;
end proc;
recmax := proc k::integer
