我有一个组合问题,我想要在0和大整数之间随机选择一个整数.

我目前的做法不足

现在,对于常规的整数我通常会写一些类似int rand 500;并完成它.

但是对于大整数,看起来兰德并不是为了这个.

使用以下代码,我运行了一个模拟200万次调用rand $bigint:

$perl -Mbigint -E 'say int rand 1230138339199329632554990773929330319360000000 for 1 .. 2e6' > rand.txt

所得集合的分布是不可取的:

> 0(56计数)
> 1e 040(112个计数)
> 1e 041(1411计数)
> 1e 042(14496计数)
> 1e 043(146324计数)
> 1e 044(1463824)
> 1e 045(373777个)

所以这个过程从来没有能够选择像999或5e 020这样的数字,这使得这种方法不适合我想要做的.

看起来这与rand的任意精度有关,在我的测试过程中,这并不会超过15位数:

$perl -E 'printf "%.66g",rand'
0.307037353515625

如何克服这个限制?

我最初的想法是,也许有一种方法可以影响兰特的精度,但感觉像是一个更大的问题的援助(即无法处理大整数).

无论如何,我希望有人以前走过这条路,知道如何纠正这种情况.

解决方法

(从我的评论转换)

一个更理论驱动的方法是使用多个呼叫到PRNG来创建足够的随机位,以便您的号码进行采样.必须小心,如果一些PRNG产生的位数不等于下面概述的位数.

伪代码

>计算表示你的号码所需的位数:n_needed_bits
>检查您的PRNG返回的位的大小:n_bits_prng
>计算需要的样本数:needed_prng_samples = ceil(n_needed_bits / n_bits_prng)
>真的:

> require_prng_samples(调用PRNG)次&连接所有获得的位
>检查结果的数字是否在您的范围内
>是?:返回号码(已完成)
>否?:do nothing(循环继续;将重新取样所有组件!)

备注

>这是一个acceptance-sampling / rejection-sampling的形式
>方法是一个Las-vegas type of algorithm:运行时在理论上没有约束

>所需的循环次数是平均值:n_possible-sample-number-of-full-concatenation / n_possible-sample-numbers-within-range

>根据拒绝方法的完全重采样(如果结果不在范围内)可以获得更多的非偏差/均匀性的正式分析,这对于这种方法是非常重要的一个方面
>当然,PRNG输出的经典假设是需要这样做的.

>如果PRNG例如在低位/高位(如上所述)方面具有一些不均匀性,则这将具有上述输出的效果

perl – 如何在0和bigint之间选择一个随机值?的更多相关文章

  1. Swift快速入门五集合

    相关文章Swift快速入门(一)第一个Swift程序Swift快速入门(二)基本数据类型Swift快速入门(三)运算符Swift快速入门(四)流程控制前言Swift提供了数组和字典两种集合类型来存储数据,Swift的数组用来存储顺序相同类型相同的类型,字典则采用kay-value的形式存储数据。修改字典字典提供了updataValue()方法来修改字典的value值,该方法会返回一个Sting?

  2. PHP与Perl之间知识点区别整理

    在本篇文章里小编给大家分享了关于PHP与Perl的却别以及相关知识点整理,有兴趣的朋友们学习下。

  3. windows – 如何从Perl程序中设置cmd.exe窗口的大小?

    我有一个在Windows中运行的Perl脚本,显示屏幕很长的行.我不想永久修复我的控制台大小.我只是希望它在这个脚本运行时很大.有没有办法在这个窗口内运行的Perl脚本中定义控制台的大小?您可以使用mode命令设置正在运行的控制台的控制台大小:更改将仅持续到控制台窗口关闭.

  4. windows – 在perl中的fork实现

    我想在perl中执行子进程.我还希望我的代码与平台无关.问题是在Windows中perl实现fork,是一个伪进程,实际上是一个线程.请参阅windowshere的perlfork仿真.它还提到了在伪进程上执行kill和exec命令时出现的问题.在不同平台上使用两个不同版本的fork是否安全,还是应该使用特定于操作系统的API?

  5. 尝试在Windows 7上安装MinGW和Tk for Perl

    我一直试图让这个工作几个星期了.我可以通过.exe安装MinGW,但不管我做什么我似乎无法获得支持或ppm安装MinGW以这样的方式工作,以便我的编译Tk-804.029将正确使用’make’命令.(安装Perl模块:>perlMakeFile.PL–工作正常>make或dmake–我无法让MinGW正确关联Make或DMake(在MinGW/bin目录中找不到正确的.exe…我尝试过使用-32bitmingw32-make.exe但是这会导致与编译的头文件有关的错误.)ppm安装MinGW也不行,似乎觉

  6. perlbrew在Windows上运行吗?

    在WindowsXP上使用ActiveState5.8.8,我想安装一个更新的Perl用于测试/迁移.总有一天,当我们认为只限于一台计算机时,我们就会过时.当我想测试这种东西时,我会制作虚拟机.我保持一个干净的基础安装,制作那些东西的副本,以多种方式配置它们,然后根据我的喜好将它们炸掉.如果我做了一件坏事,我可以轻松地回到基本安装或恢复到快照.我有几个Windows虚拟机只用于此用途(并且它们在我

  7. 在Windows上处理Perl中的unicode目录和文件名

    我有Perl和Windows的编码问题.在运行Perl的Windows7(草莓5.16)和简单的TKGUI上,我需要打开文件和/或访问名称/路径中包含非英文字符的目录.对于打开文件我已经提出这个解决方案似乎工作正常:这会正确打开Поиск/Поиск.txt等文件我不能做的只是获取目录路径而不是处理它.我想我应该使用Win32::Unicode::Dir,但我真的无法理解文档.它应该是这样的:在以

  8. 如何将具有UTF-8文件名的文件复制到Windows上的Perl中的另一个UTF-8文件名?

    例如,给定一个空文件テスト.txt,如何制作一个名为テスト.txt.copy的副本?)应该可以使用Win32API::File的CopyFileW功能,这应该包含在草莓中.我自己从未搞过Unicode文件名,所以我不确定细节.您可能需要使用Encode手动将文件名转换为UTF-16LE.

  9. windows – 在Perl脚本中播放声音

    我正在尝试将声音添加到Perl脚本以提醒用户该事务处于正常状态.我希望尽可能保持便携,因为脚本在Windows和Linux工作站上运行.我可以对于Windows.但我不确定如何在Linux上调用泛型声音.到目前为止,我已经想到了但我不确定我是否可以指望这条路可用.那么,有三个问题:>有没有更好的方法来调用Gnome中的默认声音>这条路是非常普遍的>播放声音后,paplay需要一段时间才能退出,是否有更好的方式来呼叫它?

  10. windows – 如何阻止Perl程序在完成后关闭窗口?

    如何在Windows中执行完后停止我的Perl程序关闭窗口?我可以运行一个HelloWorld程序,但它实际上读得太快了.似乎是我能找到的唯一解决方案,但我认为有更好的方法可以做到这一点.从Windows命令提示符运行脚本,而不是单击资源管理器中的图标.当您通过单击图标运行控制台模式程序时,Windows将打开该程序的窗口,运行它,然后关闭窗口.从命令提示符运行控制台模式程序时,窗口将不会关闭:

随机推荐

  1. 数组 – Perl中有什么神奇的数组?

    在Perldocumentationforreverse中,我发现:“请注意,将数组反转到自身(如@a=reverse@a)将尽可能保留不存在的元素;即对于非魔法数组或具有EXISTS和DELETE方法的绑定数组.什么属性区分神奇和非魔法阵列?解决方法一个神奇的阵列是一个执行它的操作不仅仅是改变内容.只有内置的魔术阵列是@ISA,而且这是非常不明显的.正如句子所暗示的,魔术阵列主要是一个绑定的阵列

  2. perl – 使用“isa”方法的最佳方式?

    什么是“最好的”使用方式“isa()”可靠?解决方法Scalar::Util实现明确更好.它避免了eval{}的开销,它总是导致设置一个附加变量.Scalar::Util实现更容易阅读.如果eval也失败了,我相信发生的是你在树之前向后走到eval之前的状态–这是如何实现复位状态.这带来了额外的故障开销.基准根本不是一个对象对象传递isa检查对象出现故障现象检查测试代码:我使用这是为i486-linux-gnu-thread-multi建立的perl,v5.10.1(*),以及Scalar::Util,1

  3. 在CORE :: GLOBAL中哪些Perl内置函数不能被覆盖?

    解决方法toke.c中任何值为负的值都可以被覆盖;所有其他人可能不会.你可以看源码here.例如,我们来看看第10,396行的waitpid:由于waitpid为负数,因此可能会被覆盖.grep怎么样?这是积极的,所以不能被覆盖.这意味着以下关键字不能被覆盖:chop,defined,delete,do,dump,each,else,elsif,eval,exists,for,foreach,format,glob,goto,grep,if,keys,last,local,m,map,my,next,no

  4. 如何在Perl中打印由换行符分隔的列表元素?

    什么是最简单的打印所有列表的元素以Perl中的换行符分隔的元素?解决方法在Perl5.10中:其他方式:或:或者怎么样?

  5. 使用Perl如何获取文件大小(以兆字节为单位)?

    我想以磁盘的形式获取磁盘上的文件大小.使用-s运算符给出了以字节为单位的大小,但是我将假设,然后将其除以魔术数字是一个坏主意:我应该使用只读变量来定义1024,还是有一种编程方式来获取一千字节的字节数?

  6. perl – 如何测试/分类CPAN模块的utf8正确性

    例如:File::Slurp,如果你将读取该文件您将根据命令行开关获得不同的结果,并且perl-CSDA将无法正常工作.伤心.(是的,我知道比Encode::decode(“utf8”,read_file($file,binmode=>’:raw’));将帮助,但是SAD.我的问题:>在这里任何首选方式,如何测试/分类什么CPAN模块是utf8安全/准备/正确?>这里是像Perl::Criticforutf8这样的东西–什么将检查模块源可能的utf8不正确?总结以上是DEVMAX为你收集整理的perl–如

  7. 如何删除Perl字符串中的空格?

    如果我声明一个值为’3’的变量$myString.是否有任何功能来删除返回值的空格.有点像SomeFun然后返回’3′.输出:你可以注意到’vid’=>‘0’,上面的代码从theanswer.我正在研究它.总结以上是DEVMAX为你收集整理的如何删除Perl字符串中的空格?如果觉得DEVMAX网站内容还不错,欢迎将DEVMAX网站推荐给好友。

  8. 如何在mod_perl2下运行Devel :: Cover?

    Unfortunately,Devel::Coverdoesnotyetworkwiththreads.它也不适用于prefork.在startup.pl中使用,Devel::Cover问题perl5.8.9,Apache2.2.13.我的操作系统是FreeBSD,如果重要.同样的问题是reportedforwin32.更新:PerlTrace全部输出解决方法邪恶之源似乎是Apache::DBI.

  9. 如何使用Perl中的C类?

    我有一套用C写的课.从Perl脚本中调用它们的最佳方法是什么?

  10. perl – 在Emacs中以双模式更好的缩进

    我正在使用Emacs来修改Perl和Verilog交织的代码.我正在使用two-mode-mode在两者之间切换,这样可以预期.问题是perl代码与//一行一行地表示;如下图所示:而双模式则认识到它是Perl,它是逐行的,所以缩进等在线上无意义.我想做的是使Perl代码像往常一样格式化,但忽略//;字符.有什么想法吗?我刚刚开始偷看模式文件,它们是可以理解的复杂的,所以任何提示都不会感激!

返回
顶部