RosettaCodeData/Task/Magnanimous-numbers/Sidef/magnanimous-numbers.sidef
2023-07-01 13:44:08 -04:00

14 lines
377 B
Text

func is_magnanimous(n) {
1..n.ilog10 -> all {|k|
sum(divmod(n, k.ipow10)).is_prime
}
}
say "First 45 magnanimous numbers:"
say is_magnanimous.first(45).join(' ')
say "\n241st through 250th magnanimous numbers:"
say is_magnanimous.first(250).last(10).join(' ')
say "\n391st through 400th magnanimous numbers:"
say is_magnanimous.first(400).last(10).join(' ')