Originally Posted By: Allen
I've never seen/noticed this before (added to my list of cheats) ... nice!

$F=$F^1 ; flip odd/even flag


If it had to be exactly 0 and 1 it'd be perfect. But we need to do (1+$f) before! in this loop..

So, as we can save one stroke (as shown a couple posts before) by doing:

$F=~$F (toggling between -1 and 0 and afterwards! doing (2+$f))

my version should enter your cheat book too ;\)

Edit: Aw, what the hell, here's my other version with 146:

 Code:
function a($)
    dim $b, $c, $d, $e
    $e = $^0
    while $
        $b = ~$b
        $d = (2+$b) * right($,1)
        $c = $c + $d-9*($d>9)
        $a = ($c mod 10 =) * (($e=15&$=3)|$e=16&$>3&$<7) * $
        $ = left($,~)
endfunction


See what I mean?

Edited by Jochen (2010-08-09 08:53 PM)
Edit Reason: pfffrz
_________________________