Anonymous user
Perfect numbers: Difference between revisions
→{{header|Lasso}}: added Lasso example
m (→{{header|Julia}}: better layout) |
(→{{header|Lasso}}: added Lasso example) |
||
Line 787:
=={{header|LabVIEW}}==
{{VI solution|LabVIEW_Perfect_numbers.png}}
=={{header|Lasso}}==
<lang lasso>#!/usr/bin/lasso9
define isPerfect(n) => {
#n < 2 ? return false
return #n == (
with i in generateSeries(1, math_floor(math_sqrt(#n)) + 1)
where #n % #i == 0
let q = #n / #i
sum (#q > #i ? (#i == 1 ? 1 | #q + #i) | 0)
)
}
with x in generateSeries(1, 10000)
where isPerfect(#x)
select #x</lang>
Output:
<lang lasso>6, 28, 496, 8128</lang>
=={{header|Liberty BASIC}}==
|