Skip to main content
deleted 59 characters in body
Source Link
Dennis
  • 211.7k
  • 41
  • 380
  • 830

Jelly, 11 bytes

Ṛṙ-µÄ%⁵µṖÄ%⁵:ḊṖẠḊẠ 

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. 

Jelly, 11 bytes

Ṛṙ-µÄ%⁵:ḊṖẠ 

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. Ä Accumulate; take the cumulative sum of D. %⁵ 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. 

Jelly, 11 bytes

Ṛṙ-µṖÄ%⁵:ḊẠ 

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 the 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. Ạ All; return 1 if all quotients are truthy, 0 if not. 
added 836 characters in body
Source Link
Dennis
  • 211.7k
  • 41
  • 380
  • 830

Jelly, 11 bytes

Ṛṙ-µÄ%⁵:ḊṖẠ 

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. Ä Accumulate; take the cumulative sum of D. %⁵ 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. 

Jelly, 11 bytes

Ṛṙ-µÄ%⁵:ḊṖẠ 

Try it online!

Jelly, 11 bytes

Ṛṙ-µÄ%⁵:ḊṖẠ 

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. Ä Accumulate; take the cumulative sum of D. %⁵ 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. 
Source Link
Dennis
  • 211.7k
  • 41
  • 380
  • 830

Jelly, 11 bytes

Ṛṙ-µÄ%⁵:ḊṖẠ 

Try it online!