Subversion Repositories wimsdev

Rev

Rev 6079 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6079 Rev 7477
Line 344... Line 344...
344 
# check if the answer can be simplified further on variable level?
 344 
# check if the answer can be simplified further on variable level?
345 
a1=!line 3 of $tot
 345 
a1=!line 3 of $tot
346 
a2=!line 4 of $tot
 346 
a2=!line 4 of $tot
347 
!if $tt=1
 347 
!if $tt=1
348 
    # answer is technically correct
 348 
    # answer is technically correct
349 
    simpler=0
 349 
    simpler1=0
350 
    !for p in $varlist
 350 
    !for p in $varlist
351 
	c1=!positionof char $p in $AAA
 351 
	c1=!positionof char $p in $AAA
352 
        c3=!positionof char $p in $a2
 352 
        c3=!positionof char $p in $a2
353 
        c1=!itemcnt $c1
 353 
        c1=!itemcnt $c1
354 
        c3=!itemcnt $c3
 354 
        c3=!itemcnt $c3
355 
	!if $c3<$c1
 355 
	!if $[$c3-$c1]<0
356 
	    !increase simpler
 356 
	    !increase simpler1
357 
	!endif
 357 
	!endif
358 
    !next p
 358 
    !next p
359 
    !if $simpler>0
 359 
    simpler2=0
- 
 
 360 
    !for p in $varlist
- 
 
 361 
	c1=!positionof char $p in $AAA
- 
 
 362 
        c3=!positionof char $p in $a1
- 
 
 363 
        c1=!itemcnt $c1
- 
 
 364 
        c3=!itemcnt $c3
- 
 
 365 
	!if $[$c3-$c1]<0
- 
 
 366 
	    !increase simpler2
- 
 
 367 
	!endif
- 
 
 368 
    !next p
- 
 
 369 
    !if $simpler1>0 and $simpler2>0
360 
	# can the answer be further simplified on variable level?
 370 
	# can the answer be further simplified on variable level?
361 
	ex=!record 74 of $remarkdir/commonremarks.$taal
 371 
	ex=!record 74 of $remarkdir/commonremarks.$taal
362 
	testvar=<em>$AAA</em>
 372 
	testvar=<em>$AAA</em>
363 
	!if $teaching=1
 373 
	!if $teaching=1
364 
	    goback=1
 374 
	    goback=1