Ulam spiral (for primes): Difference between revisions
m
→{{header|Wren}}: Minor tidy
m (→{{header|Quackery}}: tidies up commentary) |
m (→{{header|Wren}}: Minor tidy) |
||
| (4 intermediate revisions by 2 users not shown) | |||
Line 1,542:
</pre>
=={{header|EasyLang}}==
[https://easylang.dev/show/#cod=bZHdUsMgEIXveYqd8c5OmdTaC2eap0mIoglEIDX49LILi0w1F4HDfucsP9NmBtB+dXoBsy0gBQDoieZXeEKVPqfC5gx0KDMBfS5+velZJXntwX+6gL7iKSGLHYnuyvJdGgdS5qGHU21RqJOQwgAW9vS/dCLmYdxpcYyU/QBidXYAssh6igLlfBLclHxUUTOCsQVjC6Lr2JC/+t9MRr1qkb/RMp2LtuyDWnnLpl7BjrNkfcwykowsF3tTCYnlmPx+TaNBuyE9TCcv3CyoPXj9reAsqn02r3x9k3XwAcHC8ws6cFc4InEob42XiyOi74hi8VhbskUyo5E5lyqb7/xlqbFzAu75Bw== Run it]
<syntaxhighlight>
func isprim num .
if num < 2
return 0
.
i = 2
while i <= sqrt num
if num mod i = 0
return 0
.
i += 1
.
return 1
.
n = 1
x = 50
y = 50
dx = 1
dy = 0
#
proc turn . .
if dx = 1
dx = 0
dy = 1
elif dy = 1
dy = 0
dx = -1
elif dx = -1
dx = 0
dy = -1
else
dx = 1
dy = 0
.
.
proc step . .
n += 1
x += dx * 1
y += dy * 1
move x y
if isprim n = 1
circle 0.5
.
.
textsize 3
move x y
lng = 0
#
for k to 49
step
lng += 2
turn
for j to lng - 1
step
.
for i to 3
turn
for j to lng
step
.
.
.
</syntaxhighlight>
=={{header|EchoLisp}}==
Line 4,469 ⟶ 4,538:
=={{header|Quackery}}==
<code>isprime</code> is defined at [[Primality by trial division#Quackery]].▼
<code>spiral</code> is defined at [[Spiral matrix#Quackery]].
▲<code>isprime</code> is defined at [[Primality by trial division#Quackery]].
<syntaxhighlight lang="Quackery">
witheach
[ witheach
[
isprime
{{out}}
<pre>
. . . o . o . . . . . o . . . o . . . . . . . . . .
. . . . . . . . . . . . . . o . . . o . o . . .
. .
. o . o . . . . . o . o . . . . . o
. . . . . . . .
. . . . . o
o . . . o . . . . . . .
. .
. . o . . . . . o . . . o . o . . . . . . . . . . . . .
. . . . . .
o . . . o . . . o . o . . . o . . . . . . . o . . . o .
. . . . . . . . . .
. o . o . o . o . o . o . o . . . o . . . . . . . o
. . . . . . . . . . . . . . o .
. .
. . o . . . . . . . o . o . o . . . . .
. . . . . .
o . . .
. . . o . . . o . . . o . . . . . o . . . .
. . . . . . . . . . . .
. . . . . .
. . . . o . . .
. . . . . o . . . . . o . . . o . o
. o
. o . o . . . . . o . . . .
o . . . . . . . o . . . . . . .
. . . . . . . . . o . o . . . o . o . . . . . . . . . o . . . .
. . . . . . o . . . o . . . . . o . . . . . o . . . . . . . . .
</pre>
Line 5,736 ⟶ 5,805:
{{libheader|Wren-str}}
{{libheader|Wren-fmt}}
<syntaxhighlight lang="
import "./math" for Int
import "./str" for Char
import "./fmt" for Fmt
var Direction = Enum.create("Direction", ["right", "up", "left", "down"])
| |||