Write out the digits with their sizes proportional to their values. Try scaling factors other than 10—for example, 5:
This writes the digit 5 in a 50-point font (a “point” is a printer’s measure equal to 1/72 inch):
Style[5, 50]
This writes the digits from 1 to 5 in font sizes proportional to their values:
{Style[1, 10], Style[2, 20], Style[3, 30], Style[4, 40], Style[5, 50]}
A more efficient way to write the same thing uses a pure function. This is a pure function that adds 3 to a number:
(# + 3) &
Use it to add 3 to 5:
(# + 3) &[5]
Use the pure function to add 3 to every element of a list:
(# + 3) & /@ {1, 2, 3, 4, 5}
You can apply styles with pure functions. This makes the font size of each digit proportional to its value. It’s the same result that you saw before:
Style[#, 10 #] & /@ {1, 2, 3, 4, 5}
Use Row to turn the list into a row of digits without braces or commas:
Row[Style[#, 10 #] & /@ {1, 2, 3, 4, 5}]
Do the same thing with the first 100 digits of π :
Row[Style[#, 10 #] & /@ First[RealDigits[Pi, 10, 100]]]
Row[Style[#, 10 #] & /@ First[RealDigits[Pi, 10, 100]]]