Choisissez les numéros Powerball!

34

Powerball est une loterie américaine qui a récemment attiré l'attention parce que le jackpot actuel (au 11 janvier 2016) est le plus gros loto de l'histoire , d'environ 1,5 milliard de dollars ( USD ).

Les joueurs de Powerball choisissent 5 numéros distincts parmi 69 boules blanches numérotées et 1 numéro "Powerball" parmi 26 boules rouges numérotées. Ils remportent le jackpot si leurs cinq choix de boule blanche correspondent à ce qui a été tiré dans un ordre quelconque, et s’ils choisissent le bon numéro "Powerball".

Donc, les chances de gagner le jackpot sont 1 dans (69 choose 5)*(26 choose 1)ou ((69*68*67*66*65)/(5*4*3*2*1))*26, ce qui est 1 sur 292 201 338

Personne n'a gagné le gros lot lors du dernier tirage du 9 janvier 2016, mais quelqu'un gagnera peut-être le prochain tirage le 13 janvier 2016 à 22h59 HE.

Défi

Ecrivez un programme ou une fonction qui simule un dessin Powerball sans aucune entrée mais en générant 5 nombres aléatoires distincts de 1 à 69 inclus, puis un nombre "Powerball" aléatoire de 1 à 26 inclus (ce qui pourrait être une répétition de l’un des 5 numéros initiaux).

Le nombre "Powerball" devrait toujours être le dernier numéro de la sortie, mais sinon l'ordre des 5 premiers chiffres n'a pas d'importance.

Les 6 nombres doivent être en sortie décimale , séparés par des espaces ou des sauts de ligne, avec un retour à la ligne simple optionnel. Les virgules, crochets et autres caractères ne sont pas autorisés dans la sortie.

Donc, ce sont des sorties valides (en utilisant les numéros du dernier dessin ):

32 16 19 57 34 13
32
16
19
57
34
13

Tous les résultats possibles devraient être possibles avec une probabilité uniforme. Vous pouvez utiliser des générateurs de nombres pseudo-aléatoires intégrés et supposer qu'ils répondent à cette norme.

Voici une implémentation de référence non-golfée qui fonctionne en Python 2 ou 3:

import random
print(' '.join(map(str, random.sample(range(1,70), 5) + [random.randint(1, 26)])))

Le code le plus court en octets gagne.


Notez que je n'ai aucune affiliation avec Powerball et ne suggère pas vraiment que vous jouiez. Mais si vous gagnez quelque chose avec les numéros générés par l'un des programmes ici, je suis sûr que nous aimerions en entendre parler. :RÉ

Les passe-temps de Calvin
la source
12
Occasion manquée d'exiger une part des gains si quelqu'un ici remportait le jackpot.
Alex A.
Les 5 chiffres doivent-ils être en ordre?
Neil
@Neil "Le nombre" Powerball "devrait toujours être le dernier numéro de la sortie, mais sinon l'ordre des 5 premiers chiffres n'a pas d'importance."
Les passe-temps de Calvin
3
Je suis sûr que personne n'est confus, mais vous voulez en fait dire des nombres entiers dans le défi.
Jpmc26
1
@CanadianLuke L'ordre des 5 premiers chiffres n'a pas d'importance. Il y a 5! = 5*4*3*2*1moyen d'arranger 5 choses, donc vous en tenez compte.
Hobbies de Calvin le

Réponses:

29

Dyalog APL, 10 octets

(5?69),?26

Dyadique ?est ⍺ des nombres aléatoires distincts dans [1, ⍵], et monadique ?est un nombre aléatoire unique.

Essayez ici .

lirtosiast
la source
Presque identique à J sauf que vous devez ajouter 1 en raison de la 0 indexation en fonction: 1+(5?69),?26.
randomra
13

CJam, 16 octets

69,mr5<26mr+:)S*
69,   range(69)
mr    shuffle the generated array
5<    first 5 elements
26mr  random number 0..25
+     concat to array
:)    increment each array element
S*    join with spaces

Essayez-le en ligne.

Poignée de porte
la source
1
J'aime la façon dont les :)choses deviennent un peu plus grandes, comme comment le sourire d'un inconnu peut vous rendre un peu plus heureux.
Fonds de la poursuite de Monica
1
Je pense que je serais jolie :)si je gagnais à la loterie. +1
Arcturus
9

MATL , 10 octets

69 5Zr26Yr

Utilise la version actuelle (9.2.0) du langage / compilateur.

Exemple

Avec le compilateur exécuté sur Matlab:

>> matl
 > 69 5Zr26Yr
 > 
66
59
64
56
29
12

Avec le compilateur exécuté sur Octave:

>> matl
 > 69 5Zr26Yr
 >
2 69 41 44 23
22

Les cinq premiers chiffres sont séparés par un espace et non par une nouvelle ligne. Ceci est dû au sous-jacent d'Octaverandsample fonction se comporte différemment de celle de Matlab (et a été corrigée dans une nouvelle version du compilateur). Quoi qu’il en soit, la nouvelle ligne et l’espace sont tous deux permis par le défi.

Éditer (4 avril 2016) : Essayez-le en ligne!

Explication

69 5Zr    % randsample(69,5), without replacement by default. Gives a 5x1 column vector
26Yr      % randi(26). Gives single number
          % implicit display

Voir les fonctions pertinentes de Matlab: randsampleet randi.

Luis Mendo
la source
7

Ruby, 33 32

p *[*1..69].sample(5),rand(26)+1

Ruby possède une méthode intégrée, exemple, qui sélectionne des valeurs aléatoires dans un tableau sans remplacement. Merci à QPaysTaxes pour m'avoir fait remarquer que je n'ai pas besoin des parens.

histocrate
la source
Êtes-vous sûr d'avoir besoin des parenthèses? Je pense que vous pourriez couper un octet en supprimant dix et en laissant un espace entre p et *. Je vérifie maintenant. EDIT: testé et AFAICT cela fonctionne.
Fonds de la poursuite de Monica le
Ha oui, merci. J'avais testé dans une instance irb à laquelle j'avais assigné pà un moment donné, ce qui casse réellement l'analyse syntaxique de cette version.
Histocrate
6

R, 30 29 octets

cat((s=sample)(69,5),s(26,1))

La samplefonction effectue un échantillonnage aléatoire simple à partir de l'entrée. Si un seul entier est donné comme premier argument, l'échantillonnage est effectué de 1 à l'argument. La taille de l'échantillon est le deuxième argument. Nous utilisons l'option par défaut d'échantillonnage sans remplacement.

Essayez-le en ligne

Alex A.
la source
vous pouvez économiser deux octets entiers en utilisant à la cplace decat
Dean MacGregor Le
@DeanMacGregor Merci pour la suggestion, mais les soumissions ici doivent être des programmes complets qui écrivent dans STDOUT ou des fonctions qui renvoient une valeur. Dans ce cas, j'ai opté pour l'ancien. Si je devais l'utiliser c, il ne s'agirait que d'un extrait de code, ce qui n'est pas autorisé par défaut.
Alex A.
Ahh je vois. Je ne suis pas un golfeur passionné, je ne connaissais donc pas cela.
Dean MacGregor le
@DeanMacGregor Pas de problème. Merci quand même pour la suggestion. :)
Alex A.
6

Python 3.5, 63 octets

from random import*
print(*sample(range(1,70),5),randint(1,26))

C'est fondamentalement l'implémentation de référence gérée Notez que 3.5 est nécessaire pour splatter dans un autre argument.

Sp3000
la source
6

Octave, 35 32 octets

Calvin's Hobbies a confirmé que ans =c'était bien d'utiliser une fonction, alors:

@()[randperm(69)(1:5),randi(26)]

Il a des similitudes avec la réponse de Memming , mais il utilise une indexation directe qui n’est possible que dans Octave, et sa taille est plus courte de 5 à 7 octets; j’ai donc pensé que cela valait la peine de la publier.

randperm(69)crée une liste avec une permutation aléatoire des nombres 1-69. Il est possible d'indexer directement la liste (ce qui n'est pas possible dans MATLAB) pour obtenir uniquement les 5 premiers chiffres de ce type (1;5). La liste est suivie par randi(26)laquelle renvoie un nombre unique compris entre 1 et 26.

Vieux:

disp([randperm(69)(1:5),randi(26)])

La liste résultante est affichée en utilisant disp.

Stewie Griffin
la source
6

PowerShell v2+, 31 27 bytes

1..69|Random -c 5;Random 27

Requires version 2 or newer, as Get-Random wasn't present in v1 (the Get- is implied, and -Maximum is positional). Output is newline separated.

Ungolfed:

Get-Random -InputObject (1..69) -Count 5
Get-Random -Maximum 27
AdmBorkBork
la source
Random -ma 27 can just be Random 27 as -Maximum is matched by position 0
Matt
@Matt Thanks - I forgot that.
AdmBorkBork
5

Shell + coreutils, 31

shuf -i1-69 -n5
shuf -i1-26 -n1
Digital Trauma
la source
4

MATLAB, 40

x=randperm(69);disp([x(1:5) randi(26)])

I know. It's the boring solution.

Memming
la source
4

PHP, 69 bytes

<?foreach(array_rand(range(1,69),5)as$k)echo$k+1," ";echo rand(1,26);

Pretty straight forward answer. Generate a 1-69 range, then use array_rand to grab 5 random keys from the array, and echo out the $k+1 value (0-indexed), then echo a random int from 1-26.

Samsquanch
la source
4

C#, 153 bytes 140 bytes

Thanks to "McKay":

string.Join(" ",Enumerable.Range(1,69).OrderBy(e=>Guid.NewGuid()).Take(5).Concat(Enumerable.Range(1,26).OrderBy(e=>Guid.NewGuid()).Take(1)))

153 bytes solution:

string.Join(" ",Enumerable.Range(1,69).OrderBy(e=>Guid.NewGuid()).Take(5))+" "+string.Join(" ",Enumerable.Range(1,26).OrderBy(e=>Guid.NewGuid()).Take(1))

Simple solution using Linq and shuffling using GUID.

ivaan
la source
1
Don't need the string join in the powerball number portion and you'd save bytes either caching the order by delegate or a lot more by using random for the powerball number
pinkfloydx33
And if you concat the sequences instead of string concatenation, you don't need to specify the space3 times, it would be more efficient as well. e.g. string.Join(" ", ....take(5).Concat(....Take(1)))
McKay
4

Pyth - 13 14 13 bytes

Major golfing possible, this was just a FGITW.

jb>5.SS69hO26

Try it online here.

Maltysen
la source
Could you explain the code so it can be checked that it's really uniform?
Masclins
You can change the <... 5 to >5.... Final code jb>5.SS69hO26
Blue
2

Brachylog, 40 bytes

1:5e,68{I`random(I)+1=Z`Z=w,"
"w}\;25:1&

Explanation

Brachylog doesn't have a built-in for random numbers (yet...) so we have to use an SWI-Prolog predicate for that: random/1. We can input SWI-Prolog code in Brachylog using backquotes.

1:5e,                             \  § Enumerate from 1 to 5 using \ (backtrack), which
                                     § evaluates to false and thus constructs a loop

     68{                         }   § Declare sub-predicate 1 and call it with 68 as input

        I`random(I)+1=Z`             § Z is the arithmetic expression 'random(I) + 1' where
                                     § I is the input of the sub-predicate

                        Z=w,         § Evaluate Z and write it
                            "\n"w    § Write a new line

;                                    § Else (we will reach this after the 5th iteration of
                                     § the enumeration, since \ is always false)

25:1&                                § Call the sub-predicate 1 with 25 as input
Fatalize
la source
2

JavaScript (ES6), 106 86 84 bytes

F=(s=new Set,r=Math.random)=>s.size<5?F(s.add(r()*69+1|0)):[...s,r()*26|0+1].join` `

Since we can't uniquely sample randoms in JavaScript, this works by creating a Set (which only holds unique values), recursively adding randoms (1-69) until there are 5 unique ones, appending a random number (1-26), then joining and returning it all out.

Mwr247
la source
2

Elixir, 83 Bytes

Enum.reduce Enum.take_random(1..69,5)++[Enum.random(1..26)],fn(x,a)->"#{a} #{x}"end

When just IO.putsing an array of integers, Elixir will interpret the integers as characters and therefore output some string instead of the desired powerball numbers. So, we have to reduce the integer array down to a string.

srecnig
la source
2

Ruby, 47 43 39 bytes

puts *(1..69).to_a.sample(5),rand(26)+1

I think it can be golfed more, but I'll work on that once I'm done admiring how pretty this code looks, considering.

It works pretty much the same way as everything else: Take an array of the numbers 1 to 69, shuffle them, get the first five, output those, then output a random number between 1 and 26.

I went through a few iterations before posting this:

puts (1..69).to_a.shuffle.first(5).join(' ')+" #{rand(26)+1}"  #61
puts (1..69).to_a.shuffle[0..5].join(' ')+" #{rand(26)+1}"     #58
puts (1..69).to_a.shuffle[0..5].join('<newline>'),rand(26)+1   #52
puts *('1'..'69').to_a.shuffle[0..5],rand(26)+1                #47
puts *('1'..'69').to_a.sample(5),rand(26)+1                    #43

(where <newline> is replaced with an actual newline)

EDIT: Whoops, didn't see the preexisting Ruby answer. I stumbled on sample and was scrolling down to edit my answer, but then I saw it... Oh well. My final score is 43 bytes, but I'll keep golfing a little to see how well I can do.

Fund Monica's Lawsuit
la source
2

Mathematica, 64 bytes

StringRiffle@Append[Range@69~RandomSample~5,RandomInteger@25+1]&

Quite simple.

LegionMammal978
la source
The output has braces and commas.
Charles
-1 invalid for above reason
CalculatorFeline
StringJoin=""<>##&
CalculatorFeline
@CatsAreFluffy Actually fixed this time. Just mixed up my functions...
LegionMammal978
I think you could shorten it if you only use Range/RandomSample and transposed it over two lists instead of using RandomInteger. Something like RandomSample[Range[#1],#2]&@@@{{69,5},{26,1}}]
Xanderhall
1

Perl 5, 59 bytes

{say for(sort{-1+2*int rand 2}1..69)[0..5];say$==1+rand 25}

It's a subroutine; use it as:

perl -M5.010 -e'sub f{...}f'
msh210
la source
You can use -E instead of -M5.010 -e
andlrc
Cant you can replace -1+2*int rand 2 with rand>.5?1:-1?
andlrc
And shouldn't you be able to save another few by replacing ;say$== with ,$==
andlrc
@dev-null Thanks! The -M5.010 doesn't count anyway so I didn't bother abbreviating it. I think I tried a comma instead of another say and it didn't work. But the new sort rule is a good idea, thanks. I'll test it when I have a chance and edit it in.
msh210
1

PHP, 65 bytes

<?=join(' ',array_rand(array_flip(range(1,69)),5))." ".rand()%26;

Thanks to the other PHP answer on this page. I wrote up a program on my own, and it turned out to be the exact same answer as the one written by Samsquanch, which drove me to take it a step further to save a few bytes.

If anyone can figure out a way to append one array to another in here that's less than the 5 bytes it takes me to join the powerball number on after, I would greatly appreciate it, cause it's driving me nuts! The best I could come up with would be after array_rand and before join, having a statement something like +[5=>rand()%25], but that's an extra byte over just concatenating it on after.

<?=                                                              // This represents an inline 'echo' statement
                                  range(1,69)                    // Get an array of all numbers from 1 to 69 inclusive
                       array_flip(           )                   // Swap the keys and values.
            array_rand(                       ,5)                // Get a random subset of five keys.
   join(' ',                                     ).rand()%26     // Concatenate the array with spaces, along with the powerball number

Run it through the command line. Sample:

C:\(filepath)>php powerball.php

Output:

 12 24 33 67 69 4
Xanderhall
la source
1

PARI/GP, 71 70 bytes

apply(n->print(n),numtoperm(69,random(69!))[1..5]);print(random(26)+1)

It generates a random permutation of [1..69], then takes the first 5.

Unfortunately this is an inefficient user of randomness, consuming an average of 87 bytes of entropy compared to the information-theoretic ideal of 3.5. This is mainly because the entire permutation is generated instead of just the first 5 members, and also because the perms are ordered (losing lg 5! =~ 7 bits). Further, random uses a rejection strategy rather than using arithmetic coding. (This is because PARI uses Brent's xorgen, which is fast enough that the overhead from more complicated strategies is rarely worthwhile.)

There are three 'obvious' changes which do not work under the current (2.8.0) version of gp. random and print could be stored in variables, and print could be called directly rather than via the anonymous -> function:

r=random;apply(p=print,numtoperm(69,r(69!))[1..5]);p(r(26)+1)

Together these would save 9 bytes. Unfortunately both functions are valid without arguments, and hence are evaluated immediately rather than stored, so these do not compute the desired output.

Charles
la source
0

Intel x86 Machine code, 85 bytes

¿I ±‰ø1Ò»E ÷óB‰Ðè+ ‰þÑç÷ƒÇþÉ„Éuâ‰ø1Ò» ÷óB‰Ðè
 0ä͸ ͱëÆÔ
00†Äˆã´ÍˆØÍ° ÍÃ

Well it does sometimes print the same numbers if so, just try again by pressing a key.

Compile with:

nasm file.asm -o file.bin

Make sure to align it to a floppy size (add zeros at the end) in order to mount it to a vm (it does not need any operating system).

Disassembly:

BITS 16
ORG 0x7c00

mov di,73 ;starting seed
mov cl,5 ;we need five numbers

loop:

mov ax,di

xor dx,dx
mov bx,69
div bx
inc dx
mov ax,dx

call print_rnd_number

mov si,di
shl di,1
add di,si
add di,7

dec cl

test cl,cl
jne loop

mov ax,di

xor dx,dx
mov bx,26
div bx
inc dx
mov ax,dx

call print_rnd_number

xor ah,ah
int 0x16
mov ax,0x0002
int 0x10
mov cl,5
jmp loop

print_rnd_number:
aam
add ax,0x3030
xchg al,ah
mov bl,ah
mov ah,0x0E
int 0x10
mov al,bl
int 0x10
mov al,' '
int 0x10
ret
ByteBit
la source
6
Welcome to Programming Puzzles & Code Golf! Seeing machine code is always impressive, but if it prints repeated numbers on occasions, I'm afraid your submission is invalid.
Dennis
1
Yes it is but I just wanted to share this :)
ByteBit
2
I understand, but we recently discussed this, and the community's consensus was that invalid answers should either be fixed or removed.
Dennis
I'll undownvote if you fix; please ping me.
lirtosiast
0

C, 142 bytes

i,x[6],n;main(j){for(srand(time(0));i<6;n-i?0:printf("%d ",x[i]),i++)for(x[n=j=i]=(69-i/5*43)*(rand()/2147483647.)+1;i<6&&j--;)i-=x[i]==x[j];}

Not terribly happy with this solution as it feels like there should be more golfing opportunity. I'll look at it again tomorrow with fresh eyes. Try it here.

Cole Cameron
la source
0

Swift, 165 bytes

import UIKit;var a=[Int]();for i in 0...5{func z()->Int{return Int(arc4random_uniform(i<5 ?68:25)+1)};var n=z();while i<5&&a.contains(n){n=z()};a.append(n);print(n)}

Can quickly be run in an Xcode Playground.

EDIT: Current problem here is that it's theoretically possible for this to run forever in the while loop if arc4random_uniform somehow keeps pulling the same number. The odds of that happening, for any significant length of time, are probably better than the odds of winning the Powerball.

timgcarlson
la source
How does it guarantee that there won't be any duplicated values?
supercat
@supercat, it didn't before, but now it does.
timgcarlson
0

Perl 6,  32  31 bytes

# space is necessary so that the parens denote a list
# rather than being part of the call to `put`
put (pick(5,1..69),(1..26).pick) # 32 bytes
# 25 35 57 67 62 24␤

Turning it into a function that returns a string, I can remove 4 bytes (put␠) while only adding 3 ({~ })

{~(pick(5,1..69),(1..26).pick)} # 31 bytes

Usage:

say {...}().perl; # use .perl to prove it returns a string
# "25 35 57 67 62 24"

If a function were allowed to return a list of the values, the following would also work.

( Otherwise it would be the same as above but within { } )

  • function that returns a single flat list

    {|pick(5,1..69),(1..26).pick} # 29 bytes
    # (25,35,57,67,62,24)
  • function that returns a list with the first 5 numbers in a sub list

    {pick(5,1..69),(1..26).pick} # 28 bytes
    # ((25,35,57,67,62),24)
  • function that returns a list with the first 5 in a sub list, and the Powerball in another sub list

    {pick(5,1..69),pick 1,1..26} # 28 bytes
    # ((25,35,57,67,62),(24,))
Brad Gilbert b2gills
la source
0

Seriously, 35 bytes

My first attempt at an answer in a golfing language.

Feels longer than it should have to be.
The repetition could likely be removed with W, but it seems to be broken in the online interpreter and I don't want to post untested code.

Too bad { doesn't work on lists.

Code:

:70:1xi J{. J{. J{. J{. J{.:26:Ju.

Hex dump:

3a37303a317869204a7b2e204a7b2e204a7b2e204a7b2e204a7b2e3a32363a4a752e7f

Explanation:

:70:1x                       # Push a list of the numbers 1-69
i                            # Explode list
 J{.                         # rotate stack random(len(stack)) times and pop/print
 J{. J{. J{. J{.             # same thing 4 more times
:26:Ju.                      # print random number in 1-26
                             # (7F) unprintable, terminate without explicit printing

Online interpreter

Emigna
la source
0

Lua, 96 Bytes

A simple solution, using a table as a set by putting the value inside it as table[value]=truthy/falsyto be able to check if they are inside it or not.

I lose 5 bytes because I have to set the first value of my table, else I won't go inside the while(o[n])loop and will simply output n before using the random function. As Lua uses 1-based tables, I also have to force it to put its first value to the cell [0], otherwise I couldn't output a 1.

m,n,o=math.random,0,{[0]=0}for i=1,5 do while(o[n])do n=m(69)end o[n]=0 print(n)end print(m(26))

Ungolfed:

m,n,o=math.random,0,{[0]=0}
for i=1,5
do
  while(o[n])
  do
    n=m(69)
  end
  o[n]=0
  print(n)
end
print(m(26))
Katenkyo
la source
0

C++, 252 bytes

Golfed:

#include<iostream>
#include <random>

int main(){std::random_device rd;std::mt19937 gen(rd());std::uniform_int_distribution<> dis(1,69);for(int c=0;c<=5;c++){std::cout<<dis(gen)<<" ";}int x=dis(gen);while(x>26||x<1){x=dis(gen);}std::cout<<x;return 0;}

Ungolfed:

#include<iostream>
#include <random>

int main()
{
    std::random_device rd;
    std::mt19937 gen(rd());
    std::uniform_int_distribution<> dis(1, 69);
    for(int c = 0; c <= 5; c++){
        std::cout<<dis(gen)<<" ";
    }
    int x = dis(gen);
    while (x > 26 || x < 1){
        x = dis(gen);
    }
    std::cout<<x;
    return 0;
}
Michelfrancis Bustillos
la source