lib/random.lua

   1 -- Swamp Bike Opera embedded system for Kaffe Matthews
   2 -- Copyright (C) 2012 Wolfgang Hauptfleisch, Dave Griffiths
   3 --
   4 -- This program is free software: you can redistribute it and/or modify
   5 -- it under the terms of the GNU General Public License as published by
   6 -- the Free Software Foundation, either version 3 of the License, or
   7 -- (at your option) any later version.
   8 --
   9 -- This program is distributed in the hope that it will be useful,
  10 -- but WITHOUT ANY WARRANTY; without even the implied warranty of
  11 -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12 -- GNU General Public License for more details.
  13 --
  14 -- You should have received a copy of the GNU General Public License
  15 -- along with this program.  If not, see <http://www.gnu.org/licenses/>.
  16
  17 module("random", package.seeall)
  18
  19 require 'posix'
  20 require 'socket'
  21
  22 function by_probability(probability)
  23
  24    local hey = math.random(1, 100)
  25    if hey <= probability then
  26       return true
  27    end
  28
  29 return false
  30 end
  31
  32
  33
  34 function now()
  35
  36 local d = {
  37     HOUR_OF_DAY = tonumber(os.date("%H")) ,
  38     DAY_OF_WEEK = tonumber(os.date("%w")) ,
  39     DAY_OF_MONTH = tonumber(os.date("%d")) ,
  40     MONTH_OF_YEAR = tonumber(os.date("%m"))
  41 }
  42
  43 return d
  44 end
  45
  46
  47 function animal()
  48
  49 local a = math.random(31, 39)
  50 return a
  51
  52 end
  53
  54 function channel()
  55
  56 local a = math.random(1,2)
  57 local channel
  58
  59 if a == 1 then
  60   channel = "left"
  61 else
  62  channel = "right"
  63 end
  64
  65 return channel
  66
  67 end
  68
  69 --print(now().HOUR_OF_DAY)
  70 --print(now().DAY_OF_MONTH)
  71 --print(now().MONTH_OF_YEAR)
  72 --print(now().DAY_OF_WEEK)