Skip to main content
Commonmark migration
Source Link

#Mathematica, 67 Bytes#

Mathematica, 67 Bytes

MatrixForm@NestList[Mod[Total/@Partition[#,2,1],10]&,#,Length@#-1]&

Example:enter image description here

#Mathematica, 67 Bytes#

MatrixForm@NestList[Mod[Total/@Partition[#,2,1],10]&,#,Length@#-1]&

Example:enter image description here

Mathematica, 67 Bytes

MatrixForm@NestList[Mod[Total/@Partition[#,2,1],10]&,#,Length@#-1]&

Example:enter image description here

Source Link
A Simmons
  • 4.6k
  • 1
  • 13
  • 21

#Mathematica, 67 Bytes#

MatrixForm@NestList[Mod[Total/@Partition[#,2,1],10]&,#,Length@#-1]&

Example:enter image description here