zsh: array shuffle function
Publicado por Sandro Marcell 13/06/2009 (última atualização em 31/03/2010)
[ Hits: 7.485 ]
Homepage: http://sanmarcell.wordpress.com
Download zsh_knuth_shuffle (versão 2)
Já havia postado aqui no VOL um script com o mesmo propósito, mas resolvi reescrevê-lo e
implementá-lo por meio de uma função.
Na prática esta função (que só roda no zsh!) recebe como parâmetro um vetor qualquer e
embaralha aleatoriamente seus elementos. Ela pode ser considerada uma "quase equivalente" à
função shuffle de linguagens como Perl, PHP, etc...
Versão 2 - Enviado por Sandro Marcell em 25/03/2010
Changelog: Implementação via algoritmo Knuth-shuffle.
function shuffle { # Funcao que embaralha os elementos de um vetor. # Implementado e testado sob o zsh-4.3.2 # Sandro Marcell <sandro_marcell@yahoo.com.br> # Boa Vista, Roraima - 10/05/2009 # Executavel somente no zsh! [ ! $ZSH_VERSION ] && return 1 RANDOM=$$ # Definindo variaveis locais e seus tipos: local i array shuffled size index integer i size index typeset -a array shuffled array=($*) # Limitado a 32767 elementos, devido a $RANDOM # Determinando a quantidade de elementos no vetor. size=${(w)#array} ((size > 32767)) && { print "Ops! vetor excessivamente grande." return 1 } while ((i++ < size)) do # Gera-se um valor com base no tamanho do vetor. # Esse valor sera utilizado como indice, para # referenciar elementos no proprio vetor. index=$((1 + (${(w)#array} * RANDOM / 32767))) # Utilizando-se o indice gerado, armazena-se # o elemento por ele referenciado em 'shuffled'. shuffled+=($array[$index]) # Para evitar que elemento armazenado seja reutilizado # basta remove-lo de 'array'. array[$index]=() done [ -n "$shuffled[*]" ] && print "$shuffled[*]" || return 1 }
Script para baixa videos do YOUTUBE
Configurando interfaces de rede
Comparação entre os escalonadores BFQ e MQ-Deadline (acesso a disco) no Arch e Debian
Conciliando o uso da ZRAM e SWAP em disco na sua máquina
Servidor de Backup com Ubuntu Server 24.04 LTS, RAID e Duplicati (Dell PowerEdge T420)
Visualizar câmeras IP ONVIF no Linux sem necessidade de instalar aplicativos
Converter os repositórios Debian para o novo formato com as chaves
Instalando Spotify no Debian 13
Realizar overclock no Miyoo Mini (plus ou normal)
linux mint reconhece microfone de lapela como fone de ouvido sem micro... (3)
Como desinstalar o GIMP? [RESOLVIDO] (1)