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_