Eine Glückszahl wird durch den folgenden Prozess definiert. Beginnen Sie mit einer positiven ganzen Zahl, ersetzen Sie die Zahl durch die Summe der Quadrate ihrer Ziffern und wiederholen Sie den Vorgang, bis die Zahl gleich 1 ist (wo sie verbleibt), oder sie wiederholt sich endlos in einem Zyklus, der nicht 1 enthält. Diese Zahlen für die dieser Prozess mit 1 endet, sind glückliche Zahlen, während diejenigen, die nicht mit 1 enden, unglückliche Zahlen (oder traurige Zahlen) sind. Gegeben, eine Zahl drucken, ob es glücklich oder unglücklich ist.

Sample Inputs
7
4
13

Sample Outputs
Happy
Unhappy
Happy

Hinweis: Ihr Programm sollte für Zahlen unter 1.000.000.000 nicht länger als 10 Sekunden dauern.

Golfscript - 34 Zeichen

~{0\`{48-.*+}/}9*1="UnhH"3/="appy"

Im Grunde dasselbe wie dieses und diese .

Der Grund für 9 Iterationen ist in diesen Kommentaren beschrieben (dies liefert theoretisch korrekte Werte bis zu ungefähr 10^10^10^974( A001273 )).

Ruby, 77 Zeichen

a=gets.to_i;a=eval"#{a}".gsub /./,'+\&**2'until a<5
puts a<2?:Happy: :Unhappy

C - 115

char b[1<<30];a;main(n){for(scanf("%d",&n);b[n]^=1;n=a)for
(a=0;a+=n%10*(n%10),n/=10;);puts(n-1?"Unhappy":"Happy");}

Dies verwendet ein 2 ^30- Byte-Array (1 GB) als Bitmap, um zu verfolgen, welche Zahlen im Zyklus aufgetreten sind. Unter Linux funktioniert dies tatsächlich und effizient, vorausgesetzt, die Speicherüberlastung ist aktiviert (was normalerweise die Standardeinstellung ist). Bei einem Overcommitting werden Seiten des Arrays bei Bedarf zugewiesen und auf Null gesetzt.

Beachten Sie, dass beim Kompilieren dieses Programms unter Linux ein Gigabyte RAM benötigt wird.

Haskell - 77

f 1="Happy"
f 4="Unhappy"
f n=f$sum[read[c]^2|c<-show n]
main=interact$f.read

Golfscript, 49 43 41 40 39 Zeichen

~{0\10base{.*+}/.4>}do(!"UnhH"3/="appy"

Jede glückliche Zahl konvergiert zu 1; Jede unglückliche Zahl konvergiert zu einem Zyklus, der 4 enthält. Abgesehen davon, dass diese Tatsache ausgenutzt wird, wird hier kaum Golf gespielt.

(Dank an Ventero, von dessen Ruby-Lösung ich einen Trick geklaut und 6 Zeichen gespart habe).

eTeX, 153

\let~\def~\E#1{\else{\fi\if1#1H\else Unh\fi appy}\end}~\r#1?{\ifnum#1<5
\E#1\fi~\s#1{0?}}~\s#1{+#1*#1\s}~~{\expandafter\r\the\numexpr}\message{~\noexpand

Genannt als etex filename.tex 34*23 + 32/2 ?(einschließlich des Fragezeichens am Ende). Leerzeichen im Ausdruck spielen keine Rolle.

EDIT: Ich bin auf 123 gekommen , aber jetzt ist die Ausgabe dvi (wenn kompiliert mit etex) oder pdf (wenn kompiliert mit pdfetex). Da TeX eine Schriftsprache ist, halte ich das für fair.

\def~{\expandafter\r\the\numexpr}\def\r#1?{\ifnum#1<5 \if1#1H\else
Unh\fi appy\end\fi~\s#1{0?}}\def\s#1{+#1*#1\s}~\noexpand

Python - 81 Zeichen

n=input()
while n>4:n=sum((ord(c)-48)**2for c in`n`)
print("H","Unh")[n>1]+"appy"

Inspiration von Ventero und Peter Taylor.

Javascript ( 94 92 87 86)

do{n=0;for(i in a){n+=a[i]*a[i]|0}a=n+''}while(n>4);alert(['H','Unh'][n>1?1:0]+'appy')

Die Eingabe erfolgt durch Setzen von a auf die gewünschte Zahl.

Dank an mellamokb.

Python (98, aber zu durcheinander, um es nicht zu teilen)

f=lambda n:eval({1:'"H"',4:'"Unh"'}.get(n,'f(sum(int(x)**2for x in`n`))'))
print f(input())+"appy"

Viel zu lange, um wettbewerbsfähig zu sein, aber vielleicht gut zum Lachen. In Python wird "faul" ausgewertet. Wirklich ziemlich ähnlich dem Haskell-Eintrag, jetzt, wo ich darüber nachdenke, nur ohne den Charme.

DC - 47 Zeichen

[Unh]?[[I~d*rd0<H+]dsHxd4<h]dshx72so1=oP[appy]p

Kurze Beschreibung:

I~: Ermitteln Sie den Quotienten und den Rest bei der Division durch 10
d*.: Quadrieren Sie den Rest.
0<H: Wenn der Quotient größer als 0 ist, rekursiv wiederholen.
+: Summiere die Werte beim Verkleinern des rekursiven Stapels.

4<h: Wiederholen Sie das Quadratsummenbit, während der Wert größer als 4 ist.

Befunge, 109

Gibt korrekte Werte für 1 <= n <= 10 ⁹ -1 zurück.

v v              <   @,,,,,"Happy"<      >"yppahnU",,,,,,,@
>&>:25*%:*\25*/:#^_$+++++++++:1-!#^_:4-!#^_10g11p

J, 56

'Happy'"_`('Unhappy'"_)`([:$:[:+/*:@:"."0@":)@.(1&<+4&<)

Ein Verb und kein eigenständiges Skript, da die Frage nicht eindeutig ist.

Verwendung:

   happy =: 'Happy'"_`('Unhappy'"_)`([:$:[:+/*:@:"."0@":)@.(1&<+4&<)
happy =: 'Happy'"_`('Unhappy'"_)`([:$:[:+/*:@:"."0@":)@.(1&<+4&<)
   happy"0 (7 4 13)
happy"0 (7 4 13)
Happy  
Unhappy
Happy  

Scala, 145 Zeichen

def d(n:Int):Int=if(n<10)n*n else d(n%10)+d(n/10)
def h(n:Int):Unit=n match{
case 1=>println("happy")
case 4=>println("unhappy")
case x=>h(d(x))}

J (50)

'appy',~>('Unh';'H'){~=&1`$:@.(>&6)@(+/@:*:@:("."0)@":)

Ich bin sicher ein kompetenterer J-er, als ich das noch kürzer machen kann. Ich bin ein relativer Neuling.

Neu und verbessert:

('Unhappy';'Happy'){~=&1`$:@.(>&6)@(+/@:*:@:("."0)@":)

Neu und noch besser dank ʇǝɥʇıɐɔuʇǝɥʇs:

(Unhappy`Happy){~=&1`$:@.(>&6)@(+/@:*:@:("."0)@":)

Python (91 Zeichen)

a=lambda b:b-1and(b-4and a(sum(int(c)**2for c in`b`))or"Unh")or"H";print a(input())+"appy"

Common Lisp 138

(format t"~Aappy~%"(do((i(read)(loop for c across(prin1-to-string i)sum(let((y(digit-char-p c)))(* y y)))))((< i 5)(if(= i 1)"H""Unh"))))

Besser lesbar:

(format t "~Aappy~%"
        (do
          ((i (read)
              (loop for c across (prin1-to-string i)
                    sum (let
                          ((y (digit-char-p c)))
                          (* y y)))))
          ((< i 5) (if (= i 1) "H" "Unh"))))

Wäre kürzer, wenn Sie einfach "Happy" oder "Unhappy" aus dem zurückgeben würden (do), aber das würde wohl nicht als ganzes Programm gelten

K, 43

{{$[4=d:+/a*a:"I"$'$x;unhappy;d]}/x;`happy}

Gelee , 17 Bytes (nicht konkurrierend *)

* Herausforderung nach den Terminen

D²SµÐLỊị“¢*X“<@Ḥ»

Probieren Sie es online!

Wie?

D²SµÐLỊị“¢*X“<@Ḥ» - Main link: n
   µÐL            - loop while the accumulated unique set of results change:
D                 -   cast to a decimal list
 ²                -   square (vectorises)
  S               -   sum
                  - (yields the ultimate result, e.g. n=89 yields 58 since it enters the
                  -  "unhappy circle" at 145, loops around to 58 which would yield 145.)
      Ị           - insignificant? (abs(v)<=1 - in this case, 1 for 1, 0 otherwise)
        “¢*X“<@Ḥ» - dictionary lookup of ["Happy", "Unhappy"] (the central “ makes a list)
       ị          - index into
                  - implicit print

Perl 5 - 77 Bytes

{$n=$_*$_ for split//,$u{$n}=$n;exit warn$/.'un'[$n==1].'happy'if$u{$n};redo}

$ n ist der Eingabewert

05AB1E , 21 Bytes

'ŽØs[SnOD5‹#}≠i„unì}™

Probieren Sie es online aus oder überprüfen Sie die ersten 100 Testfälle .

Erläuterung:

Jede Zahl wird irgendwann entweder 1oder ergeben 4, so dass wir eine Endlosschleife ausführen und anhalten, sobald die Zahl unter 5 liegt.

'ŽØ                    '# Push string "happy"
   s                    # Swap to take the (implicit) input
    [       }           # Loop indefinitely
     S                  #  Convert the integer to a list of digits
      n                 #  Square each
       O                #  Take the sum
        D5‹#            #  If this sum is smaller than 5: stop the infinite loop
             ≠i    }    # If the result after the loop is NOT 1:
               „unì     #  Prepend string "un" to string "happy"
                    ™   # Convert the string to titlecase (and output implicitly)

Sehen Sie diese 05AB1E Spitze von mir (Abschnitt Wie das Wörterbuch benutzen? ) Zu verstehen , warum 'ŽØist "happy".

C ++ 135, 2 Zeilen

#include<iostream>
int n,i,j;int main(){for(std::cin>>n;n>1;n=++j&999?n*n+i:0)for(i=0;n/10;n/=10)i+=n%10*(n%10);std::cout<<(n?"H":"Unh")<<"appy";}

Dies ist eine modifizierte Version von der, die ich hier gemacht habe:

/programming/3543811/code-golf-happy-primes/3545056#3545056

Ja, diese Herausforderung hat drei Jahre; Ja, es gibt bereits eine Gewinnerantwort. aber da ich gelangweilt war und dies für eine andere Herausforderung tat, dachte ich, ich könnte es hier aufstellen. Überraschung Überraschung, es ist lang - und in ...

Java - 280 264 Bytes

import java.util.*;class H{public static void main(String[]a){int n=Integer.parseInt(new Scanner(System.in).nextLine()),t;while((t=h(n))/10!=0)n=t;System.out.print(t==1?"":"");}static int h(int n){if(n/10==0)return n*n;else return(int)Math.pow(n%10,2)+h(n/10);}}

Ungolfed:

import java.util.*;

class H {

    public static void main(String[] a) {
        int n = Integer.parseInt(new Scanner(System.in).nextLine()), t;
        while ((t = h(n)) / 10 != 0) {
            n = t;
        }
        System.out.print(t == 1 ? "" : "");
    }

    static int h(int n) {
        if (n / 10 == 0) {
            return n * n;
        } else {
            return (int) Math.pow(n % 10, 2) + h(n / 10);
        }
    }
}

C # 94 Bytes

int d(int n)=>n<10?n*n:(d(n%10)+d(n/10));string h(int n)=>n==1?"happy":n==4?"unhappy":h(d(n));

Gibt für eine bestimmte Zahl (as int) h()den korrekten Wert zurück. Sie können den Code auf .NetFiddle ausprobieren .

Lob an den Benutzer unbekannt für den ursprünglichen Algorithmus .

Clojure, 107 97 Bytes

Update: Unnötig entfernt let Bindung entfernt.

#(loop[v %](case v 1"Happy"4"Unhappy"(recur(apply +(for[i(for[c(str v)](-(int c)48))](* i i))))))

Original:

#(loop[v %](let[r(apply +(for[i(for[c(str v)](-(int c)48))](* i i)))](case r 1"Happy"4"Unhappy"(recur r))))

Zum ersten Mal mit einem verschachtelten for: o

R 117 91 Bytes

-16 Bytes dank Giuseppe

a=scan();while(!a%in%c(1,4))a=sum((a%/%10^(0:nchar(a))%%10)^2);`if`(a-1,'unhappy','happy')

Perl 5 , 62 + 1 ( -p) = 63 Bytes

$_=eval s/./+$&**2/gr while$_>1&&!$k{$_}++;$_=un x($_>1).happy

Probieren Sie es online!

Python 2 , 71 Bytes

f=lambda n:n>4and f(sum(int(d)**2for d in`n`))or("H","Unh")[n>1]+"appy"

Probieren Sie es online!

... oder bei gleicher Byteanzahl:

f=lambda n:n>4and f(eval('**2+'.join(`n*10`)))or("H","Unh")[n>1]+"appy"

Probieren Sie es online!

C: 1092 Zeichen

#include <iostream>
using namespace std ;
int main ()
{
    int m , a[25] , kan=0 , y , z=0  , n , o=0, s , k=0 , e[25]  ;
    do {
m :
        for ( int j=1 ; j <10000 ; j++ )
        {   
n:
            for (int i=0 ; j!=0 ; i++ )
            {
                a[i]=j%10 ;
                j/=10 ;
                kan++ ;
            }
            for ( int i=0 ; i<kan ; i++ )
            {
                y=a[i]*a[i] ;
                z+=y ;
            }
            k+=1 ;
            if (z==1)
            {
              cout<<j<<endl;
               o++ ;
            }

            else 
            {   
                 for (int f=0 ; f<k ; f++ )
                 {
                     e[f]=z ;
                 }
                 for ( int f=0 ; f=k-1 ; f++ )
                 {
                     for ( int p=f+1 ; p <k-1 ; p++ )
                     {
                         if(e[f]=e[p])
                             goto m ;
                         else { j=z ; goto n ; } 
                     }
                 }
            }
        }
    }while(o!=100) ;
    return 0 ;
}