4 lines
207 B
Text
4 lines
207 B
Text
|
magic[num_] := Capitalize[ StringRiffle[ Partition[
|
||
|
|
FixedPointList[IntegerName[StringLength[#], "Cardinal"] &, IntegerName[num, "Cardinal"]],
|
||
|
|
2, 1] /. {n_, n_} :> {n, "magic"}, ", ", " is "] <> "."]
|