# Copyright (C) 2005-2009, Parrot Foundation.
# $Id: random_lib.pir 38369 2009-04-26 12:57:09Z fperrad $
# used by examples/shootout/random.pir and others
# by Joshua Isom

.const int IM = 139968
.const int IA = 3877
.const int IC = 29573

.sub init :load :anon
    .local pmc last
    last = new 'Integer'
    last = 42
    global "_last_seed" = last
.end

.sub gen_random
    .param num max
    .local pmc last
    last = global "_last_seed"
        $I0 = last
    $I0 *= IA
    $I0 += IC
    $I0 %= IM
        last = $I0
        $N0 = $I0
        $N1 = IM
    $N0 *= max
    $N0 /= $N1
    .return($N0)
.end


# Local Variables:
#   mode: pir
#   fill-column: 100
# End:
# vim: expandtab shiftwidth=4 ft=pir:
