Một số hạnh phúc được xác định bởi quá trình sau đây. Bắt đầu với bất kỳ số nguyên dương nào, thay thế số bằng tổng bình phương các chữ số của nó và lặp lại quy trình cho đến khi số đó bằng 1 (nơi nó sẽ ở lại) hoặc nó lặp lại vô tận trong một chu kỳ không bao gồm 1. Những số đó trong đó quá trình này kết thúc bằng 1 là những con số hạnh phúc, trong khi những con số không kết thúc bằng 1 là những con số không vui (hoặc những con số buồn). Cho một số in cho dù đó là hạnh phúc hay không hạnh phúc.

Sample Inputs
7
4
13

Sample Outputs
Happy
Unhappy
Happy

Lưu ý: Chương trình của bạn không nên mất hơn 10 giây cho bất kỳ số nào dưới 1.000.000.000.

Golfscript - 34 ký tự

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

Về cơ bản giống như cái này và cái này .

Lý do cho 9 lần lặp được mô tả trong các nhận xét này (về mặt lý thuyết này trả về các giá trị chính xác lên đến khoảng 10^10^10^974( A001273 )).

Ruby, 77 ký tự

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");}

Điều này sử dụng một mảng 2 ^30- byte (1GB) dưới dạng bitmap để theo dõi những con số nào đã gặp phải trong chu kỳ. Trên Linux, điều này thực sự hoạt động và hiệu quả là như vậy, với điều kiện là bộ nhớ quá mức được bật (mà nó thường được mặc định). Với quá nhiều, các trang của mảng được phân bổ và không theo yêu cầu.

Lưu ý rằng việc biên dịch chương trình này trên Linux sử dụng một gigabyte RAM.

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 ký tự

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

Mỗi số hạnh phúc hội tụ đến 1; mọi con số không vui đều hội tụ vào một chu kỳ chứa 4. Khác với việc khai thác thực tế đó, điều này hầu như không được đánh gôn.

(Cảm ơn Ventero, từ giải pháp Ruby mà tôi đã đặt biệt danh cho một mẹo và lưu 6 ký tự).

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

Được gọi là etex filename.tex 34*23 + 32/2 ?(bao gồm cả dấu hỏi ở cuối). Không gian trong biểu thức không quan trọng.

EDIT: Tôi đã xuống tới 123 , nhưng bây giờ đầu ra là dvi (nếu được biên dịch với etex) hoặc pdf (nếu được biên dịch với pdfetex). Vì TeX là ngôn ngữ sắp chữ, tôi đoán điều đó công bằng.

\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 ký tự

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

Một số cảm hứng lấy từ Ventero và 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')

Đầu vào được cung cấp bằng cách đặt a thành số mong muốn.

Tín dụng cho mellamokb.

Python (98, nhưng quá rối để không chia sẻ)

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

Cách, cách quá lâu để cạnh tranh, nhưng có lẽ tốt cho một tiếng cười. Nó đánh giá "lười biếng" trong Python. Thực sự khá giống với mục Haskell bây giờ mà tôi nghĩ về nó, chỉ cần không có bất kỳ sự quyến rũ.

dc - 47 ký tự

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

Mô tả ngắn gọn:

I~: Lấy thương số và phần dư khi chia cho 10 .
d*: Bình phương phần còn lại.
0<H: Nếu thương số lớn hơn 0, lặp lại đệ quy.
+: Tính tổng các giá trị khi thu hẹp ngăn đệ quy.

4<h: Lặp lại bit tổng bình phương trong khi giá trị lớn hơn 4.

Befunge, 109

Trả về giá trị đúng cho 1 <= n <= 10 ⁹ -1.

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

J, 56

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

Một động từ chứ không phải là một kịch bản độc lập vì câu hỏi không rõ ràng.

Sử dụng:

   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 ký tự

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)@":)

Tôi chắc chắn rằng một J-er có năng lực hơn tôi có thể làm điều này thậm chí còn ngắn hơn. Tôi là người mới.

Mới và cải tiến:

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

Mới hơn và thậm chí còn được cải thiện hơn, nhờ vào ıʇǝɥʇuʎs:

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

Con trăn (91 ký tự)

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

Lisp thường gặp 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"))))

Dễ đọc hơn:

(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"))))

Sẽ ngắn hơn khi chỉ trả lại "Hạnh phúc" hoặc "Không vui" ngay từ khi (do), nhưng có thể cho rằng sẽ không được tính là toàn bộ chương trình

K, 43

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

Thạch , 17 byte (không cạnh tranh *)

* Thử thách sau ngày ngôn ngữ

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

Hãy thử trực tuyến!

Làm sao?

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 byte

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

$ n là giá trị đầu vào

05AB1E , 21 byte

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

Hãy thử trực tuyến hoặc xác minh 100 trường hợp thử nghiệm đầu tiên .

Giải trình:

Mỗi số cuối cùng sẽ dẫn đến một trong hai 1hoặc 4, vì vậy chúng tôi lặp vô hạn và dừng lại ngay khi số dưới 5.

'ŽØ                    '# 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)

Xem mẹo 05AB1E này của tôi (phần Làm thế nào để sử dụng từ điển? ) Để hiểu tại sao 'ŽØlà "happy".

C ++ 135, 2 dòng

#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";}

Đây là phiên bản sửa đổi của cái tôi đã làm ở đây:

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

Vâng, thử thách này có ba năm; vâng, nó đã có câu trả lời chiến thắng; nhưng vì tôi đã chán và thực hiện điều này cho một thử thách khác, tôi nghĩ rằng tôi có thể đưa nó lên đây. Bất ngờ bất ngờ, lâu dài - và trong ...

Java - 280 264 byte

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);}}

Ung dung:

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 byte

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));

Đối với bất kỳ số đã cho (như int), h()sẽ trả về giá trị chính xác. Bạn có thể thử mã trên .NetFiddle .

Kudos cho người dùng chưa biết cho thuật toán ban đầu .

Clojure, 107 97 byte

Cập nhật: Loại bỏ letràng buộc không cần thiết .

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

Nguyên:

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

Lần đầu tiên sử dụng lồng nhau for: o

R, 117 91 byte

-16 byte nhờ 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 byte

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

Hãy thử trực tuyến!

Python 2 , 71 byte

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

Hãy thử trực tuyến!

... hoặc, cho cùng một số byte:

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

Hãy thử trực tuyến!

C: 1092 ký tự

#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 ;
}