From owner-freebsd-hackers@FreeBSD.ORG  Thu Mar 17 21:19:14 2005
Return-Path: <owner-freebsd-hackers@FreeBSD.ORG>
Delivered-To: freebsd-hackers@freebsd.org
Received: from mx1.FreeBSD.org (mx1.freebsd.org [216.136.204.125])
	by hub.freebsd.org (Postfix) with ESMTP id B97B216A4CE
	for <freebsd-hackers@freebsd.org>;
	Thu, 17 Mar 2005 21:19:14 +0000 (GMT)
Received: from kane.otenet.gr (kane.otenet.gr [195.170.0.27])
	by mx1.FreeBSD.org (Postfix) with ESMTP id C431743D49
	for <freebsd-hackers@freebsd.org>;
	Thu, 17 Mar 2005 21:19:13 +0000 (GMT)
	(envelope-from keramida@freebsd.org)
Received: from gothmog.gr (patr530-b224.otenet.gr [212.205.244.232])
	j2HLIe6i031680;	Thu, 17 Mar 2005 23:18:41 +0200
Received: from gothmog.gr (gothmog [127.0.0.1])
	by gothmog.gr (8.13.3/8.13.3) with ESMTP id j2HLJ4Vj001239;
	Thu, 17 Mar 2005 23:19:04 +0200 (EET)
	(envelope-from keramida@freebsd.org)
Received: (from giorgos@localhost)
	by gothmog.gr (8.13.3/8.13.3/Submit) id j2HLJ39Z001238;
	Thu, 17 Mar 2005 23:19:03 +0200 (EET)
	(envelope-from keramida@freebsd.org)
Date: Thu, 17 Mar 2005 23:19:03 +0200
From: Giorgos Keramidas <keramida@freebsd.org>
To: Roman Kurakin <rik@cronyx.ru>
Message-ID: <20050317211903.GA1188@gothmog.gr>
References: <4239B16E.8080502@cronyx.ru>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Disposition: inline
In-Reply-To: <4239B16E.8080502@cronyx.ru>
cc: freebsd-hackers@freebsd.org
Subject: Re: style(9) example :-)
X-BeenThere: freebsd-hackers@freebsd.org
X-Mailman-Version: 2.1.1
Precedence: list
List-Id: Technical Discussions relating to FreeBSD
	<freebsd-hackers.freebsd.org>
List-Unsubscribe: <http://lists.freebsd.org/mailman/listinfo/freebsd-hackers>,
	<mailto:freebsd-hackers-request@freebsd.org?subject=unsubscribe>
List-Archive: <http://lists.freebsd.org/pipermail/freebsd-hackers>
List-Post: <mailto:freebsd-hackers@freebsd.org>
List-Help: <mailto:freebsd-hackers-request@freebsd.org?subject=help>
List-Subscribe: <http://lists.freebsd.org/mailman/listinfo/freebsd-hackers>,
	<mailto:freebsd-hackers-request@freebsd.org?subject=subscribe>
X-List-Received-Date: Thu, 17 Mar 2005 21:19:14 -0000

On 2005-03-17 19:33, Roman Kurakin <rik@cronyx.ru> wrote:
> Hi,
>
> I was unable to refrain from posting this :-)
>
> int i;main(){for(;i["]<i;++i){--i;}"];read('-'-'-',i+++"hell\
> o, world!\n",'/'/'/'));}read(j,i,p){write(j/p+p,i---j,i/i);}

I've written stuff that's probably a bit harder to read, but in Perl :P

% cat filter.pl
#/usr/bin/perl
while(<STDIN>){chomp;print(join('',(map{my($b,$j,$t,$o)=(65,128,90,ord($_));((
$o-$b)>=0&&($o-$b)<=($t-$b))?eval{$o=(($o-$b)+13)%26+$b;$j=11;}:eval{$b=97;$t=
122;(($b>$o)||($t<$o))?eval{$j=10;}:eval{$o=(($o-$b)+13)%26+$b;$j=1431;};};$_=
chr(int(int(($j%2)==(chr($o)==$_))?$o:ord($_)));}(split//,$_)))."\n");}
%