Script random(n) que não repete resultados

por GabrielXavier Qui 10 Jul 2014, 19:11

Boa noite galera,

Bom estou com um aplicativo em desenvolvimento e, preciso de um script que retorne por exemplo 20 numeros aleatorios entre 1 e 20, retorne armazenado em um ds_map ou em uma array ou sei la em que kkk.

preciso que por exemplo

randonize();

for(i=1;i<20;i+=1){
r=random(20);
r[i]=r;
};

Preciso de algo como a ideia do pequeno codigo acima, porém o codigo acima não tem restrições e saem varios numeros repetidos, queria que nenhum numero se repetisse e que não faltasse nenhum numero entre 1 e 20,
To pedindo pronto somente se alguem ja souber como fazer ou tiver ele pronto, não sei fazer e se eu for fazer aqui vai me tomar muito tempo (tempo que não to tendo), caso alguem tenha ideia de como faça ou alguma boa alma que esteja disposta a gastar um tempo com isso e fazer um Laughing

e exboçar aqui que ficarei muito grato.

Abraços ;$

por **Willy** Qui 10 Jul 2014, 21:13

Não é muito complicado de fazer.
Primeiro, você deverá criar um ds_list que armazene os valores que poderão ser sorteados. Tenha esse modo como exemplo:

Create:

Código:: N = 20; //Valores entre 1 e 20; L = ds_list_create(); //Cria a ds_lost //Popula a lista for (i=1; i <= N; i+=1){ ds_list_add(L,i); }

O importante aqui é ter uma lista que servirá como "estoque" de números que poderão ser sorteados, feito isso, basta criar um script que pegue um valor aleatório dessa lista, retorne o valor, e apague o valor em seguida para manter o estoque atualizado. Como isso:
scr_random:

Código:: ///scr_random(ds_list); Lista = argument0; randomize(); ID = irandom(ds_list_size(Lista)-1); Valor= ds_list_find_value(Lista,ID); ds_list_delete(Lista,ID); return Valor;

Para testes, use isso em um key_press qualquer:

Código:: show_message(scr_random(L));

Agora basta polir o código para deixar do jeito que você quer.
Dúvidas é só falar.
Flws... blz

por GabrielXavier Qui 10 Jul 2014, 21:40

Cara brilhante a logica desse algoritimo, depois de ver ficou facil mas eu nunca iria pensar assim.

Exatamente isso que eu preciso.

Muito obrigado Willy Happy

Abraços.

por antchita Sex 11 Jul 2014, 13:26

espero nao ser alertado, mas si for, nao me arrependo! valeu willy! !!! xtou a semanas entrando aqui no forum para ver se alguem respondesse a minha pergunta semelhante a esta, mas ela ate ja desapareceu... quando vi, esse titulo, pensei: a soluxao para meus problemas! mas nao, era um pedido de ajuda... que fuquei torcendo para alguem responder e la vem tu.... acabei de polir para meu jogo de pergunta e respostas, assim as perguntas nao seguem a mesma ordem, nem sao repetitivas! a tua resposta deveriar ser um script para aqui no forum, irandom nao repetitivo! agora vou vet se da pra gravar a lista para q mesmo que o jogo e fechado e depois iniciado, ele nao repita o numero ja tirado ate que use todos... obrigado tambem a vc q fez a pergunta e do jeito q fez... talvez Seja por isso q alguem ajudou!

por **Willy** Sex 11 Jul 2014, 19:01

"A necessidade faz a criação"
Eu tive o mesmo problema que vocês tiveram, no caso, para fazer a engine "Jogo da Memória" que um membro me pediu. Tive que forçar a cabeça pra pensar numa solução, e encontrei essa que serviu muito bem.

Fico feliz por ter ajudado vocês.
Flws... blz

por Camin Sáb 12 Jul 2014, 00:08

Eu não conhecia as "ds_list" no GM.
É uma opção interesante, mas neste caso(como não são muitos números)
eu usaria o "choose" (economiza linhas e memória). É mais ou menos assim:

Código:: num = choose (1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20);

A variável "num" vai receber algum daqueles nủmeros sugeridos dentro da função.

por antchita Sáb 12 Jul 2014, 02:39

pouco numero como assim? qual é o limite?

por **Willy** Sáb 12 Jul 2014, 05:57

Camin, choose repete os números, e eles não querem isso. Daí a necessidade do ds_list. Se não tivesse, era só usar irandom(n).

por GabrielXavier Seg 14 Jul 2014, 09:54

Não são poucos numeros, usei 20 somente para o exemplo, na verdade sera ilimitada a quantidade, tenho um INI com varias strings (menssagens) e quero imprimi-las na tela de ordem aleatoria, por isso a necessidade de não se repetir nenhum numero e não poder faltar nenhum numero também.

Vlw msm Willy.

por Conteúdo patrocinado

Script random(n) que não repete resultados

Script random(n) que não repete resultados

Re: Script random(n) que não repete resultados

Re: Script random(n) que não repete resultados

Re: Script random(n) que não repete resultados

Re: Script random(n) que não repete resultados

Re: Script random(n) que não repete resultados

Re: Script random(n) que não repete resultados

Re: Script random(n) que não repete resultados

Re: Script random(n) que não repete resultados

Re: Script random(n) que não repete resultados