Constrained random points on a circle: Difference between revisions
Constrained random points on a circle (view source)
Revision as of 23:03, 14 February 2020
, 4 years agoAdd Factor
Alextretyak (talk | contribs) m (→{{header|11l}}) |
(Add Factor) |
||
Line 1,223:
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}}==
| |||