ハッピーナンバーは、次のプロセスで定義されます。任意の正の整数で開始し、数字をその数字の2乗の合計で置き換え、数字が1になるまで（それが留まる）、または1を含まないサイクルで無限にループするまでプロセスを繰り返します。このプロセスが1で終わるのは幸せな数字であり、1で終わらないものは不幸な数字（または悲しい数字）です。それが幸福であるか不幸であるかに関係なく、数字を印刷します。
Sample Inputs
7
4
13
Sample Outputs
Happy
Unhappy
Happy
注：1,000,000,000未満の数値については、プログラムに10秒以上かかることはありません。
回答:
a=gets.to_i;a=eval"#{a}".gsub /./,'+\&**2'until a<5
puts a<2?:Happy: :Unhappy
a <= 4とa <= 1。サイクルに1が含まれている場合、それは幸せです。4に含まれている場合、それは幸せではありません。不幸なサイクルについてはウィキペディアのセクションをご覧ください。したがって、の値aが4以下になると、彼はaがどうかをチェックします。その結果があなたの答えです。
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");}
これは、2 30バイト（1GB）の配列をビットマップとして使用して、サイクルで遭遇した数値を追跡します。Linuxでは、これは実際に機能し、効率的に動作するため、メモリのオーバーコミットが有効になっている（通常はデフォルトです）。オーバーコミットでは、配列のページがオンデマンドで割り当てられ、ゼロに設定されます。
Linuxでこのプログラムをコンパイルするには、ギガバイトのRAMを使用することに注意してください。
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
として呼び出されますetex filename.tex 34*23 + 32/2 ?（最後に疑問符を含む）。式内のスペースは重要ではありません。
編集：私は123になったが、現在は出力がdvi（でコンパイルされている場合etex）またはpdf（でコンパイルされている場合pdfetex）です。TeXは組版言語なので、それは公平だと思います。
\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
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')
入力は、必要な数にaを設定することによって提供されます。
mellamokbのクレジット。
n==4?h="Unh":n==1?h="H":a=n+""}alert(h+"appy")
||て別の炭を剃りました|。
n==4?h...ます。条件付きのdo ... whileループに変更しますwhile(n>4)。次に、代わりにこの最終ステートメントを使用しますalert(["H","Unh"][n>1?1:0]+"appy")
n=0;
f=lambda n:eval({1:'"H"',4:'"Unh"'}.get(n,'f(sum(int(x)**2for x in`n`))'))
print f(input())+"appy"
競争力を発揮するには長すぎますが、笑いに向いているかもしれません。Pythonで「遅延」評価を行います。Haskellのエントリに非常によく似ていますが、私はそれについて考えていますが、魅力はまったくありません。
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))}
(n*n)として短くなることはありませんかn*n 、またはif-expressionを分離するには空白では不十分elseですか？
def h(s: String):String=if(s=="1")"H"else if(s=="4")"Unh"else h(s.map(_.asDigit).map(a=>a*a).sum+"");print(h(readLine)+"appy")
'appy',~>('Unh';'H'){~=&1`$:@.(>&6)@(+/@:*:@:("."0)@":)
私はこれをさらに短くすることができるよりも有能なJ-erであると確信しています。私は相対的な初心者です。
新しくなり改善された：
('Unhappy';'Happy'){~=&1`$:@.(>&6)@(+/@:*:@:("."0)@":)
Newıʇǝɥʇuʎsのおかげで、より新しく、さらに改善されました：
(Unhappy`Happy){~=&1`$:@.(>&6)@(+/@:*:@:("."0)@":)
("."0)。それはランクエラーを生成しますが、「Happy」を分割せずに結果をボックス化したままにしない場合、キャラクターを保存できます。
("."0)は、接続詞が接続されている先行する一連の動詞全体に接続詞が適用されるためです。これは私が望むものではありません。私が言うならば、それは実際+/@:("."0)@":とは大きく異なります。+/@:"."0@:(+/@:".)"0@:
'Unhappy';'Happy'で4文字節約できますUnhappy`Happy。
(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"))))
より読みやすい：
(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"))))
から「Happy」または「Unhappy」を返すだけで短くなります(do)が、おそらくプログラム全体としてはカウントされません
*言語のポストデートチャレンジ
D²SµÐLỊị“¢*X“<@Ḥ»
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
'ŽØs[SnOD5‹#}≠i„unì}™
オンラインそれを試してみてくださいまたは最初の100のテストケースを検証します。
説明：
各数値は最終的に1またはのいずれか4になるため、無限にループし、数値が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)（セクション鉱山のこの05AB1Eチップを参照してください。辞書を使用する方法？）理由を理解すること'ŽØです"happy"。
#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";}
これは私がここでやったものの修正版です：
&999ますか？そしてj、ガベージ値がどのように機能するのでしょうか？
if(j==999){n = 0;}else{n=n*n +i;}。jはガベージ値であってはならず、グローバルはゼロで初期化されます。
はい、この課題には3年間あります。はい、すでに勝者の回答があります。しかし、私は退屈して別の挑戦のためにこれをやったので、私はそれをここに置くかもしれないと思った。サプライズサプライズ、その長い-そして...
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);}}ゴルフをしていない：
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);
}
}
}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));
任意の指定された番号（asなどint）に対してh()、正しい値を返します。.NetFiddleでコードを試すことができます。
ジュゼッペのおかげで-16バイト
a=scan();while(!a%in%c(1,4))a=sum((a%/%10^(0:nchar(a))%%10)^2);`if`(a-1,'unhappy','happy')
-p）= 63バイト$_=eval s/./+$&**2/gr while$_>1&&!$k{$_}++;$_=un x($_>1).happyf=lambda n:n>4and f(sum(int(d)**2for d in`n`))or("H","Unh")[n>1]+"appy"...または、同じバイト数の場合：
f=lambda n:n>4and f(eval('**2+'.join(`n*10`)))or("H","Unh")[n>1]+"appy"#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 ;
}