#!/usr/bin/perl -w use strict; my$f= $[;my $ch=0;sub l{length} sub r{join"", reverse split ("",$_[$[])}sub ss{substr($_[0] ,$_[1],$_[2])}sub be{$_=$_[0];p (ss($_,$f,1));$f+=l()/2;$f%=l ();$f++if$ch%2;$ch++}my$q=r ("\ntfgpfdfal,thg?bngbj". "naxfcixz");$_=$q; $q=~ tr/f[a-z]/ [l-za-k] /;my@ever=1..&l ;my$mine=$q ;sub p{ print @_; } be $mine for @ever
Update: I'm elated by Vortacist's favorable response, of course. :)
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Propose.
by Vortacist (Pilgrim) on Aug 18, 2004 at 20:58 UTC | |
by Anonymous Monk on Feb 11, 2011 at 14:28 UTC | |
Re: Propose.
by jacques (Priest) on Aug 19, 2004 at 02:34 UTC | |
Re: Propose.
by cLive ;-) (Prior) on Aug 19, 2004 at 06:45 UTC | |
Re: Propose.
by thor (Priest) on Aug 18, 2004 at 22:43 UTC | |
Re: Propose.
by antirice (Priest) on Aug 18, 2004 at 21:00 UTC | |
by pingo (Hermit) on Aug 25, 2004 at 12:18 UTC | |
Re: Propose.
by TStanley (Canon) on Aug 19, 2004 at 09:48 UTC | |
Re: Propose.
by giulienk (Curate) on Aug 20, 2004 at 07:51 UTC | |
Re: Propose.
by csuhockey3 (Curate) on Aug 19, 2004 at 16:22 UTC | |
Re: Propose.
by paranoidDandroid (Initiate) on Aug 19, 2004 at 18:20 UTC | |
by RavingGoat (Vicar) on Aug 19, 2004 at 19:55 UTC | |
Re: Propose.
by pikus (Hermit) on Aug 24, 2004 at 13:42 UTC | |
Re: Propose.
by BioGeek (Hermit) on Aug 21, 2004 at 00:53 UTC | |
Re: Propose.
by teamster_jr (Curate) on Aug 25, 2004 at 14:21 UTC | |
Re: Propose.
by PhilHibbs (Hermit) on Sep 03, 2004 at 12:15 UTC | |
Re: Propose.
by ambrus (Abbot) on Nov 17, 2008 at 19:08 UTC | |
by Falkkin (Chaplain) on Dec 01, 2008 at 05:37 UTC | |
by Anonymous Monk on Oct 07, 2015 at 14:10 UTC |
Back to
Obfuscated Code