Sequence of non-squares: Difference between revisions

Sequence of non-squares (view source)

79 bytes added , 3 years ago

Replaced "round.int" by "toInt". Simplified "issqr". Replaced "proc" by "func". Improved output.

Anonymous user

Revision as of 07:34, 6 March 2021 (view source) Alextretyak (talk \| contribs) (Added 11l) ← Older edit		Revision as of 17:30, 5 April 2021 (view source) rosettacode>Lscrd (Replaced "round.int" by "toInt". Simplified "issqr". Replaced "proc" by "func". Improved output.) Newer edit →
Line 1,609: =={{header\|Nim}}== <lang nim>import math, strutils ~~proc~~func nosqr(n: int): seq[int] = result = newSeq[int] (n) for i in 1..n: result[i - 1] = i + i.float.sqrt.~~round.int~~toInt ~~proc~~func issqr(n: int): bool =▼ sqrt(float(n)).splitDecimal().floatpart < 1e-7 ▲proc issqr(n: int): bool = echo "Sequence for n = 22:" ~~let sqr = sqrt(float(n))~~ echo nosqr(22).join(" ") ~~let err = abs(sqr - float(round(sqr)))~~ ~~err < 1e-7~~ ~~echo~~for i in nosqr(221_000_000 - 1): assert( not issqr(i)~~)</lang>~~▼ ~~for i in nosqr(1_000_000):~~ echo "\nNo squares were found for n less than 1_000_000."</lang> ▲ assert(not issqr(i))</lang> {{out}} <pre>@[2, 3, 5, 6, 7, 8, 10, 11, 12, 13, 14, 15, 17, 18, 19, 20, 21, 22, 23, 24, 26, 27]</pre>