TOP 10
Z Wiki UnArt Slavičín
Verze 1
Tato verze přeřadí 10 uživatelů s největším počtem stažených dat z parentu wifi do parentu stahovaci.
:global x 0 :global myParent "wifi" :global badParent "stahovaci" :global userBytes 0/0 :global users 0,0 :global userDownload 0 :global maxDownload 0,0 :global top 10 :global hArray1 :global hArray2 :global a :global b :global c :global d :global hInt /queue simple :foreach i in=[find parent=$badParent] do={ set $i parent=$myParent; } :foreach i in=[find] do={ :if ([get $i parent]=$myParent) do={ :set userBytes [get $i bytes]; :local slashPosition [:find $userBytes /]; :set userDownload [:pick $userBytes ($slashPosition+1) [:len $userBytes]]; :set users ($users + $x) :set maxDownload ($maxDownload + $userDownload) :set hArray1 $maxDownload :set hArray2 $users :for i from 0 to=([:len $maxDownload]-2) do={ :for j from ($i+1) to=([:len $maxDownload]-1) do={ :set hArray1 0; :set hArray2 0; :set a [:pick $maxDownload $i ($i+1)]; :set b [:pick $maxDownload $j ($j+1)]; :set c [:pick $users $i ($i+1)]; :set d [:pick $users $j ($j+1)]; :if ($a<$b) do={ :set hInt $a; :set a $b; :set b $hInt; :set hInt $c; :set c $d; :set d $hInt; } :set hArray1 ([:pick $maxDownload 0 $i] + $a); :set hArray2 ([:pick $users 0 $i] + $c); :if (($i+1)<$j) do={ :set hArray1 ($hArray1 + [:pick $maxDownload ($i+1) $j]); :set hArray2 ($hArray2 + [:pick $users ($i+1) $j]); } :set hArray1 ($hArray1 + $b); :set hArray2 ($hArray2 + $d); :if (($j+1)<[:len $maxDownload]) do={ :set hArray1 ($hArray1 + [:pick $maxDownload ($j+1) ([:len $maxDownload])]) :set hArray2 ($hArray2 + [:pick $users ($j+1) ([:len $users])]) } :set maxDownload $hArray1 :set users $hArray2 } } :set maxDownload [:pick $maxDownload 0 $top] :set users [:pick $users 0 $top] } :set x ($x+1); } :for i from 0 to=([:len $users]-1) do={ set [:pick $users $i ($i+1)] parent=$badParent; }
Verze 2
Toto verze funguje takřka stejně jako verze 1, porovnává navíc i počet uploadovaných dat (nefunguje však správně).
:global x 0 :global myParent "wifi" :global badParent "stahovaci" :global userBytes 0/0 :global users 0,0 :global userDownload 0 :global userUpload 0 :global maxDownload 0,0 :global maxUpload 0,0 :global top 10 :global hArray1 :global hArray2 :global hArray3 :global a :global b :global c :global d :global e :global f :global hInt /queue simple :foreach i in=[find parent=$badParent] do={ set $i parent=$myParent; } :foreach i in=[find] do={ :if ([get $i parent]=$myParent) do={ :set userBytes [get $i bytes]; :local slashPosition [:find $userBytes /]; :set userDownload [:pick $userBytes ($slashPosition+1) [:len $userBytes]]; :set userUpload [:pick $userBytes 0 $slashPosition]; :set users ($users + $x) :set maxDownload ($maxDownload + $userDownload) :set maxUpload ($maxUpload + $userUpload) :set hArray1 $maxDownload :set hArray2 $maxUpload :set hArray3 $users :for i from 0 to=([:len $maxDownload]-2) do={ :for j from ($i+1) to=([:len $maxDownload]-1) do={ :set hArray1 0; :set hArray2 0; :set hArray3 0; :set a [:pick $maxDownload $i ($i+1)]; :set b [:pick $maxDownload $j ($j+1)]; :set c [:pick $maxUpload $i ($i+1)]; :set d [:pick $maxUpload $j ($j+1)]; :set e [:pick $users $i ($i+1)]; :set f [:pick $users $j ($j+1)]; :if ($a<$b or $c<$d) do={ :set hInt $a; :set a $b; :set b $hInt; :set hInt $c; :set c $d; :set d $hInt; :set hInt $e; :set e $f; :set f $hInt; } :set hArray1 ([:pick $maxDownload 0 $i] + $a); :set hArray2 ([:pick $maxUpload 0 $i] + $c); :set hArray3 ([:pick $users 0 $i] + $e); :if (($i+1)<$j) do={ :set hArray1 ($hArray1 + [:pick $maxDownload ($i+1) $j]); :set hArray2 ($hArray2 + [:pick $maxUpload ($i+1) $j]); :set hArray3 ($hArray3 + [:pick $users ($i+1) $j]); } :set hArray1 ($hArray1 + $b); :set hArray2 ($hArray2 + $d); :set hArray3 ($hArray3 + $f); :if (($j+1)<[:len $maxDownload]) do={ :set hArray1 ($hArray1 + [:pick $maxDownload ($j+1) ([:len $maxDownload])]) :set hArray2 ($hArray2 + [:pick $maxUpload ($j+1) ([:len $maxUpload])]) :set hArray3 ($hArray3 + [:pick $users ($j+1) ([:len $users])]) } :set maxDownload $hArray1 :set maxUpload $hArray2 :set users $hArray3 } } :set maxDownload [:pick $maxDownload 0 $top] :set maxUpload [:pick $maxUpload 0 $top] :set users [:pick $users 0 $top] } :set x ($x+1); } :for i from 0 to=([:len $users]-1) do={ set [:pick $users $i ($i+1)] parent=$badParent; }
Verze 3
Tato verze přeřadí 10 uživatelů s největším počtem stažených dat z parentu wifi do parentu stahovaci.
:global x 0 :global myParent "wifi" :global badParent "stahovaci" :global userBytes 0/0 :global users 0,0 :global userDownload 0 :global maxDownload 0,0 :global top 10 :global hArray1 :global hArray2 :global a :global b :global c :global d :global hInt :global all :global countAll /queue simple :foreach i in=[find parent=$badParent] do={ set $i parent=$myParent; } :foreach i in=[find] do={ :if ([get $i parent]=$myParent) do={ :set userBytes [get $i bytes]; :local slashPosition [:find $userBytes /]; :set userDownload [:pick $userBytes ($slashPosition+1) [:len $userBytes]]; :set users ($users + $x) :set maxDownload ($maxDownload + $userDownload) :set hArray1 $maxDownload :set hArray2 $users :for i from 0 to=([:len $maxDownload]-2) do={ :for j from ($i+1) to=([:len $maxDownload]-1) do={ :set hArray1 0; :set hArray2 0; :set a [:pick $maxDownload $i ($i+1)]; :set b [:pick $maxDownload $j ($j+1)]; :set c [:pick $users $i ($i+1)]; :set d [:pick $users $j ($j+1)]; :if ($a<$b) do={ :set hInt $a; :set a $b; :set b $hInt; :set hInt $c; :set c $d; :set d $hInt; } :set hArray1 ([:pick $maxDownload 0 $i] + $a); :set hArray2 ([:pick $users 0 $i] + $c); :if (($i+1)<$j) do={ :set hArray1 ($hArray1 + [:pick $maxDownload ($i+1) $j]); :set hArray2 ($hArray2 + [:pick $users ($i+1) $j]); } :set hArray1 ($hArray1 + $b); :set hArray2 ($hArray2 + $d); :if (($j+1)<[:len $maxDownload]) do={ :set hArray1 ($hArray1 + [:pick $maxDownload ($j+1) ([:len $maxDownload])]) :set hArray2 ($hArray2 + [:pick $users ($j+1) ([:len $users])]) } :set maxDownload $hArray1 :set users $hArray2 } } :set maxDownload [:pick $maxDownload 0 $top] :set users [:pick $users 0 $top] } :set x ($x+1); } :for i from 0 to=([:len $users]-1) do={ set [:pick $users $i ($i+1)] parent=$badParent; }