aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2023-12-16 21:33:55 -08:00
parent 35bcdeebf8
commit 74c69a0df6
2427 changed files with 31826 additions and 3468 deletions
Download patch file Download diff file Expand all files Collapse all files

10
Task/Constrained-random-points-on-a-circle/EasyLang/constrained-random-points-on-a-circle.easy Normal file
View file

@ -0,0 +1,10 @@
while cnt < 100
x = random 31 - 16
y = random 31 - 16
r = sqrt (x * x + y * y)
if 10 <= r and r <= 15
cnt += 1
move 50 + x * 2 50 + y * 2
circle 1
.
.

14
Task/Constrained-random-points-on-a-circle/Sidef/constrained-random-points-on-a-circle.sidef
View file

@ -1,13 +1,13 @@
var points = [];
var points = []
while (points.len < 100) {
var (x, y) = 2.of{31.rand.int - 15}...;
var r2 = (x**2 + y**2);
var (x, y) = 2.of{ 30.irand - 15 }...
var r2 = (x**2 + y**2)
if ((r2 >= 100) && (r2 <= 225)) {
points.append([x, y]);
points.append([x, y])
}
}
print <<'HEAD';
print <<'HEAD'
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox 0 0 400 400
200 200 translate 10 10 scale
@ -19,5 +19,5 @@ print <<'HEAD';
/pt { .1 0 360 arc fill } def
HEAD
points.each { |pt| say "#{pt.join(' ')} pt" };
print '%%EOF';
points.each { |pt| say "#{pt.join(' ')} pt" }
print '%%EOF'