Constrained random points on a circle: Difference between revisions
Constrained random points on a circle (view source)
Revision as of 16:07, 9 December 2023
, 5 months ago→{{header|Sidef}}: updated code
(Added Easylang) |
m (→{{header|Sidef}}: updated code) |
||
Line 3,941:
{{trans|Perl}}
Generates an EPS file.
<syntaxhighlight lang="ruby">var points = []
while (points.len < 100) {
var (x, y) = 2.of{
var r2 = (x**2 + y**2)
if ((r2 >= 100) && (r2 <= 225)) {
points.append([x, y])
}
}
print <<'HEAD'
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox 0 0 400 400
Line 3,962:
HEAD
points.each { |pt| say "#{pt.join(' ')} pt" }
print '%%EOF'
=={{header|Standard ML}}==
| |||