Random numbers: Difference between revisions
Added Uiua solution
(→{{header|BASIC}}: Added ANSI BASIC.) |
(Added Uiua solution) |
||
Line 2,778:
<syntaxhighlight lang="tqs">for (%i = 0; %i < 1000; %i++)
%list[%i] = 1 + mSqrt(-2 * mLog(getRandom())) * mCos(2 * $pi * getRandom());</syntaxhighlight>
=={{header|Uiua}}==
[https://www.uiua.org/pad?src=0_12_0-dev_1__IyBHZW5lcmF0ZSBub3JtYWwgZGlzdHJpYnV0aW9uIHdpdGggbWVhbiA9IDEsIHNkID0gMC41CkdhdXNzIOKGkCAow5co4oi_K863w5fDlzLPgOKagikgKOKImsOXwq8y4oKZZeKagikpClvijaUoKzHDlzAuNUdhdXNzKTEwMDBdICMgLT4gbWVhbiA9IDEsIHNkID0gMC41Ck1lYW4g4oaQIMO34qe74p-cLysKU2Qg4oaQIOKImsO34oqDKOKLheKnu3wvK8OXLi0pTWVhbi4K4oq44oqDU2QgTWVhbgo= Run it in Uiua Pad]
<syntaxhighlight lang="uiua">
# 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
</syntaxhighlight>
{{out}}
<pre>
[0.5549431582333864 0.6318745755493541 0.243308532933335 ...etc...]
1.026433943526625
0.4953224276300106
</pre>
=={{header|Ursala}}==
| |||