Magnanimous numbers: Difference between revisions

Content added Content deleted
(Added Visual Basic .NET version)
(→‎{{header|Ruby}}: added Ruby)
Line 1,140: Line 1,140:
Magnanimous numbers 241-250:
Magnanimous numbers 241-250:
[17992,19972,20209,20261,20861,22061,22201,22801,22885,24407]
[17992,19972,20209,20261,20861,22061,22201,22801,22885,24407]
</pre>
=={{header|Ruby}}==
{{trans|Sidef}}
<lang ruby>magnanimouses = Enumerator.new do |y|
(0..).each {|n| y << n if (1..(n.digits.size-1)).all? {|k| (n.divmod(10**k)).sum.prime?} }
end

puts "First 45 magnanimous numbers:"
puts magnanimouses.first(45).join(' ')
puts "\n241st through 250th magnanimous numbers:"
puts magnanimouses.first(250).last(10).join(' ')
puts "\n391st through 400th magnanimous numbers:"
puts magnanimouses.first(400).last(10).join(' ')
</lang>
{{out}}
<pre>First 45 magnanimous numbers:
0 1 2 3 4 5 6 7 8 9 11 12 14 16 20 21 23 25 29 30 32 34 38 41 43 47 49 50 52 56 58 61 65 67 70 74 76 83 85 89 92 94 98 101 110

241st through 250th magnanimous numbers:
17992 19972 20209 20261 20861 22061 22201 22801 22885 24407

391st through 400th magnanimous numbers:
486685 488489 515116 533176 551558 559952 595592 595598 600881 602081
</pre>
</pre>