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