코드골프를 하기 위해 알아야 할 것들

`Vigenere Cipher' 루비 부문 1위에 오른 leonid님에 비할 바는 아니지만

(http://kldp.org/node/87919 참고)

저는 이번에 `Reverse' 펄 부문 4위에 올랐습니다.

그걸 기념할 겸해서 글을 써보기로 했습니다.

제목 : 코드골프를 하기 위해 알아야 할 것들

1. 코드골프는 보기보다 쉽다.

아마 코드골프에 익숙하지 않은 분들은 고수들이 올린 코드를 보게되면,

예를들어 다음과 같은 코드를 본다면,

sub b{[@b=(abs||99,bottle."s"x!!++$_,of,beer),on,the,wall]}print"@{+b}, @b.
",$_?"Take one down and pass it around":"Go to the store and buy some more",", @{+b}.

"for-99..-1

(출처 : http://kldp.org/node/83181 의 raymundo님)

지레 겁부터 먹을지 모릅니다.

하지만 위의 코드는 단지 "읽기 어려울" 뿐이고, 약간만 고쳐서 읽기 쉬운 코드로 바꿔보면,

sub a {
    return [ (@b = (abs$i||99, bottle."s"x(!!++$i), of, beer)), on, the, wall ]
}
for $i (-99..-1) {
    print
        "@{a()}, @b.\n",
        $i ? "Take one down and pass it around"
             :"Go to the store and buy some more",
        ", @{a()}.\n\n"
}

훨씬 이해하기가 쉬워졌습니다.

그러므로 처음코드는 보기에는 어렵지만,

연산자 우선순위와 몇 가지 법칙 (함수의 반환값, for문의 $_ 변수 등) 등을 알고 있다면

어려울 것이 없습니다.

코드골프라고 해서 특별히 어려운 내용이 나오는 것은 아닙니다.

오히려, 코드의 길이를 줄이기 위해서는, 되도록 구성을 간단하게 만드는 경우가 많습니다.

2. 문법과 연산자

코드골프를 하려면 펄을 알아야 하고,

펄을 공부하려면 우선 perldoc 을 봐야합니다. (http://perldoc.perl.org)

문법은 perlsyn에 있으므로, http://perldoc.perl.org/perlsyn.html 을 보면 됩니다.

번역문(http://wiki.kldp.org/wiki.php/perldoc/perlsyn)도 참고하세요.

perlsyn과 perlop을 완벽히 이해하면 문법과 연산자는 거의 끝입니다.

그런데, 코드골프를 하기 위해서는 `이상한' 코드들에 관심을 더 가져야 합니다.

예를들어, perlop 문서를 읽고나서 다음과 같은 코드를 작성할 수 있어야 합니다.

($n=1)++;

$n+=($n+=1)+=2;

그러므로 상상력을 발휘하고 직접 테스트 해보면서, 쉽게 눈에 띄지 않는 문법요소를 익혀야 합니다.

3. 함수

http://perldoc.perl.org/index-functions.html 를 보는 것으로 충분합니다.

함수의 형태, 동작, 반환값을 꿰고 있어야 합니다.

물론 다 외울 필요는 없고, 중요함수만 외우고, 나머지는 필요한 때 찾아보면 됩니다.

사실, 쓸만한 함수들은 그리 많지 않습니다. 쓸만한 함수를 알파벳 순으로 적어보면 다음과 같습니다. (정규식 관련함수 제외)

abs, chr, grep, int, join, map, ord, pop, print, push, reverse, shift, splice, split, substr

4. 실행옵션

http://kldp.org/node/82236#comment-392112 을 읽고나서야 알게 된 것이지만

펄의 실행옵션을 사용하면 코드를 더 줄일 수 있습니다.

입출력문제가 많은 코드골프 특성상, 가장 많이 쓰이는 옵션은 -p 와 -n 입니다.

-n 옵션을 사용하면 다음과 같이 해석됩니다.

while (<>) {
    ...;	# ...은 실제 작성한 코드 부분
}

`;' 가 붙기 때문에 다음과 같이 이상한 코드가 가능합니다.

#!perl -n
$;="Hello, world\n";
print$

-p 옵션을 사용하면 다음과 같이 해석됩니다.

while (<>) {
    ...	# ...은 실제 작성한 코드 부분
}
continue {
    print or die "-p destination: $!\n";
}

그런데 이와 관련된 트릭이 있습니다.

설명하기 쉽게 연습문제를 하나 풀어볼까요.

연습문제) wc -l 명령어와 같이, 표준입력으로 들어오는 입력의 라인 수를 출력하는 프로그램을 작성하시오.

#!perl -pl
}{$_=$.

위와 같이 프로그램하면,

while (<>) {
}
{
    $_=$.
}
continue {
    print or die "-p destination: $!\n";
}

위와 같이 바뀌므로, while 문 내에서 하는 것은 아무 것도 없고,

while 문이 종료되고 나서 $_=$. 의 대입이 발생하고 마지막으로 $_ 를 출력하게 됩니다.

나머지 옵션에 대한 설명은, http://perldoc.perl.org/perlrun.html 를 읽으면 됩니다.

다 볼 필요는 없고, p, n, l, a, F, 0 정도만 알아두면 될 듯 합니다.

a, 0 옵션을 왜 사용하는지 의문이 난다면, 다음 연습문제가 도움이 될 겁니다.

연습문제) wc -w 명령어와 같이, 표준입력으로 들어오는 입력의 단어 수를 출력하는 프로그램을 작성하시오.

#!perl -0apl
}{$_=@F

5. 특수변수

특수변수 $_, @_ 는 아마 잘 알고 있을 겁니다.

그 밖에도 정규식 관련 특수변수와 입출력 관련 특수변수들도 역시 중요합니다.

내용은 그리 어렵지 않습니다.

http://perldoc.perl.org/perlvar.html

6. 정규식

펄의 `꽃'이라 할 수 있는 정규식은, 코드골프에서도 생각이상으로 써먹을 곳이 많습니다.

연습문제) "1 3 5 2 12 3 4 6 1 2" 과 같이 표준입력으로 들어오는 값들의 합을 출력하는 프로그램을 작성하시오.

우선 평범하게 풀어봅시다.

@N=split" ",<>;
map{$s+=$_}@N;
print"$s
"

코드크기는 39B가 됩니다.

펄의 실행옵션 a, p, l 을 이용하면,

#!perl -apl
map$s+=$_,@F;$_=$s

30B가 되었습니다.

그런데 정규식과 $\를 사용하면,

#!perl -pl
s/\d+/$\+=$&/eg}{

28B가 됩니다.

정규식은 배열에 비해 여러 단점을 가지고 있음에도,

$&, $`, $' 과 같은 특수 변수와 각종 부가옵션을 이용할 수 있는 장점이 있습니다.

7. 고수의 노하우를 배워라

펄 골프에 관한 최고의 문서는 아마 The "Perlgolf History" Book 일 것입니다.

http://terje2.frox25.no-ip.org/~golf-info/Book.html

이 책을 읽고 전부 이해가 간다면, 당신은 이미 고수.