git.iko.soy/elk
on d53cecf help sign in
elk/core/Native/Random.js
22 lines 463 B history raw
2/*
3import Signal
4*/
6(function() {
8 function inRange(min) { return function(max) {
9 return Elm.Signal.constant(Math.floor(Math.random() * (max-min+1)) + min);
10 };
11 }
13 function randomize(min) { return function(max) { return function(signal) {
14 function f(x) { return Math.floor(Math.random() * (max-min+1)) + min; }
15 return Elm.Signal.lift(f)(signal);
16 };
17 };
18 }
20 Elm.Native.Random = { inRange:inRange, randomize:randomize };
22}());