Revision 4865a8bd-0e01-40f9-8c67-b8008cdeeab4 - Code Golf Stack Exchange
# [Jelly], <s>12</s> 11 bytes
ṚḤJḤ$¦DFS⁵ḍ
[Try it online!][TIO-j91hv3q7] (with all test cases)
[Jelly]: https://github.com/DennisMitchell/jelly
[TIO-j91hv3q7]: https://tio.run/##y0rNyan8///hzlkPdyzxAmKVQ8tc3IJVHzVuPbTm/@H2h7u7HzXMCSkqTQVSbok5xUB67qGtj5rWRP7/H21iaWlkbmxpYW5opqOA4JjrKBgaGZuYmplbQGkDDBELHQVzuAYDZI4hMscImWOMzDFB5pgic8yQOebIHBRLLXUUjM1NzEyB7jGzBLkIwgDRZpYmFqbmZpZAFohhbGZhYm4KJInXYWEO9KSFMdCRQE0GsQA "Jelly – Try It Online"
## How it works
ṚḤJḤ$¦DFSḍ⁵ - Main link. Argument: n (integer) e.g. 49927398716
Ṛ - Reverse. Casts a number to digits [6, 1, 7, 8, 9, 3, 7, 2, 9, 9, 4]
¦ - Sparse application. Apply the next command to the given indicies
Ḥ - Command: Double
$ - Indicies:
J - range(length)... [1, 2 , 3, 4, 5, 6, 7, 8, 9, 10, 11]
Ḥ - doubled. [2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 22]
- Doubles elements at odd indicies [6, 2, 7, 16, 9, 6, 7, 4, 9, 18, 4]
D - Split each into digits [6, 2, 7, [1, 6], 9, 6, 7, 4, 9, [1, 8], 4]
F - Flatten [6, 2, 7, 1, 6, 9, 6, 7, 4, 9, 1, 8, 4]
S - Sum 70
ḍ - Divisible by...
⁵ - 10? 1
Alternatively, for 12 bytes:
ṚḤJḤ$¦DFSḍ@⁵