얼마전에 C# 3.0으로 만든 QuickSort를 포스팅한 이후로도 C#에 대한 생각을 평소 많이 하고 있다.
다만 C#을 Main 언어로 코딩한다면 좋겠지만 아직은 C++을 많이 쓰는 상황이라서 아쉬움이 많다.

C#의 새로운 Functional Feature들을 보면서 떠오르는 것은 단연 SICP였다.

사용자 삽입 이미지

 이 책은 MIT에서 강의용 교재로 쓰이는 책인데, 얼마전 우리나라에도 번역본이 나와서 인기를 끌고 있으며(컴퓨터 프로그램의 구조와 해석), 최근 있었던 Microsoft DevDays 2007에서도 김명호 박사님의 KeyNote에서 소개 되어서 더욱 유명세를 타기도 한 바로 그 책이다.

 암튼 책에 나오는 몇가지 Sample들을 C#으로 다시 만들어 보았다.
 Scheme은 Type이 없고, 괄호를 중심으로 하는 표현방식이라  조금만 코드가 길어지면 머리가 복잡해지는데 반해, C#은 Type이 분명하고, Syntax도 익숙하여 훨씬 Writablity가 높았다. Type의 축복이랄까;;


 몇가지 예제들을 공유하여 본다. 비교하면서 보는 것도 재미가 있을 것 같다.
 예전에 Javascript로도 만든 것도 참조 하면 괜찮을지 모르겠다.


#1. 간단한 함수 - 홀짝 판단

LISP
(define (odd? n)
 (if (= n 0)
   #f
   (even? (- n 1))))

(define (even? n)
 (if (= n 0)
   #t
   (odd? (- n 1))))


C#
static bool IsEven(this int num)

{

    return (num == 0) ? true : IsOdd(num - 1);

}


static bool IsOdd(this int num)

{

    return (num == 0) ? false : IsEven(num - 1);

}




#2. Prime 판단하기


LISP
(define (smallest-divisor n)
 (find-divisor n 2))
(define (find-divisor n test-divisor)
 (cond ((> (square test-divisor) n) n)
       ((divides? test-divisor n) test-divisor)
       (else (find-divisor n (+ test-divisor 1)))))
(define (divides? a b)
 (= (remainder b a) 0))

(define (prime? n)
 (= n (smallest-divisor n)))


C#
public static bool IsPrime(this int num)

{

    Func<int, int> FindSmallestDivisor = divisor =>

    {

        if (divisor * divisor > num) return num;

        if (num % divisor == 0) return divisor;

        return FindSmallestDivisor(divisor+1);

    };

    return (FindSmallestDivisor(2) == num);

}




#3. 무한대 수열 다루기 - 자연수 만들기

LISP

(define (cons-stream a b) (cons a (delay b)))

(define (stream-car stream) (car stream))

(define (stream-cdr stream) (force (cdr stream)))

(define (integers-starting-from n)
  (cons-stream n (integers-starting-from (+ n 1))))

(define integers (integers-starting-from 1)


C#

static IEnumerable<T> ConsStream<T>(this T t, IEnumerable<T> ts)

{

    yield return t;

    foreach (var nextT in ts)

        yield return nextT;

}


static

IEnumerable<int> IntegerStrartingFrom(int num)

{

    foreach (var item in 
        num.ConsStream(IntegerStrartingFrom(num + 1)))

        yield return item;

}


static IEnumerable<int> Numbers()

{

    return IntegerStrartingFrom(1);

}


static IEnumerable<int> Primes()

{

    return Numbers().Where(n => n.IsPrime());

}



#4. 무한대 수열 다루기(2) - 피보나치 수열 만들기

LISP
(define fibs
  (cons-stream 1
               (cons-stream 1
                            (add-streams (stream-cdr fibs) fibs)))))

(define (add-streams s1 s2)
  (stream-map + s1 s2))

(define (stream-map proc . argstreams)
  (if (null? (car argstreams))
    the-empty-stream
    (cons-stream
      (apply proc (map stream-car argstreams))
      (apply stream-map (cons proc (map stream-cdr argstreams))))))


C#

static IEnumerable<int> Fibs()

{

    foreach (var item in

        ConsStream(1,
        ConsStream(1, Fibs().Plus(Fibs().Tails()))))

        yield return item;

}

 

public static IEnumerable<int> Plus(this IEnumerable<int> ts1, IEnumerable<int> ts2)

{

    return ts1.Map(ts2, (t1, t2) => t1 + t2);

}

 

public static IEnumerable<T> Map<T>(this IEnumerable<T> ts1, IEnumerable<T> ts2, Func<T, T, T> Proc)

{

    foreach (var item in 
        Proc(ts1.Head(), ts2.Head())
        .ConsStream(Map(ts1.Tails(), ts2.Tails(), Proc)))

        yield return item;

}






#5. 공유 변수 - Counter 만들기


LISP

(define counter (make-cnt 0))

(define (make-cnt count)
 (lambda ()
   (set! count (+ count 1))
   count))


C#

public static Func<int> MakeCounter(int initialNumber)
{
    return () => (++initialNumber);
}

static void Main(string[] args)
{
    Func<int> Counter = MakeCounter(10);
    Counter();
    Counter();
    Debug.WriteLine(Counter());

}

위의 결과는 13


Posted by U∙Seung