Mathematica-sprawdzenie kodu

Dla specjalistów Programowanie
#1

Siemka mam ogromna prosbe czy moglby ktos sprawdzic kod . Program ma zamieniac liczby zmiennoprzecinkowe na dwojkowe. Raz zrobi to ale jak chce wrzucic to w petle to juz nie kuma o co chodzi . Robilam na wszelkie sposoby i nie widze bledu

zamiana := Function[n, lista = {};

    m = n*2;


    For[i = 1, m >= 1, i++, 

      If[IntegerQ[m] == False && m > 1, AppendTo[lista, 1]; m = m - 1, 

        AppendTo[lista, 0]]]; Print[lista]; Print[m]]

Dzieki za pomoc