행복한 숫자는 다음 프로세스에 의해 정의됩니다. 양의 정수로 시작하여 숫자를 자릿수의 제곱의 합계로 바꾸고 숫자가 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
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이 사용됩니다.
이텍스, 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.... 조건이있는 루프 ...로 변경합니다 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"
길, 너무 길어서 경쟁하기는 쉽지만 아마도 웃음에는 좋습니다. 파이썬에서는 "게으른"평가를합니다. 매력이 전혀없는 것으로 생각하고있는 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 표현을 분리하기 위해 충분하지 않습니다 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)@":)
ɐɔıʇǝɥʇuʎs 덕분에 더 새롭고 더 향상되었습니다.
(Unhappy`Happy){~=&1`$:@.(>&6)@(+/@:*:@:("."0)@":)
("."0). 순위 오류가 발생하지만 '행복'을 나누지 않고 결과를 상자에 그대로두면 문자를 저장할 수 있습니다.
("."0)는 연결이 첨부 된 동사의 전체 기차에 적용되기 때문입니다. 내가 말하면 +/@:("."0)@":, 그것 +/@:"."0@:과는 실제로 다릅니다 (+/@:".)"0@:.
'Unhappy';'Happy'와 함께 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"))))
에서 바로 "행복"또는 "행복 (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는 가비지 값이 아니어야하며 전역은 0으로 초기화됩니다.
그렇습니다.이 도전은 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));
주어진 숫자 ( 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 ;
}