git.iko.soy/elk
on dcbe2fc help sign in
elk/libraries/Native/Signal/Random.js
23 lines 575 B history raw
1Elm.Native.Random = {};
2Elm.Native.Random.make = function(elm) {
4 elm.Native = elm.Native || {};
5 if (elm.Native.Random) return elm.Native.Random;
7 var Signal = Elm.Signal.make(elm);
9 function range(min, max, signal) {
10 function f(x) { return Math.floor(Math.random() * (max-min+1)) + min; }
11 return A2( Signal.lift, f, signal );
12 }
14 function flt(signal) {
15 function f(x) { return Math.random(); }
16 return A2( Signal.lift, f, signal );
17 }
19 elm.Native.Random = { range: F3(range) };
20 elm.Native.Random['float'] = flt;
21 return elm.Native.Random;
23};