Ludic numbers: Difference between revisions

Content added Content deleted
(Replaced PowerShell with simpler example)
m (→‎{{header|Sidef}}: modified the code to work with Sidef 2.30)
Line 2,480: Line 2,480:
Enumerator({ |collect|
Enumerator({ |collect|
collect(1)
collect(1)
var arr = 2..nmax
var arr = @(2..nmax)
while (arr) {
while (arr) {
collect(var n = arr[0])
collect(var n = arr[0])
Line 2,498: Line 2,498:


var a = ludics_upto(250).to_a
var a = ludics_upto(250).to_a
say("Ludic triples below 250: ", a.grep{|x| a.contains_all([x+2, x+6]) }
say("Ludic triples below 250: ", a.grep{|x| a.contains_all([x+2, x+6]) } \
.map {|x| '(' + [x, x+2, x+6].join(' ') + ')' }
.map {|x| '(' + [x, x+2, x+6].join(' ') + ')' } \
.join(' '))</lang>
.join(' '))</lang>
{{out}}
{{out}}