Data commit

Task/Happy-numbers/Maple/happy-numbers-1.maple

@@ -0,0 +1,8 @@
+SumSqDigits := proc( n :: posint )
+        local s := 0;
+        local m := n;
+        while m <> 0 do
+                s := s + irem( m, 10, 'm' )^2
+        end do;
+        s
+end proc:

Task/Happy-numbers/Maple/happy-numbers-2.maple

@@ -0,0 +1,2 @@
+> SumSqDigits( 1234567890987654321 );
+                                  570

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

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

Task/Happy-numbers/Maple/happy-numbers-4.maple

@@ -0,0 +1,13 @@
+Happy? := proc( n )
+        if n = 1 then
+                true
+        elif n = 4 then
+                false
+        else
+                local s := SumSqDigits( n );
+                while not ( s in { 1, 4 } ) do
+                        s := SumSqDigits( s )
+                end do;
+                evalb( s = 1 )
+        end if
+end proc:

Task/Happy-numbers/Maple/happy-numbers-5.maple

@@ -0,0 +1,3 @@
+> H, S := selectremove( Happy?, [seq]( 1 .. N ) ):
+> nops( H ), nops( S );
+                             143071, 856929

Task/Happy-numbers/Maple/happy-numbers-6.maple

@@ -0,0 +1,11 @@
+FindHappiness := proc( N )
+        local count := 0;
+        local T := table();
+        for local i while count < N do
+                if Happy?( i ) then
+                        count := 1 + count;
+                        T[ count ] := i
+                end if
+        end do;
+        {seq}( T[ i ], i = 1 .. count )
+end proc:

Task/Happy-numbers/Maple/happy-numbers-7.maple

@@ -0,0 +1,2 @@
+> FindHappiness( 8 );
+                     {1, 7, 10, 13, 19, 23, 28, 31}

Task/Happy-numbers/Maple/happy-numbers-8.maple

@@ -0,0 +1,9 @@
+Happy? := proc( n :: posint )
+        local a, b;
+        a, b := n, SumSqDigits( n );
+        while a <> b do
+                a := SumSqDigits( a );
+                b := (SumSqDigits@@2)( b )
+        end do;
+        evalb( a = 1 )
+end proc: