CodeGolf/99BottlesOfBeer

# 줄바꿈을 전부 없애면 223바이트
$B=" on the wall";
sub b{"$_[0] bottle".(($_[0]>1)?"s":"")." of beer"}
print b($_),"$B, ",b($_),".\n",
(($_>1)?"Take one down and pass it around, ":"Go to the store and buy some more, "),
b($_-1||99),"$B.\n\n"
for reverse(1..99)

이건 안된다는군요...

#!/usr/bin/perl
use LWP::Simple;
my $a=get "http://codegolf.com/competition/output/99-bottles-of-beer";
$a=~s/\<.+\>//g;
print $a;

음 역시나 찾아보니 "You will be unable to import/require/include any modules or files in your solution. You have to write all the code yourself, and it has to be in the code file you upload."

http://99-bottles-of-beer.net/language-perl-737.html

아 Alternative Versions 는 보지 마시길.

-- 조프 2007-6-11 6:49 pm

저는 역시 길이 없는 데서 길을 만드는 건 못하는 것 같아요 흐... 일단 방향이 주어지면 거기서 어떻게든 줄이는 건 하겠는데.

Alternative Versions를 참고해서 196자까지는 만들어봤습니다.

$y=99;
$B=" on the wall";
sub b{$n=$y||99;"$n bottle"."s"x!!--$n." of beer"}
print b,"$B, ",b,".\n",
--$y?"Take one down and pass it around, ":"Go to the store and buy some more, ",
b,"$B.\n\n"
while $y

오오 조프님 불타오르시는군요!

"s"x!!(--$n) 이라니... 절로 고개가 숙여지는군요.

그게 위에 올린 사이트에 있던 소스입니다...

-- 조프 2007-6-11 10:43 pm

이름:  

Homepage:

내용:
 

---

<trackbackreceived>