App-boxmuller

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

Revision history for App-boxmuller

0.24    2018-07-03
        English manual has been transported from raw text into POD text.

0.23    2018-06-27 
        First version, released on an unsuspecting world.

META.json  view on Meta::CPAN

      },
      "configure" : {
         "requires" : {
            "Module::Build" : "0"
         }
      }
   },
   "provides" : {
      "App::boxmuller" : {
         "file" : "lib/App/boxmuller.pm",
         "version" : "0.24"
      }
   },
   "release_status" : "stable",
   "resources" : {
      "license" : [
         "http://www.gnu.org/licenses/gpl-3.0.txt"
      ]
   },
   "version" : "0.24",
   "x_serialization_backend" : "JSON::PP version 2.97001"
}

META.yml  view on Meta::CPAN

dynamic_config: 1
generated_by: 'Module::Build version 0.4224, CPAN::Meta::Converter version 2.150010'
license: gpl
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: '1.4'
name: App-boxmuller
provides:
  App::boxmuller:
    file: lib/App/boxmuller.pm
    version: '0.24'
resources:
  license: http://www.gnu.org/licenses/gpl-3.0.txt
version: '0.24'
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'

lib/App/boxmuller.pm  view on Meta::CPAN

use 5.006;
use strict;
use warnings;

=head1 NAME

App::boxmuller - Provides the command which produces Gaussian distributed random numbers, as well as log-normal distributed numbers.

=head1 VERSION

Version 0.24

=cut

our $VERSION = '0.24';

=head1 SYNOPSIS

boxmuller [B<-m> mean] [B<-v> variance | B<-d> standard_deviation] 
[B<-g> how_many_you_want] [B<-.> digits_after_decimal_point] [B<-s> random_seed] 
[B<-L>(log normal)] [B<-@> seconds] [B<-1>] [B<-:>]

boxmuller [B<--help> [ja|en] [opt] [nopod]] [B<--version>]

=head1 DESCRIPTION

scripts/boxmuller  view on Meta::CPAN

       CYAN " , used random seed: " , BRIGHT_CYAN  $o{s} ,
       CYAN " , elapsed seconds: " , BRIGHT_CYAN  tv_interval ($time0) ,
       RESET "\n" , 
       CYAN "sum = " , BRIGHT_CYAN  sprintf("%g", $s1 ) ,
       CYAN " , squared sum = " , BRIGHT_CYAN  sprintf( "%g" , $s2 ) , 
       CYAN " ($cmd) " , RESET "\n" ;
 }

## ヘルプとバージョン情報
BEGIN {
  our $VERSION = 0.24 ;
  $Getopt::Std::STANDARD_HELP_VERSION = 1 ; 
  grep { m/--help/} @ARGV and *VERSION_MESSAGE = sub {} ; 
    # 最初は 0.21 を目安とする。
    # 1.00 以上とする必要条件は英語版のヘルプをきちんと出すこと。
    # 2.00 以上とする必要条件はテストコードが含むこと。
    # 0.22 : -g inf を指定可能とした。
    # 0.23 : 説明文を分かり安くした。
    # 0.24 : 英語のマニュアルをPOD化する。
}  

sub HELP_MESSAGE {
    use FindBin qw[ $Script $Bin ] ;
    sub EnvJ ( ) { $ENV{LANG} =~ m/^ja_JP/ ? 1 : 0 } ; # # ja_JP.UTF-8 
    sub en( ) { grep ( /^en(g(i(sh?)?)?)?/i , @ARGV ) ? 1 : 0 } # English という文字列を先頭から2文字以上を含むか 
    sub ja( ) { grep ( /^jp$|^ja(p(a(n?)?)?)?/i , @ARGV ) ? 1 : 0 } # jp または japan という文字列を先頭から2文字以上を含むか 
    sub opt( ) { grep (/^opt(i(o(ns?)?)?)?$/i, @ARGV ) ? 1 : 0 } # options という文字列を先頭から3文字以上含むから
    sub noPOD ( ) { grep (/^no-?pod\b/i, @ARGV) ? 1 : 0 } # POD を使わないと言う指定がされているかどうか
    my $jd = "JapaneseManual" ;

scripts/boxmuller  view on Meta::CPAN

}

=encoding utf8 

=head1 NAME

boxmuller

=head1 VERSION

0.24 -- 2018-07-03

=head1 SYNOPSIS

boxmuller [B<-m> mean] [B<-v> variance | B<-d> standard_deviation] 
[B<-g> how_many_you_want] [B<-.> digits_after_decimal_point] [B<-s> random_seed] 
[B<-L>(log normal)] [B<-@> seconds] [B<-1>] [B<-:>]

boxmuller [B<--help> [ja|en] [opt] [nopod]] [B<--version>]

=head1 DESCRIPTION