Camels & snakes

[Giorgos Keramidas]

On 2002-09-20 13:41, Stelios Bounanos <sb at dial.pipex.com> wrote:
> Θα σου πρότεινα να μάθεις και τις δύο, τουλάχιστον όσο χρειάζεται για
> να κάνεις port ενα μικρό αλλά non-trivial πρόγραμμα χρησιμοποιώντας
> φυσικά τις ιδιαιτερότητες της κάθε γλώσσας και όχι απλά την κοινή
> λειτουργικότητα που έχουν ολες.

	keramida at hades[15:43]/home/keramida$ cat art.pl
	#!/usr/bin/perl
	$o=" "."τ"."ι"."θ"."ε"."ς"."ν"."α"."π".";";$x=sub{$a=shift;
	$b=$o;$b=~s/^.{$a}?(.).*$/$1/;return($b);};@a=(1,2,0,3,4,5,
	0,6,7,0,8,4,2,5,9);print(join('',map{$_=&$x($_);}@a)."\n");

Όποιος είναι αρκετά θαρραλέος, ας το τρέξει :-)

-- 
FreeBSD: The Power to Serve <> http://www.FreeBSD.org
FreeBSD 4.6-RELEASE #0: Wed Sep 18 23:08:01 EEST 2002