More on Geeky Proposals

Mark Pilgrim, author of Dive Into Python (Python’s analogue of the “Camel Book”, IMHO), tells me that my prediction from this entry
has been fulfilled. Yesterday, he was in an IRC channel where various
Python programmers were discussing the errors in the Python Marriage
Proposal (not to be confused with Python Enhancement Proposals).


Summer at Iridesce Sent pointed me to this proposal that is also working Perl code:

#!/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

Awww.


I remind you that this is working Python if you’ve made the appropriate definitions:
from Russia import bride

3 replies on “More on Geeky Proposals”

A reminder that most weirdly-formatted Perl looks better in an editor such as vim with colour syntax highlighting.

Leave a Reply

Your email address will not be published. Required fields are marked *