Data update

Task/Random-numbers/ANSI-BASIC/random-numbers.basic

@@ -0,0 +1,19 @@
+100 REM Random numbers
+110 RANDOMIZE
+120 DEF RandomNormal = COS(2 * PI * RND) * SQR(-2 * LOG(RND))
+130 DIM R(0 TO 999)
+140 LET Sum = 0
+150 FOR I = 0 TO 999
+160    LET R(I) = 1 + RandomNormal / 2
+170    LET Sum = Sum + R(I)
+180 NEXT I
+190 LET Mean = Sum / 1000
+200 LET Sum = 0
+210 FOR I = 0 TO 999
+220    LET Sum = Sum + (R(I) - Mean) ^ 2
+230 NEXT I
+240 LET SD = SQR(Sum / 1000)
+250 PRINT "Mean is              "; Mean
+260 PRINT "Standard Deviation is"; SD
+270 PRINT
+280 END

Task/Random-numbers/QuickBASIC/random-numbers.basic

@@ -0,0 +1,7 @@
+RANDOMIZE TIMER 'seeds random number generator with the system time
+pi = 3.141592653589793#
+DIM a(1 TO 1000) AS DOUBLE
+CLS
+FOR i = 1 TO 1000
+  a(i) = 1 + SQR(-2 * LOG(RND)) * COS(2 * pi * RND)
+NEXT i

Task/Random-numbers/Uiua/random-numbers.uiua

@@ -0,0 +1,6 @@
+# Generate normal distribution with mean = 1, sd = 0.5
+Gauss ← (×(∿+η××2π⚂) (√ׯ2ₙe⚂))
+[⍥(+1×0.5Gauss)1000] # -> mean = 1, sd = 0.5
+Mean ← ÷⧻⟜/+
+Sd ← √÷⊃(⋅⧻|/+×.-)Mean.
+⊸⊃Sd Mean