RosettaCodeData/Task/Happy-numbers/Maple/happy-numbers-3.maple
2023-07-01 13:44:08 -04:00

3 lines
145 B
Text

> n := 1234567890987654321:
> `+`( op( map( parse, StringTools:-Explode( convert( n, 'string' ) ) )^~2) );
570