[퀴즈_53] 나르시스트 수 & 해피 넘버

파워쿼리로 만들어 봅니다.
(일단, 나르시스트 수만)

=LET(r,SEQUENCE(99999),s,MAP(r,LAMBDA(a,a=REDUCE(0,SEQUENCE(LEN(a)),LAMBDA(x,y,x+MID(a,y,1)^LEN(a))))),FILTER(r,s))

파워쿼리로 만들어 봅니다.(해피넘버)
15차까지 함
찾는 방법은 쉬운데 이걸 몇회까지 해야 1로 수렴되는지가 관건이라..
해피수 중 최대작업횟수인 숫자는 어떻게 구한가요?
그걸 알아야 차수를 줄이는 노가다를 안할 듯합니다.
 vba가 나을 듯..

[퀴즈 속 퀴즈]
1000 이하 해피수 중 총 5회만의 작업으로 1로 수렴되는 해피수는 총 몇 개인가?
 
예시) 632 (총 5회)
1회 : 6² + 3² + 2² = 36 + 9 + 4 = 49
2회 : 4² + 9² = 16 + 81 = 97
3회 : 9² + 7² = 81 + 49 = 130
4회 : 1² + 3² + 0² = 1 + 9 + 0 = 10
5회 : 1² + 0² = 1

나르니스트 넘버

=LET(narf,LAMBDA(n,SUM(MID(n,SEQUENCE(LEN(n)),1)^LEN(n))),
mData,MAP(SEQUENCE(99999),LAMBDA(m,IF(narf(m)=m,m,""))),
FILTER(mData,mData<>""))

 
해피 넘버

=LET(CheckHappy,LAMBDA(N,
REDUCE(N,SEQUENCE(10),LAMBDA(a,_,SUM(MID(a,SEQUENCE(LEN(a)),1)^2)))),
mData,MAP(SEQUENCE(1000),LAMBDA(m,IF(CheckHappy(m)=1,m,""))),
TEXTJOIN(", ",1,mData))