git.iko.soy/elk
on 402f048 help sign in
elk/libraries/Native/Signal/Random.js
24 lines 609 B history raw
1Elm.Native.Random = {};
2Elm.Native.Random.make = function(elm) {
4 elm.Native = elm.Native || {};
5 elm.Native.Random = elm.Native.Random || {};
6 if (elm.Native.Random.values) return elm.Native.Random.values;
8 var Signal = Elm.Signal.make(elm);
10 function range(min, max, signal) {
11 function f(x) { return Math.floor(Math.random() * (max-min+1)) + min; }
12 return A2( Signal.lift, f, signal );
13 }
15 function flt(signal) {
16 function f(x) { return Math.random(); }
17 return A2( Signal.lift, f, signal );
18 }
20 return elm.Native.Random.values = {
21 range: F3(range),
22 flt: flt
23 };
24};