Ṛṙ-µÄ%⁵µṖÄ%⁵:ḊṖẠḊẠ
Try it online!Try it online!
How it works
Ṛṙ-µÄ%⁵µṖÄ%⁵:ḊṖẠḊẠ Main link. Argument: n Ṛ Reverse n, after casting it to a digit list. ṙ- Rotate the result -1 units to the left, i.e., 1 unit to the right. Let's call the resulting digit list D. µ Begin a new chain with argument D. ÄṖ Pop; remove the last digit. Ä Accumulate; take the cumulative sum of Dthe remaining digits. %⁵ %⁵ Take the sums modulo 10. Ḋ Ḋ Dequeue; yield D without its first digit. : : Perform integer division between the results to both sides. Integer division is truthy iff greater-or-equal is truthy. Ṗ Pop; remove the last result. This is required because the list to the right is shorter. Ạ All; return 1 if all quotients are truthy, 0 if not.