Giuga numbers: Difference between revisions
→{{header|Ruby}}
(→{{header|ALGOL 68}}: Must spell Giuga correctly) |
|||
Line 1,401:
{{out}}
<pre>First 4 Giuga numbers: 30 858 1722 66198</pre>
=={{header|Ring}}==
<syntaxhighlight lang="ring">
see "working..." + nl
see "The first 4 Giuga numbers are:" + nl
load "stdlibcore.ring"
Comp = []
num = 0
n = 1
while true
n++
if not isPrime(n)
Comp = []
for p = 1 to n
if isPrime(p) AND (n % p = 0)
add(Comp,p)
ok
next
flag = 1
for ind = 1 to len(Comp)
f = Comp[ind]
res = (n/f)- 1
if res % f = 0
flag = 1
else
flag = 0
exit
ok
next
if flag = 1
see "" + n + " "
num++
ok
if num = 4
exit
ok
ok
end
see nl + "done..." + nl
</syntaxhighlight>
{{out}}
<pre>
working...
The first 4 Giuga numbers are:
30 858
done...
working...
The first 4 Giuga numbers are:
30 858 1722 66198
done...
</pre>
=={{header|Ruby}}==
| |||