Hello everyone. I have an issue with my formula that is crashing list of numbers into one digit and than colorize it in different colors :
data = FixedPoint[IntegerDigits /* Total, #] & /@
Table[Fibonacci[n], {n, 99}] /. {r : (1 | 4 | 7) :> Style[r, Red],
g : (2 | 5 | 8) :> Style[g, Green],
b : (3 | 6 | 9) :> Style[b, Blue]}
Partition[data, 4] // TableForm
it is working great!
but now i need to do the same process with a grid of defined numbers ( not fibonacci sequence )
like this one :
1635,3270,6541,13082,26163,52326,104652,209304,418608, 1732,3465,6930,13859,27718,55436,110872,221744,443488, 1835,3671,7342 14683,29366,58732,117464,234928,469856, 1945,3889,7778,15557,31113,62226,124452,248904,497808, 2060,4120,8241,16482,32963,65926,131852,263704,527408, 2183,4365,8731,17462,34923,69846,139692,279384,558768, 2312,4625,9250,18500,36999,73998,147996,295992,591984, 2450,4900,9800,19600,39200,78400,156800,313600,627200, 2596,5191,10383,20765,41530,83060,166120,332240,664480, 2750,5500,11000,22000,44000,88000,176000,352000,704000, 2914,5827,11654,23308,46616,93232,186464,372928,745856, 3087,6174,12347,24694,49388,98776,197552,395104,790208,
could you please correct the formula where i can insert a grig of numbers and it will crash numbers to one ditit and colorize it based on values in a formula ?