Monthly Archives: Juli 2008

useful stuff: today: ScribeFire

4
Posted by ap0calypse on 29. Juli 2008 – 11:53
Filed under amusing, general

I just discovered a very nice add-on for Firefox, ScribeFire. With this add-on it is possible to manage your blog inside Firefox. 5 stars!

Here is an image:

Nice work.

good morning … 1984 [UPDATE]

4
Posted by ap0calypse on 18. Juli 2008 – 19:08
Filed under general

I just read an article which frightened me deep inside. The Austrian government plans to install so called “network bridges” to mirror all the data from the service providers. This would mean that every single word you send is recorded and stored and could be used by the government. I guess that I don’t have to explain how bad these news are …

What a brave new world … :(

[UPDATE]
#########

Some more information about how the government could achieve to get private information from “terror suspects” can be found in this article on heise.de:
Spekulationen um Backdoor in Skype

I’m not using Skype anyway, but I hope this article wakes up Skype users.
DON’T USE SKYPE!

some code-golfing …

4
Posted by ap0calypse on 14. Juli 2008 – 10:17
Filed under amusing, artistic, coding, perl

Yesterday I discovered a funny challenge on a board I visit regularly. The challenge was to create the shortest possible program to get a given output. In my case, it was the “99 bottles of beer” song. Here is my solution:

$b=" on the wall.";for(reverse 1..99)
{$i=$_>1?" bottles of beer":" bottle of beer";
print"$_$i$b $_$i.\n";print"Take one down and pass it around,
",$_-1,"$i$b\n\n"if$_>1;}
print"Go to the store and buy some more, 99 bottles of beer$b\n";

236 characters (you can delete the newlines. I just put them in to make it more readable). So far I couldn’t get it any shorter. Maybe someone else could give it a try. ;)

Ok, just did a short update. Now it has 235 characters:

$b=" on the wall.";for(reverse 1..99){print$_,$i=$_>1?
" bottles of beer":" bottle of beer",
"$b $_$i.\n";print"Take one down and pass it around, ",
$_-1,"$i$b\n\n"if$_>1;}
print"Go to the store and buy some more, 99 bottles of beer$b\n";

FINAL UPDATE:
#####################

I just discovered a small singular/plural problem with the code above, so I had to redesign it a little … This is now the final (and working) code:

$i=" bottles of beer";$b=" on the wall";for(reverse 1..99)
{$j=$i if$_>1;print"$_$j$b, $_$j.\n";$j=~s/es/e/ if$_==2;
print"Take one down and pass it around, ",$_-1,"$j$b.\n
\n"if$_>1;}
print"Go to the store and buy some more, 99$i$b.\n";

234 characters …