Ah tiens un sujet assez éloigné (bien que très intéressant ), si un super modérateur passe dans le coin pour déplacer le sujet...
à bientôt, je suis encore en mode vacances / convalescence...
BlueDid :8)
function Tribe return Word64_Type is Word64 : Word64_Type := 0; begin Bool_Rand.Reset(Bool_Gen); for I in 0..((Word64_Type'Size-1)/8)*7 loop if I mod 8 = 0 then Word64 := Word64 + 2**I; end if; end loop; for I in ((Word64_Type'Size-1)/8)*7+1..(Word64_Type'Size-1) loop if I mod 2 = 0 then if Bool_Rand.Random(Bool_Gen) then Word64 := Word64 + 2**I; end if; end if; end loop; return Word64; end Tribe;
function Beat(Word64 : in Word64_Type; Index : in positive) return Boolean is begin return (Word64 and 2**(Index-1)) > 0; end Beat;
Nous collectons des données personnelles sur notre site, à travers l'utilisation des cookies ainsi que d'autres technologies, pour vous fournir nos services, des publicités personnalisées et pour analyser le trafic. Nous pouvons être amené à partager certaines informations avec les partenaires publicitaires et d'analyse. Pour plus de détails, veuillez consulter la politique de confidentialité.
En cliquant sur « J'accepte » ci-dessous, vous acceptez notre politique de confidentialité ainsi que la collecte de données personnelles et l'utilisation de cookies comme décrit. Vous reconnaissez aussi que ce forum peut être hébergé en dehors de votre pays de résidence et que vous consentez à la collecte, le stockage et l'utilisation de vos données dans le pays où ce forum est hébergé.
Commentaire