Casting out nines: Difference between revisions
Content added Content deleted
(Added XPL0 example.) |
mNo edit summary |
||
Line 2,089: | Line 2,089: | ||
[1, 9, 10, 18, 19, 27, 28, 36, 37, 45, 46, 54, 55, 63, 64, 72, 73, 81, 82, 90, 91, 99] |
[1, 9, 10, 18, 19, 27, 28, 36, 37, 45, 46, 54, 55, 63, 64, 72, 73, 81, 82, 90, 91, 99] |
||
[1, 16, 17, 32, 33, 48, 49, 64, 65, 80, 81, 96, 97, 112, 113, 128, 129, 144, 145, 160, 161, 176, 177, 192, 193, 208, 209, 224, 225, 240, 241, 256, 257, 272, 273, 288]</pre> |
[1, 16, 17, 32, 33, 48, 49, 64, 65, 80, 81, 96, 97, 112, 113, 128, 129, 144, 145, 160, 161, 176, 177, 192, 193, 208, 209, 224, 225, 240, 241, 256, 257, 272, 273, 288]</pre> |
||
=={{header|V (Vlang)}}== |
|||
{{trans|Kotlin}} |
|||
<syntaxhighlight lang="Zig"> |
|||
fn main() { |
|||
println(cast_out(16, 1, 255)) |
|||
println("") |
|||
println(cast_out(10, 1, 99)) |
|||
println("") |
|||
println(cast_out(17, 1, 288)) |
|||
} |
|||
fn cast_out(base int, start int, end int) []int { |
|||
mut ran, mut result := []int{}, []int{} |
|||
mut b, mut x, mut k := base - 1, start / b, 0 |
|||
for idx in 0..b { |
|||
if idx % b == (idx * idx) % b {ran << idx} |
|||
} |
|||
for { |
|||
for n in ran { |
|||
k = b * x + n |
|||
if k < start {continue} |
|||
if k > end {return result} |
|||
result << k |
|||
} |
|||
x++ |
|||
} |
|||
return result |
|||
} |
|||
</syntaxhighlight> |
|||
{{out}} |
|||
<pre> |
|||
[1, 6, 10, 15, 16, 21, 25, 30, 31, 36, 40, 45, 46, 51, 55, 60, 61, 66, 70, 75, 76, 81, 85, 90, 91, 96, 100, 105, 106, 111, 115, 120, 121, 126, 130, 135, 136, 141, 145, 150, 151, 156, 160, 165, 166, 171, 175, 180, 181, 186, 190, 195, 196, 201, 205, 210, 211, 216, 220, 225, 226, 231, 235, 240, 241, 246, 250, 255] |
|||
[1, 9, 10, 18, 19, 27, 28, 36, 37, 45, 46, 54, 55, 63, 64, 72, 73, 81, 82, 90, 91, 99] |
|||
[1, 16, 17, 32, 33, 48, 49, 64, 65, 80, 81, 96, 97, 112, 113, 128, 129, 144, 145, 160, 161, 176, 177, 192, 193, 208, 209, 224, 225, 240, 241, 256, 257, 272, 273, 288] |
|||
</pre> |
|||
=={{header|Wren}}== |
=={{header|Wren}}== |
||
{{trans|D}} |
{{trans|D}} |