lib/standard/math.nit

   1 # This file is part of NIT ( http://www.nitlanguage.org ).
   2 #
   3 # Copyright 2004-2008 Jean Privat <jean@pryen.org>
   4 #
   5 # This file is free software, which comes along with NIT.  This software is
   6 # distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY;
   7 # without  even  the implied warranty of  MERCHANTABILITY or  FITNESS FOR A
   8 # PARTICULAR PURPOSE.  You can modify it is you want,  provided this header
   9 # is kept unaltered, and a notification of the changes is added.
  10 # You  are  allowed  to  redistribute it and sell it, alone or is a part of
  11 # another product.
  12
  13 # Mathematical operations
  14 module math
  15
  16 import kernel
  17 import collection
  18
  19 redef class Int
  20         fun rand: Int is extern "kernel_Int_Int_rand_0"
  21         fun bin_and(i: Int): Int is extern "kernel_Int_Int_binand_0"
  22         fun bin_or(i: Int): Int is extern "kernel_Int_Int_binor_0"
  23         fun bin_xor(i: Int): Int is extern "kernel_Int_Int_binxor_0"
  24         fun sqrt : Int is extern `{ return sqrtl(recv); `}
  25         fun sin : Int is extern `{ return sinl(recv); `}
  26         fun cos : Int is extern `{ return cosl(recv); `}
  27 end
  28
  29 redef class Float
  30         fun sqrt: Float is extern "kernel_Float_Float_sqrt_0"
  31         fun cos: Float is extern "kernel_Float_Float_cos_0"
  32         fun sin: Float is extern "kernel_Float_Float_sin_0"
  33         fun tan: Float is extern "kernel_Float_Float_tan_0"
  34         fun acos: Float is extern "kernel_Float_Float_acos_0"
  35         fun asin: Float is extern "kernel_Float_Float_asin_0"
  36         fun atan: Float is extern "kernel_Float_Float_atan_0"
  37
  38         fun pow(e: Float): Float is extern "kernel_Float_Float_pow_1"
  39         fun log: Float is extern "kernel_Float_Float_log_0"
  40         fun exp: Float is extern "kernel_Float_Float_exp_0"
  41
  42         fun rand: Float is extern "kernel_Float_Float_rand_0"
  43         fun hypot_with( b : Float ) : Float is extern "hypotf"
  44 end
  45
  46 redef class Collection[ E ]
  47         # Return a random element in the collection
  48         fun rand : nullable E
  49         do
  50                 if is_empty then return null
  51                 var rand_index = length.rand
  52
  53                 for e in self do
  54                         if rand_index == 0 then return e
  55                         rand_index -= 1
  56                 end
  57                 abort
  58         end
  59 end
  60
  61 fun atan2(x: Float, y: Float): Float is extern "kernel_Any_Any_atan2_2"
  62 fun pi: Float is extern "kernel_Any_Any_pi_0"
  63 fun srand_from(x: Int) is extern "kernel_Any_Any_srand_from_1"
  64 fun srand is extern "kernel_Any_Any_srand_0"