Odd and square numbers
- Task
Find odd and square numbers (>99) under 1.000
F#
<lang fsharp> // Odd and square numbers. Nigel Galloway: November 23rd., 2021 Seq.initInfinite((*)2>>(+)11)|>Seq.map(fun n->n*n)|>Seq.takeWhile((>)1000)|>Seq.iter(printfn "%d") </lang>
- Output:
121 169 225 289 361 441 529 625 729 841 961
Python
<lang python> iimport math szamok=[] limit = 1000
for i in range(1,int(math.ceil(math.sqrt(limit))),2):
num = i*i if (num < 1000 and num > 99):
szamok.append(num)
print(szamok) </lang>
- Output:
[121, 169, 225, 289, 361, 441, 529, 625, 729, 841, 961]
Ring
<lang ring> see "working..." + nl limit = 1000 list = []
for i = 1 to ceil(sqrt(limit)) step 2
num = pow(i,2) if (num < 1000 and num > 99)
add(list,num)
ok
next
showArray(list)
see nl + "done..." + nl
func showArray(array)
txt = "" see "[" for n = 1 to len(array) txt = txt + array[n] + "," next txt = left(txt,len(txt)-1) txt = txt + "]" see txt
</lang>
- Output:
working... [121,169,225,289,361,441,529,625,729,841,961] done...
Wren
<lang ecmascript>import "./trait" for Stepped
System.print("Odd and square numbers under 1,000:") var squares = Stepped.new(11..1000.sqrt.floor, 2).map { |i| i * i }.toList System.print(squares)</lang>
- Output:
Odd and square numbers under 1,000: [121, 169, 225, 289, 361, 441, 529, 625, 729, 841, 961]