6 + 1 manières d’échanger les contenus de 2 variables

rem ============================================================================
rem         6 manières d’échanger les contenus de 2 variables
rem ============================================================================
dim a,b
a = 10 : b = 20
font_name 0,"DejaVu sans Mono" : font_size 0,10 : font_color 0,0,0,255
caption 0,"6 manières d’échanger les contenus de 2 variables"
print : print
print "   a = " + str$(a) + "  b = " + str$(b)  : ' <--- a = 10 b = 20
print : print "   Après échange entre a et b" : print

print "   1ère méthode   " ; : swap_1(10,20)  : ' <--- a = 20 b = 10
print "   2ème méthode   " ; : swap_2(10,20)  : ' <--- a = 20 b = 10
print "   3ème méthode   " ; : swap_3(10,20)  : ' <--- a = 20 b = 10
print "   4ème méthode   " ; : swap_4(10,20)  : ' <--- a = 20 b = 10
print "   5ème méthode   " ; : swap_5(10,20)  : ' <--- a = 20 b = 10
print "   6ème méthode   " ; : swap_6(10,20)  : ' <--- a = 20 b = 10

end
rem ============================================================================
SUB swap_1(a,b)
    dim_local temp
    temp = a
    a = b
    b = temp
    print "   a = " + str$(a) + "  b = " + str$(b)
END_SUB
rem ============================================================================
SUB swap_2(a,b)
    a = a+b
    b = a-b
    a = a-b
    print "   a = " + str$(a) + "  b = " + str$(b)
END_SUB
rem ============================================================================
SUB swap_3(a,b)
    b = a+b
    a = b-a
    b = b-a
    print "   a = " + str$(a) + "  b = " + str$(b)
END_SUB
rem ============================================================================
SUB swap_4(a,b)
    a = b-a
    b = b-a
    a = b+a
    print "   a = " + str$(a) + "  b = " + str$(b)
END_SUB
rem ============================================================================
SUB swap_5(a,b)
    b = a-b
    a = a-b
    b = a+b
    print "   a = " + str$(a) + "  b = " + str$(b)
END_SUB
rem ============================================================================
SUB swap_6(a,b)
    a = a*b
    b = a/b
    a = a/b
    print "   a = " + str$(a) + "  b = " + str$(b)
END_SUB
rem ============================================================================

rem ============================================================================
rem    Echanger deux variables a et b à l’aide de la fonction BIN_XOR()
rem ============================================================================
dim a,b
a = -5 : b = 17
print "a = " ; a
print "b = " ; b
' échanger a et b avec bin_xor
print "Après échange de a et b"
swap_bin_xor(a,b)

end
rem ============================================================================
SUB swap_bin_xor(a,b)
    a = bin_xor(a,b)  
    b = bin_xor(a,b)  
    a = bin_xor(a,b)
 
    print "a = " ; a
    print "b = " ; b
END_SUB
rem ============================================================================