zsh: Sattolo's Random Cyclic Permutation

Publicado por Sandro Marcell (última atualização em 14/04/2010)

[ Hits: 4.920 ]

Homepage: http://sanmarcell.wordpress.com

Download sattolo_zsh




Simples função que implementa uma variante do algoritmo Fisher-Yates shuffle. Esta implementação foi descrita pela pesquisadora italiana Sandra Sattolo.

  



Esconder código-fonte

#
# Sattolo's Random Cyclic Permutation
# -- Variante do algoritmo Fisher-Yates shuffle
# Sandro Marcell <sandro_marcell@yahoo.com.br>
# Boa Vista, Roraima - 21/03/2010
#
function sattoloCycle {
   zmodload zsh/mathfunc
   (( rand48(seed) ))

   typeset -a array swap
   integer n k

   array=(${*=})
   (( n = ${(w)#array} + 1 ))

   while ((n > 1))
   do
      ((--n))
      (( k = int((n - 1) * rand48()) + 1 ))
      swap+=$array[k]
      array[k]=$array[n]
      array[n]=$swap
   done

   return 0
}

Scripts recomendados

Limpando Cache Squid

Script de monitoramento

Montagem fácil de pendrive

Ispeed - Medidor de velocidade de download

slacklibre - Seu Slackware 100% Livre


  

Comentários
[1] Comentário enviado por /bin/laden em 26/04/2010 - 17:48h

Mutcho Loko...


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts