Data update

Task/Modified-random-distribution/ALGOL-68/modified-random-distribution.alg

@@ -0,0 +1,44 @@
+BEGIN # Modified random distribution - translation of the Wren sample #
+
+    next random; # initialise the random number generator #
+
+    PROC rng = ( PROC(REAL)REAL modifier )REAL:
+         BEGIN
+            REAL r1, r2;
+            WHILE
+                r1 := random;
+                r2 := random;
+                r2 >= modifier( r1 )
+            DO SKIP OD;
+            r1
+         END # rng # ;
+
+    PROC modifier = ( REAL x )REAL: 2 * ABS ( 0.5 - x );
+
+    INT  n              = 100 000;
+    INT  num bins       = 21;
+    REAL bin size       = 1 / num bins;
+    CHAR hist char      = "#";
+    INT  hist char size = 125;
+    [ 0 : num bins - 1 ]INT  bins ; FOR i FROM LWB bins TO UPB bins DO bins[ i ] := 0 OD;
+    FOR i FROM 0 TO n DO
+        bins[ ENTIER ( rng( modifier ) / bin size ) ] +:= 1
+    OD;
+
+    PROC f2 = ( REAL v )STRING:        # formatting routine #
+         BEGIN
+            STRING result := fixed( ABS v, 0, 2 );
+            IF result[ LWB result ] = "." THEN "0" +=: result FI;
+            IF v < 0 THEN "-" +=: result FI;
+            result
+         END # FMT # ;
+
+    print( ( "Modified random distribution with ", whole( n, 0 ), " samples in range [0, 1):", newline ) );
+    print( ( "    Range       Number of samples within that range", newline ) );
+    FOR i FROM LWB bins TO UPB bins DO
+        STRING hist = hist char * ROUND ( bins[ i ] / hist char size );
+        print( ( f2( bin size * i ), " ..< " ) );
+        print( ( f2( bin size * ( i + 1 ) ), "  ", whole( bins[ i ], -5 ), " ", hist, newline ) )
+    OD
+
+END

Task/Modified-random-distribution/JavaScript/modified-random-distribution.js

@@ -0,0 +1,36 @@
+function modifier(x) { return (x < .5 ? -1 : +1)*(2*(x-.5)) }
+
+function random(m) {
+  let random1, random2;
+  while (true) {
+    random1 = Math.random();
+    random2 = Math.random();
+    if (random2 < m(random1)) {
+      return random1;
+    }
+  }
+}
+
+const N = 10000;
+const bins = 20;
+var numbers = [];
+for (i=0;i<N;i++) {
+  let number = random(modifier);
+  numbers.push(number);
+}
+
+const delta = 1.0/bins;
+var count = 0;
+for (ceil=delta; ceil<1.0+delta; ceil+=delta) {
+  for (n of numbers) {
+    if ((n < ceil) && (ceil - delta <= n)) {
+      count++;
+    }
+  }
+  let width = count/N * 80;
+  let bar = '';
+
+  for (i = 0; i<width; i++) bar+='#';
+  console.log(bar);
+  count = 0;
+}

Task/Modified-random-distribution/UNIX-Shell/modified-random-distribution.sh

@@ -0,0 +1,32 @@
+# NOTE: In bash, RANDOM returns an integer from 0 to 32767 (2**15-1)
+random() {
+  local m="$1"
+  local -i random1 random2
+  while true
+  do
+    random1=RANDOM
+    random2=RANDOM
+    if ((random2 < $("$m" $random1)))
+    then echo $random1; break
+    fi
+  done
+}
+
+modifier() {
+  local -i x=$1
+  echo $((x < 2**14 ? 2**14 - x : x - 2**14 ))
+}
+
+declare -i N=10000 bins=20
+declare -a histogram
+for ((i=0;i<N;i++))
+do ((histogram[bins*$(random modifier)/2**15]++))
+done
+
+for ((i=0;i<bins;i++))
+do
+  for ((j=0;j< ${histogram[i]-0}*bins*50/N;j++))
+  do echo -n '#'
+  done
+  echo
+done

Task/Modified-random-distribution/Wren/modified-random-distribution.wren

@@ -1,5 +1,5 @@
 import "random" for Random
-import "/fmt" for Fmt
+import "./fmt" for Fmt
 
 var rgen = Random.new()