프로젝트 오일러 16번

Project Euler 16

I. 함수 정의

▶ 각 자릿수의 합을 구함

▷예

123[수] -> 6[자릿수의 합]

283     -> 13

▷수학적인 정의

 _{(참고 티스토리에서 첨자가 출력이 안돼서 캡쳐;;)}

▶a^n

▷예

2^2 = 4

2^3 = 8

▷수학적인 정의

II. 코드

▶c code

#define N 1000
#include<stdio.h>
inline int sum_of_digits(unsigned long long num)
{
    int rst = 0;

    while (num > 0)
    {
        rst += num % 10;
        num /= 10;
    }
    return rst;
}
int main(void)
{
    int i;
    unsigned long long rst = 1;

    for (i = 1; i <= N; i++)
        rst *= 2;
    printf("%llu\n", rst);
    printf("%d\n", sum_of_digits(rst));
}

  하지만 c에서는 N이 100만 넘어도 계산이 안됩니다..

c언어는 역시 큰 수 처리에 적합하지 않아 리스프를 선택했습니다.

언어선택에 다양성이 있으니까 좋습니다.

 

▶Racket code

(define (sum-of-digits n)
  (cond
    [(= n 0) 0]
    [else (+ (modulo n 10) (sum-of-digits (division-digit n 10)))]))

(define (power a n)
  (cond
    [(= n 0) 1]
    [else (* a (power a (- n 1)))]))

(sum-of-digits (power 2 1000))