Constrained random points on a circle: Difference between revisions
Content added Content deleted
Alextretyak (talk | contribs) m (→{{header|11l}}) |
(Add Factor) |
||
Line 1,223: | Line 1,223: | ||
o o</pre> |
o o</pre> |
||
=={{header|Factor}}== |
|||
{{works with|Factor|0.99 2020-01-23}} |
|||
<lang factor>USING: io kernel math.matrices math.order math.ranges |
|||
math.statistics math.vectors random sequences strings ; |
|||
CHAR: X -15 15 [a,b] dup cartesian-product concat |
|||
[ sum-of-squares 100 225 between? ] filter 100 sample |
|||
[ 15 v+n ] map 31 31 32 <matrix> [ matrix-set-nths ] keep |
|||
[ >string print ] each</lang> |
|||
{{out}} |
|||
<pre> |
|||
XX X X |
|||
XX XXX X X X |
|||
X XXX |
|||
XX X X |
|||
X X XX X X X |
|||
X X X |
|||
X X X XXXX |
|||
X X X XXX |
|||
XXX |
|||
X |
|||
XXX XX |
|||
X XX |
|||
X |
|||
X X |
|||
X |
|||
X X |
|||
X |
|||
XXX X |
|||
X X |
|||
XX X |
|||
XX X |
|||
XX X X |
|||
X X |
|||
XXX X X |
|||
X X XX XX |
|||
X X XX X XX |
|||
X X |
|||
</pre> |
|||
=={{header|Falcon}}== |
=={{header|Falcon}}== |