1298def sqScoreGradient = (lambda unrestricted tail : (family SM86Program) .
1299 (saFor 32 (lambda unrestricted i : Nat .
1300 (let unrestricted nt = (naturalDivideUnchecked i 4) in (let unrestricted h = (naturalDivideUnchecked (naturalModuloUnchecked i 4) 2) in
1301 (let unrestricted b = (naturalModuloUnchecked i 2) in
1302 (let unrestricted e = (saElem (saS nt) h b) in
1303 (lambda unrestricted rest : (family SM86Program) .
1304 (saFfma e e saScale (sqNegL h)
1305 (saEx2 e e saWaitNone rest))))))))
1306 (saFor 32 (lambda unrestricted i : Nat .
1307 (let unrestricted nt = (naturalDivideUnchecked i 4) in (let unrestricted h = (naturalDivideUnchecked (naturalModuloUnchecked i 4) 2) in
1308 (let unrestricted b = (naturalModuloUnchecked i 2) in
1309 (let unrestricted e = (saElem (saS nt) h b) in (let unrestricted g = (saElem (sqDP nt) h b) in
1310 (lambda unrestricted rest : (family SM86Program) .
1311 (saFadd g g (sqNegD h) saWaitNone
1312 (saFmul e e g (naturalSelect (naturalIsZero i) saWait4 saWaitNone) rest)))))))))
1313 tail)))The compiler supplied declaration spans and resolved links from this source snapshot. This page does not assert that this file belongs to a checked closure.