1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
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_
|
