블로그 이미지
JEEN

서울에 사는 꽃청년의 IT찌질모험기

Rss feed Tistory
IT/Perl 2008.02.16 02:12

별 찍기 운동을 알고 계시나요?


(수정 : 위키피디아의 링크는 삭제토론에 들어가서, 기존의 내용은 위키북으로 옮겨짐)

http://ko.wikibooks.org/wiki/%EB%B3%84_%EC%B0%8D%EA%B8%B0

애초에 디씨 인사이드 프로그래서밍 갤러리에서 시작된 별 찍기 코딩

발단은... 대학 초년생 IT학과생들이 숙제 질문으로 별 찍는 코드 예제를 원할거라는 어떤 게시물에 근거,

위키피디어 페이지를 만들어서 각 언어별 별 찍기가 시작되었다.

오늘까지의 별 찍기로...
의 글들이 채워졌다.

그 중에서 펄..

hanirc #perl에서  aero님께서 퍼오신 별찍기 위키피디어페이지에서 푸핫 하면서 놀랐다.

*
**
***
****
*****

대략 루프 돌리고 돌려서 찍어내리는 결과에 질리기 시작하면서...

펄 코드가 등장!

대략 다른 언어에서 대여섯줄 이상 쓰고 내려가는 것을 보고

키보드에 불나겠다면서 a님께서 쓴 한줄짜리 펄 코드... 그리고 이어진 20바이트도 안되는 Perl 5.10

그리고 Acme::EyeDrops로 만들어낸 Geek Code까지...

대략 정신이 멍해지는 가운데... 나도 뭐 없을까 해서 찾아본 결과..

ppencode라는 것을 o상에게 듣고, 그대로 만들어넣었다!

대략 정신이 더욱 멍해지는 그 코드의 정체는 아래와 같다.

length q bless glob and print chr oct oct oct ord qw q dump q and print chr length q closedir vec and 
print chr oct oct oct ord qw q dump q and print chr oct oct oct ord qw q dump q and print chr length
q continue vec and print chr oct oct oct ord qw q dump q and print chr oct oct oct ord qw q do q and
print chr oct oct oct ord qw q dump q and print chr length q binmode glob and print chr oct oct oct ord
qw q dump q and print chr oct oct oct ord qw q do q and print chr oct oct oct ord qw q do q and print
chr oct oct oct ord qw q do q and print chr length q closedir vec and print chr oct oct oct ord qw q
dump q and print chr oct oct oct ord qw q do q and print chr oct oct oct ord qw q do q and print chr
oct oct oct ord qw q do q and print chr oct oct oct ord qw q die q and print chr length q closedir vec

엔터키 없이 한번에 쭈욱 늘어놓는 이런 코드야 말로 ppencode, Perl/Geek

펄 코드 돌려보면 정말로 별이 찍힌다..;; 물론 루프같은 것과는 전혀 상관없지만...

출처는 http://www.namazu.org/~takesako/ppencode/demo.html

이런 언어간의 분쟁 아닌 분쟁에서... 예전에 Damian Conway의 말이 생각이 난다.

http://aero.dnip.net/blog/2007/10/damian-conway-eweek.html


p.s : 이상하게 맥에서 쓰니까 링크거는 것이라든가... 이미지 삽입이라든가 이런 게 안되네..;;

신고

'IT > Perl' 카테고리의 다른 글

I WANT YOU TO LEARN PERL  (0) 2008.03.16
별 찍기 운동을 알고 계시나요?  (0) 2008.02.16
일본의 Perl Hackers들  (0) 2008.01.11
Larry아저씨의 Perl의 과거,현재 그리고 미래 Present  (0) 2007.11.01
IT/Perl 2007.10.30 20:07

Damian Conway 씨의 인터뷰

aero님의 블로그를 둘러보다가 Damian Conway 박사의 인터뷰를 읽게되었다.

대박은...  60초만에 티켓 추첨방식을 생각해 내리쳐낸

use List::Util 'shuffle';

print and readline STDIN
foreach shuffle
12001..13000,
14001..15000,
40001..41000,
67001..68000,
96001..97000;
라는 것이다.

흔히들 guru라고 하는 도사의 경지, 트렌드를 만들어가는 Conway 박사의 능력.

사용자 삽입 이미지

나츠미도 뉴타입!


마치 슈로대의 "ひらめき"나, 뉴타입들의 "찌리링~"을 보는 것 같은
착각 이라고 할까?

간단의 배열 변환에도 하루 이틀 머리를 돌려가면서 끙끙거린 나에게도...

순간의 각성으로 "띠리링~"하면서 구루와 같은 개발이 가능해졌으면...

그러고 보면 끙끙 거리면서 하나하나 해가는 것에 어떤 희열을 느끼게 되니까,

회사의 T상이 말한 것처럼, "프로그래머는 전부 M이다"라는 것이

사실일지도 모르겠다.

구루의 뒤꿈치라도 따라갈 수 있도록... 최선을 다해보자

그나저나 Perl 5.10은 언제?

신고

'IT > Perl' 카테고리의 다른 글

별 찍기 운동을 알고 계시나요?  (0) 2008.02.16
일본의 Perl Hackers들  (0) 2008.01.11
Larry아저씨의 Perl의 과거,현재 그리고 미래 Present  (0) 2007.11.01
Damian Conway 씨의 인터뷰  (0) 2007.10.30
TOTAL 474,048 TODAY 2

티스토리 툴바