Subversion Repositories wimsdev

!goto $wims_read_parm

:def

title=Greatest Common Divisor

synonyme=gcd

input=list

!exit

:proc

n=!itemcnt $formula

!if $n<=1

 result=$[$formula]

 !exit

!endif

u=!item 1 of $formula

v=!item 2 of $formula

u=!rawmath $u

v=!rawmath $v

src=gcd($u,$v)

!if $n>2

 !for i=3 to $n

  v=!item $i of $formula

  v=!rawmath $v

  src=gcd($src,$v)

 !next i

!endif

result=!exec pari $src

!exit

:output

!htmlmath gcd($formula) = $result

 .

!exit