Subversion Repositories wimsdev

# Variable calculations should be done in this file.
# It is read and interpreted by wims for all valid calls to the module.

F=F
Z=Z
r=<i>r</i>

!if $cmd=reply and $status=waiting
 reply_cnt=$[$reply_cnt+1]
!endif
try_cnt=$[$reply_cnt+1]

# Computation of the locations of pieces

!if $q=4 or $q=8 or $q=9

 field=notprime
 !read data/qpuzzle/table.F$q
 !for x = 0 to $q-1
  !if $x<=1
   el$x=$x
  !else
   el$x=$r<sup>$[$x-1]</sup>
  !endif
  !for y = 0 to $q-1
   s=!item $a11+1 of $(mul$x)
   t=!item $a12+1 of $(mul$y)
   x1=!item $s+1 of $(add$t)
   x1=!item $x1+1 of $(add$xt)

   s=!item $a21+1 of $(mul$x)
   t=!item $a22+1 of $(mul$y)
   y1=!item $s+1 of $(add$t)
   y1=!item $y1+1 of $(add$yt)

   s=!item $r11+1 of $(mul$x1)
   t=!item $r12+1 of $(mul$y1)
   xx=!item $s+1 of $(add$t)
   xx=!item $xx+1 of $(add$xr)

   s=!item $r21+1 of $(mul$x1)
   t=!item $r22+1 of $(mul$y1)
   yy=!item $s+1 of $(add$t)
   yy=!item $yy+1 of $(add$yr)

   n$(xx)_$yy=$x.$y
  !next y
 !next x

 s=!item $r11+1 of $(mul$r22)
 t=!item $r21+1 of $(mul$r12)
 !for i = 1 to $q
  j=!item $i of $(add$t)
  !if $j = $s
    det=!eval $i-1
    break
  !endif
 !next i

!else q=p

 field=prime
 !for x = 0 to $q-1
 el$x=$x
  !for y = 0 to $q-1
   x1=($a11*$x+$a12*$y+$xt)%$q
   y1=($a21*$x+$a22*$y+$yt)%$q
   xx=!eval ($r11*$x1+$r12*$y1+$xr)%$q
   yy=!eval ($r21*$x1+$r22*$y1+$yr)%$q
   n$(xx)_$yy=$x.$y
  !next y
 !next x
 det=!eval ($r11*$r22-$r21*$r12)%$q

!endif q or p

!if $det = 0
 !for x = 0 to $q-1
  !for y = 0 to $q-1
   !if $(n$(x)_$y) = $empty
    n$(x)_$y = bad
   !endif
  !next y
 !next x
!endif

!if $n0_0=0.0 and $n1_0=1.0 and $n0_1=0.1 and $status=waiting and $reply_cnt>0
 found=yes
 wims_module_log=success after $reply_cnt tries from $httpd_REMOTE_HOST
 wims_print_precision=4
 module_score=$[10*($q-1)/$reply_cnt]
 !if $module_score>10
  module_score=10
 !endif
 status=found
!endif

!if $cmd=help
  hdcolor=style="background-color:#D0D060"
  opcolor=style="background-color:#A0A0A0"
!endif