search tag # rextended remove duplicates on array
wow, how many?
{
:local arrA {0;1;1;2;3;5;8;13;21;34;55;89;144;0;1;1;2;3;5;8;13;21;34;55;89;144}
:local arrB [:toarray ""]
:put $arrA
:foreach itemA in=$arrA do={
:local chk true
:foreach itemB in=$arrB do={:if ($itemA = $itemB) do={:set chk false}}
:if ($chk) do={:set arrB ($arrB,$itemA)}
}
:set arrA $arrB
:put $arrA
}
:global remduponarray do={
:local retarr [:toarray ""]
:foreach srcitem in=$1 do={
:local copy true
:foreach dstitem in=$retarr do={:if ($srcitem = $dstitem) do={:set copy false}}
:if ($copy) do={:set retarr ($retarr,$srcitem)}
}
:return $retarr
}
example:
{
:local arraywithdup {0;1;1;2;3;5;8;13;21;34;55;89;144;0;1;1;2;3;5;8;13;21;34;55;89;144}
:put [$remduponarray $arraywithdup]
}