# Mikrotik bubble sort implementation
# v1.1
:local A 5,4,3,2,1;
:local B;
:local n [ :len $A ];
:local swapped;
:put "Before unsorted $A";
do {
    :set swapped false;
    :for i from=1 to=($n - 1) do={
        :if ([ :pick $A ($i - 1) ]  > [ :pick $A $i ]) do={
            :set B [ :pick $A ($i - 1) ];
            :set A ([ :pick $A 0 ($i - 1) ], [ :pick $A $i ], $B, [ :pick $A ($i + 1) [ :len $A ] ]);
            :set swapped true;
        }
    }
    :set n ($n - 1);
} while=($swapped);
:put "After sorted $A";

:local ipAddrListName "some_list";
:local arrIpAddrList;
:local arrCommentList;
:local tempIpValue;
:local tempComment;
:local swapped false;
:local arrIdAddrList [ :toarray [ /ip firewall address-list find where list=$ipAddrListName ] ];
:if ([ :len $arrIdAddrList ] > 0) do={
    :foreach i in $arrIdAddrList do={
      :set arrIpAddrList ($arrIpAddrList, [ :toip [ /ip firewall address-list get $i address ] ]);
      :set arrCommentList ($arrCommentList, [ /ip firewall address-list get $i comment ]);
    }
    :local n [ :len $arrIpAddrList ];
    do {
        :set swapped false;
        :for i from=1 to=($n - 1) do={
            :if ([ :pick $arrIpAddrList ($i - 1) ]  > [ :pick $arrIpAddrList $i ]) do={
                :set tempIpValue [ :pick $arrIpAddrList ($i - 1) ];
                :set tempComment [ :pick $arrCommentList ($i - 1) ];
                :set arrIpAddrList ([ :pick $arrIpAddrList 0 ($i - 1) ], [ :pick $arrIpAddrList $i ], $tempIpValue, [ :pick $arrIpAddrList ($i + 1) [ :len $arrIpAddrList ] ]);
                :set arrCommentList ([ :pick $arrCommentList 0 ($i - 1) ], [ :pick $arrCommentList $i ], $tempComment, [ :pick $arrCommentList ($i + 1) [ :len $arrIpAddrList ] ]);
                :set swapped true;
            }
        }
        :set n ($n - 1);
    } while=($swapped);
    :if ($swapped = true) do={
# Remove the old entries
        :foreach i in $arrIdAddrList do={
            /ip firewall address-list remove $i;
        }
# Save the sorted entries
        :for i from=0 to=([ :len $arrIpAddrList ] - 1) do={
            /ip firewall address-list add list=$ipAddrListName \
            address=[ :pick $arrIpAddrList $i] comment="$[ :pick $arrCommentList $i ]";
        }
    }
}

## Merge-sort a simple (non-associative) array:
##   NOTE: This only works if each array item can
##         be compared using the '<' operator.
/system script environment remove [ find where name="SortList" ];
:global SortList do={
  :global SortList;

  :local out [:toarray $1];
  :local l [:len $out];
  :if ($l>1) do={
    ## Split the list in two, recursively sort, then merge results

    ## Pick split point index:
    :local s ($l/2);

    ## Recursively sort each half-list:
    :local a [$SortList [:pick $out 0 $s]];
    :local b [$SortList [:pick $out $s $l]];

    ## Merge results:
    :set out [:toarray ""];
    :set l [:len $b];
    :local s 0;       ## Use $s as index into array $b
    :foreach i in=$a do={
      :local j [:pick $b $s];
      :while ($s<$l && $j<$i) do={
        :set out ($out,$j);
        :set s ($s+1);
        :set j [:pick $b $s];
      };
      :set out ($out,$i);
    };
    :while ($s<$l) do={
      :set out ($out,[:pick $b $s]);
      :set s ($s+1);
    };
  };
  :return $out;
};

[admin@MikroTik] > :put [$SortList (55,-1,29,44,381,1,1,16,0,-234,44)]
-234;-1;0;1;1;16;29;44;44;55;381