Ulam numbers: Difference between revisions
Added Easylang
(Ada version!) |
(Added Easylang) |
||
Line 560:
</pre>
=={{header|EasyLang}}==
{{trans|Ring}}
<syntaxhighlight>
func getulam n .
ulam[] = [ 1 2 ]
i = 3
repeat
cnt = 0
for x = 1 to len ulam[] - 1
for y = x + 1 to len ulam[]
if ulam[x] + ulam[y] = i
cnt += 1
.
.
.
if cnt = 1
ulam[] &= i
.
until len ulam[] = n
i += 1
.
return i
.
print getulam 100
</syntaxhighlight>
{{out}}
<pre>
690
</pre>
=={{header|FreeBASIC}}==
| |||