netrand 0.0.1

data/Examples/random.rb

@@ -0,0 +1,2 @@
+require "netrand"
+print Netrand.uniqint(100, 10000)

data/LICENSE

@@ -0,0 +1,19 @@
+Copyright (C) 2011 by Róbert Selvek
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in
+all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+THE SOFTWARE.

data/README.md

@@ -0,0 +1,18 @@
+API
+==========
+
+Netrand.uniqint(numget, max, min = 0)
+------------------------------------------
+Generates *numget* random numbers using random.org service. You must set maximum and can set minimum number. Returns Array of numbers in which there won't be two same numbers.
+
+Netrand.int(numget, max, min = 0)
+------------------------------------------
+Generates *numget* random numbers using random.org service. You must set maximum and can set minimum number. Returns Array of numbers.
+
+Netrand.order(max, min = 1)
+-----------------------------------------
+Returns numbers from *min* to *max* in random order.
+
+Netrand.check_quota
+------------------------
+Generates exception if quota of random.org is exhausted.

data/Rakefile

@@ -0,0 +1,21 @@
+# coding: utf-8
+require 'rake/gempackagetask'
+
+spec = Gem::Specification.new do |s| 
+  s.name       = "netrand"
+  s.summary    = "Generate true random numbers using random.org"
+  s.description= File.read(File.join(File.dirname(__FILE__), 'README.md'))
+  s.requirements = 
+      [ 'Working internet connection' ]
+  s.version     = "0.0.1"
+  s.author      = "Róbert Selvek"
+  s.email       = "me@sellweek.eu"
+  s.platform    = Gem::Platform::RUBY
+  s.required_ruby_version = '>=1.9'
+  s.files       = Dir['**/**']
+  s.executables = [ 'netrand' ]
+  s.test_files  = Dir["test/test*.rb"]
+  s.has_rdoc    = true
+end
+ 
+Rake::GemPackageTask.new(spec).define

data/bin/netrand

@@ -0,0 +1,18 @@
+#!/usr/bin/env ruby
+require "netrand"
+case ARGV[0]
+  when "int"
+    puts Netrand.int(ARGV[1].to_i, ARGV[2].to_i, ARGV[3].to_i)
+  when "uniqint"
+    puts Netrand.uniqint(ARGV[1].to_i, ARGV[2].to_i, ARGV[3].to_i)
+  when "order"
+    puts Netrand.uniqint(ARGV[1].to_i, ARGV[2].to_i)
+  else
+    usage
+end
+
+
+
+def usage()
+  #put up usage banner
+end

data/lib/netrand.rb

@@ -0,0 +1,68 @@
+require "open-uri"
+module Netrand
+  
+  #Generates numget random numbers using random.org service.
+  #You must set maximum and can set minimum number. 
+  #Returns Array of numbers.
+  
+  def Netrand.int(numget, max, min = 1)
+    if numget == 0 then raise ArgumentError, "You must ask for more numbers than 0" end
+    if max == 0 then raise ArgumentError, "Maximum number must be bigger than 0" end
+    if min > max then raise ArgumentError, "max must be bigger than min!" end
+    values = Array.new
+    self.check_quota
+    open("http://www.random.org/integers/?num=#{numget}&min=#{min}&max=#{max}&format=plain&col=1&base=10") do |c|
+      c.each_line {|l| values << l.chop.to_i}
+    end
+    values
+  end
+  
+  #Generates numget random numbers using random.org service.
+  #You must set maximum and can set minimum number. 
+  #Returns Array of numbers in which there won't be two same numbers.
+  
+  def Netrand.uniqint(numget, max, min = 1)
+    if numget == 0 then raise ArgumentError, "You must ask for more numbers than 0" end
+    if max == 0 then raise ArgumentError, "Maximum number must be bigger than 0" end
+    if min > max then raise ArgumentError, "max must be bigger than min!" end
+    values = Array.new
+    random = lambda do |num, max, min|
+      open("http://www.random.org/integers/?num=#{num}&min=#{min}&max=#{max}&format=plain&col=1&base=10") do |c|
+        c.each_line {|l| values << l.chop.to_i}
+      end
+    end
+    self.check_quota
+    random.call(numget, max, min)
+    values.uniq!
+    while values.length != numget do
+      random.call(numget - values.length, max, min)
+      values.uniq!
+    end
+    values
+  end
+  
+  #Returns numbers from min to max in random order.
+  
+  def Netrand.order(max, min = 1)
+    if max == 0 then raise ArgumentError, "Maximum number must be bigger than 0" end
+    if min > max then raise ArgumentError, "max must be bigger than min!" end
+    self.check_quota
+    order = Array.new()
+    open("http://www.random.org/sequences/?min=#{min}&max=#{max}&col=1&format=plain&rnd=new") do |c|
+      c.each_line {|l| order << l.chop.to_i}
+    end
+    order
+  end
+  
+  #Generates exception if quota of random.org is exhausted.
+  
+  def Netrand.check_quota
+    open("http://www.random.org/quota/?format=plain") do |c|
+      if c.read.to_i < 0 then raise QuotaExhaustedException, "Random.org quota exhausted, please try again after 0:00 UTC" end
+    end
+  end
+  
+  class QuotaExhaustedException < RuntimeError
+  end
+  
+end

data/tests/Testint.rb

@@ -0,0 +1,17 @@
+require "netrand"
+require "test/unit"
+class Testint < MiniTest::Unit::TestCase
+  
+  def test_not_same
+    nums1 = Netrand.int(3, 100)
+    nums2 = Netrand.int(3, 100)
+    refute_equal(nums1, nums2)
+  end
+  
+  def test_error_handling
+    assert_raises(ArgumentError) {Netrand.int(0, 10)}
+    assert_raises(ArgumentError) {Netrand.int(100, 0)}
+    assert_raises(ArgumentError) {Netrand.int(100, 999999, 9999991)}
+  end
+
+end

data/tests/Testorder.rb

@@ -0,0 +1,20 @@
+require "netrand"
+require "test/unit"
+class Testorder < MiniTest::Unit::TestCase
+  def test_randomization
+    ref = (1..953).to_a
+    refute_equal(ref, Netrand.order(953, 1))
+  end
+  
+  def test_not_same
+    nums1 = Netrand.order(10)
+    nums2 = Netrand.order(10)
+    refute_equal(nums1, nums2)
+  end
+  
+  def test_error_handling
+    assert_raises(ArgumentError) {Netrand.order(3, 10)}
+    assert_raises(ArgumentError) {Netrand.order(0)}
+  end
+  
+end

data/tests/TestuniqInt.rb

@@ -0,0 +1,23 @@
+require "netrand"
+require "test/unit"
+class TestInt < MiniTest::Unit::TestCase
+
+  def test_uniq
+    nums = Netrand.uniqint(150, 10000)
+    assert_equal(nums.uniq.length, nums.length)
+    assert_equal(150, nums.length)
+  end
+  
+  def test_not_same
+    nums1 = Netrand.uniqint(3, 100)
+    nums2 = Netrand.uniqint(3, 100)
+    refute_equal(nums1, nums2)
+  end
+  
+  def test_error_handling
+    assert_raises(ArgumentError) {Netrand.uniqint(0, 10)}
+    assert_raises(ArgumentError) {Netrand.uniqint(100, 0)}
+    assert_raises(ArgumentError) {Netrand.uniqint(100, 999999, 9999991)}
+  end
+
+end

data/tests/test.rb

@@ -0,0 +1,4 @@
+puts "WARNING: This can take looong time!"
+require_relative "TestuniqInt"
+require_relative "Testint"
+require_relative "Testorder"

metadata

@@ -0,0 +1,81 @@
+--- !ruby/object:Gem::Specification 
+name: netrand
+version: !ruby/object:Gem::Version 
+  prerelease: 
+  version: 0.0.1
+platform: ruby
+authors: 
+- "R\xC3\xB3bert Selvek"
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2011-04-22 00:00:00 Z
+dependencies: []
+
+description: |-
+  API
+  ==========
+  
+  Netrand.uniqint(numget, max, min = 0)
+  ------------------------------------------
+  Generates *numget* random numbers using random.org service. You must set maximum and can set minimum number. Returns Array of numbers in which there won't be two same numbers.
+  
+  Netrand.int(numget, max, min = 0)
+  ------------------------------------------
+  Generates *numget* random numbers using random.org service. You must set maximum and can set minimum number. Returns Array of numbers.
+  
+  Netrand.order(max, min = 1)
+  -----------------------------------------
+  Returns numbers from *min* to *max* in random order.
+  
+  Netrand.check_quota
+  ------------------------
+  Generates exception if quota of random.org is exhausted.
+email: me@sellweek.eu
+executables: 
+- netrand
+extensions: []
+
+extra_rdoc_files: []
+
+files: 
+- bin/netrand
+- Examples/random.rb
+- lib/netrand.rb
+- LICENSE
+- Rakefile
+- README.md
+- tests/test.rb
+- tests/Testint.rb
+- tests/Testorder.rb
+- tests/TestuniqInt.rb
+homepage: 
+licenses: []
+
+post_install_message: 
+rdoc_options: []
+
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "1.9"
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+requirements: 
+- Working internet connection
+rubyforge_project: 
+rubygems_version: 1.7.2
+signing_key: 
+specification_version: 3
+summary: Generate true random numbers using random.org
+test_files: []
+