Subversion Repositories wimsdev

Rev

Rev 12533 | Blame | Compare with Previous | Last modification | View Log | RSS feed

option:symbols=" "
dd=!declosing $(reply$i)
!if ; isin $dd
  test=NaN
  !exit
!endif
dd=!rawmath $dd
!if , notin $dd
  dd=!words2items $dd
!endif
dd=!listuniq $dd
reply$i={$dd}

m_reply$i=$dd
!if $wims_read_parm=nocompare
  !exit
!endif

good=!declosing $(replygood$i)
!if , notin $good
  good=!words2items $good
!endif
good=!rawmath $good
good=!listuniq $good
replyGood$i={$good}
n1=!itemcnt $good
n2=!itemcnt $dd

!if $n1!=$n2
  badsize$i=true
  diareply$i=bad
  !exit
!endif

tt=0
:rett
!if JZ$tt isvarof $good and $tt<99
  !advance tt
  !goto rett
!endif

!reset G_,R_
!for i_=1 to $n1
  g_=!item $i_ of $good
  r_=!item $i_ of $dd
  G_=!append item (JZ$tt-($g_)) to $G_
  R_=!append item (JZ$tt-($r_)) to $R_
!next i_

good=!translate internal , to * in $G_
dd=!translate internal , to * in $R_

RG_=$(replyGood$i)
RE_=$(reply$i)
MR_=$(m_reply$i)
!read anstype/formal sub
replyGood$i=$RG_
reply$i=$RE_
m_reply$i=$MR_