Select Code to Download

[0] Perl> sub steps { my($i,$m,$o) = (0,@_); print( "$i: $m $o" ), ++$
+i,( $m >= $o ? ($m -= $o) : ($o -= $m )) while $m and $o; };;

...
7: 3 1
8: 2 1
9: 1 1

[0] Perl> sub steps { my($i,$m,$o) = (0,@_); ++$i,( $m >= $o ? ($m -= 
+$o) : ($o -= $m )) while $m and $o; print $i; };;
Subroutine steps redefined at (eval 17) line 1, <STDIN> line 9.

[0] Perl> steps( 2**29, 2**28-1 );;
134217731

p$ = 80
size$ = 88
...
    pop    rdi
    ret    0
_xchgBuffersR ENDP

C:\test\C>bufswap 536870912 268435455 2  ### 2^29 2^28-1
size:536870912 offset;268435455
...
[         0          1 ...  268435453    268435454 ^  268435455    268
+435456   ...  536870910  536870911 ]
[ 268435455  268435456 ...  536870910    536870911 ^          0       
+     1   ...  268435453  268435454 ]
reversive: swaps:536870911 took 4.901475821 secs.