RosettaCodeData/Task/Happy-numbers/Maple/happy-numbers-3.maple

4 lines
145 B
Text
Raw Permalink Normal View History

2013-04-10 21:29:02 -07:00
> n := 1234567890987654321:
> `+`( op( map( parse, StringTools:-Explode( convert( n, 'string' ) ) )^~2) );
570