몇 일 동안 강의 준비 때문에 짬짬이 functional programming을 하면서 몇 가지 느낀 점이 있어 공유해 본다. 많은 경험을 한 것이 아니라 몇 일 동안 신용 카드의 LUHN 공식을 functional programming으로 구현해 본 정도이기 때문에 틀렸을 수도 있다. functional programming을 위한 언어는 Scheme을 사용했다.

LUHN 공식

신용 카드상의 번호 검증을 위해 사용하는 알고리듬. 1960년대에 개발된 개방형 공식이다. 원리는 ㉠카드 번호의 우측 숫자부터 매 2번째 숫자마다 2를 곱하고, ㉡위 ㉠에서 2를 곱하지 않은 숫자들과 ㉠에서 나온 숫자들을 합한다(㉠에서 나온 수가 2자리 수이면 2개의 숫자를 합한다). ㉢위 ㉡에서 나온 수와 그 다음으로 큰 10단위 수와의 차이를 구한다(㉡에서 나온 수가 34이면 다음으로 큰 10단위 수 40과의 차이, 6을 구한다). ㉢에서 나온 숫자가 카드의 점검 숫자와 일치해야 한다.

느낀 점

• 작년인가 LUHN 공식을 자바로 구현한 경험이 있는데 그 때의 코드와 비교해 보니 소스 코드가 무지 간결해졌다.
• functional programming으로 구현하다보니 요구사항을 작은 단위로 분리할 수 밖에 없었다. 자바로 구현할 때도 최대한 작은 단위로 분리해 메소드로 분리하는 작업을 했는데 functional programming은 의도하지 않아도 그렇게 할 수 밖에 없었다. 즉, 사고의 단위를 작은 단위로 줄여줌으로써 한 번에 한 가지에 집중할 수 있었다.
• 작은 단위로 분리한 이유도 있지만 funtion 활용하니 단위 테스트하기 명확해서 좋았다. LUHN 공식이 어쩌면 입력과 출력이 분명해서 일 수도 있겠다. 하지만 객체 지향 언어보다는 단위 테스트하기 훨씬 좋겠다는 생각이 들었다.
• 아직까지도 요구사항을 받으면 작은 단위로 분리해 문제를 해결하는 것이 쉽지 않다. 자바의 경우에는 은연 중에 큰 단위로 접근하는 경우가 많은데 functional programming의 경우 작은 단위로 분리하는 연습을 하기에 좋겠다는 생각이 든다. 프로그래밍을 처음 접하는 친구들도 functional programming을 활용해 문제를 작은 단위로 나누고 단위 테스트하는 연습을 하면 좋겠다는 생각을 했다.
• 따라서 자바 프로그래머도 functional programming으로 연습해보면 자신이 개발하는 스타일을 바뀔 것이라 생각한다. 객체를 만들더라도 좀 더 immutable한 객체를 만드는 연습이 될 듯 하다.

이상 지금까지 functional programming의 맛을 제대로 느낀 것은 아니지만 앞으로도 계속 해보고 싶다는 생각이 들었다.

내가 느낀 부분 이외에도 functional programming을 통해 배울 수 있는 점이 있다면 공유해 주면 좋겠다. 앞으로 프로그래밍을 배워나가는 학생들에게 많은 도움이 될 듯하다.

이번에 Scheme으로 구현한 LUHN 공식 소스는 다음과 같다. 정확하게 구현했는지 모르겠다. 버그가 있으면 가차없이 신고 바람...

(define (charToDigit char)
    (- (char->integer char) (char->integer #\0)))
 
(define 
    (stringToDigit values)
    (map 
        (lambda (each) (charToDigit each)) 
        values      
    )
)
(define
    (doubleValue values)
    (map 
        (lambda (each) (* 2 each))
        values
    )
)
 
(define (ret-odds lst)
  (cond ((null? lst) lst)
        ((null? (cdr lst)) lst)
        (else (cons (car lst) (ret-odds (cddr lst))))))
 
(define (ret-evens lst)
  (cond ((null? lst) lst)
        ((null? (cdr lst)) (cdr lst))
        (else (cons (cadr lst) (ret-evens (cddr lst))))))
 
(define 
    (list-sum list)
    (cond 
        ((null? list) 0)
        ((null? (cdr list)) (car list))
        (else (+ (car list) (list-sum (cdr list))))
    )
)
 
(define (sum-over-ten value)
    (list-sum (stringToDigit (string->list (number->string value))))
)
 
(define (convert-two-to-one values)
    (map (lambda (each) 
            (cond
                ((< each 10) each)
                (else (sum-over-ten each))
            ))
        values
    )
)
 
(define (next-ten-value value)
    (+ 10 (- value (remainder value 10)))
)
 
(define (subtract-next-ten-value value)
    (- (next-ten-value value) value)
)
 
(define (calculate-validate-creditcard creditcard-no)
    (subtract-next-ten-value (list-sum (append
        (convert-two-to-one (doubleValue 
            (ret-evens (reverse 
                (stringToDigit (string->list creditcard-no))
            ))
        ))
        (ret-odds (reverse (stringToDigit (string->list creditcard-no))))
    )))
)
 
(calculate-validate-creditcard "5678222233334444")