The Decline and Fall of the Roman Empire

END {
    print " \n" } sub I { $_ } sub II { -shift } sub III {
    chr shift } sub IV { $_[ 0 ] + $_[ 1 ] } sub V { IV( 0
    ,1 ) } sub VI { IV( V , II( V ) ) } sub VII { IV( V ,V
    )} sub VIII { IV( V, II( shift ) ) } sub IX { $_[ VI ]
    **VII } sub X { IX( VII ) } sub XI { IV( VII, V )} sub
    XII { IX( IX( XI ) ) } sub XIII { IV( X, V ) } sub XIV
    { IV( IX( X ) , II( XI ) ) } sub XV { ( XIV, @_ ) }sub
    XVI { $_[ VI ] ** XI }sub XVII { IX( XVI( VII ) )} sub
    XVIII { IV( XVI( VII ) , II( V ) ) } sub XIX { IV( XVI
    ( VII ), VII ) } sub XX { $_[ VI ] * $_[ V ] } my $XVI
    = IV( XX( VII , XVIII ) , II( XIV ) ); for( ( IV( XVII
    , IX( XI ) ) , IV( IX( XVIII ) , VIII( XVIII ) ) , II(
    VII ), V , II( IV( XVII, XX( VII , XIX ) ) ) , XX( XIV
    ,XIII ) ,XV( V ,XIII , VIII( XIV ) , II( XI ) , ) , XV
    ( II( IV( V ,XII ) ), XX( XI ,IX( X ) ) ,XX( XI, XVIII
    ) , ) , XV( VIII( XVIII ) , IV( XIII , II( XII )) , XX
    ( X , XX( VII , IX( XI ) ) ) , II( XVIII ) , VII , XVI
    ( VII ) , IV( VII , XVI( II( VII ) ) ) ,) , XV( II( IV
    ( XIII, XX( XIII, XIV )))))) { $XVI += I and print III
    $XVI
}
[download]

Programming X Windows is like trying to find the square root of pi using roman numerals. -- Jamie Zawinski

- another intruder with the mooring in the heart of the Perl

Comment on The Decline and Fall of the Roman Empire Download Code

Replies are listed 'Best First'.
Re: The Decline and Fall of the Roman Empire by ambrus (Abbot) on Mar 09, 2005 at 20:47 UTC
I like your obfu very much, because it's very difficult to read despite that it uses only very few selected obfu techniques. Here's some SPOILER Read more... (5 kB)	[reply] [d/l] [select]
Re: The Decline and Fall of the Roman Empire by dragonchild (Archbishop) on Mar 09, 2005 at 14:53 UTC
You are lost in a maze of twisty Roman subroutines, all alike. Being right, does not endow the right to be rude; politeness costs nothing. Being unknowing, is not the same as being stupid. Expressing a contrary opinion, whether to the individual or the group, is more often a sign of deeper thought than of cantankerous belligerence. Do not mistake your goals as the only goals; your opinion as the only opinion; your confidence as correctness. Saying you know better is not the same as explaining you know better.	[reply]
Re: The Decline and Fall of the Roman Empire by m-rau (Scribe) on Mar 09, 2005 at 17:00 UTC
But `END` begins before counting in your Roman Empire. Does eval( @_ ) eq sub { # British Empire } tell the truth? I guess they count backwards at `BEGIN { }`. I mean, they play kricket and drive on the left `;-)`. Greetings to Great Britain. Sorry, but this is the other empire that came to my mind.	[reply] [d/l] [select]
Re: The Decline and Fall of the Roman Empire by Anonymous Monk on Mar 11, 2005 at 19:23 UTC
lol	[reply]
Re: The Decline and Fall of the Roman Empire by stefp (Vicar) on Nov 18, 2005 at 00:53 UTC
Give a gibbon enough time, and you get an obfuscated JAPH. -- stefp	[reply]


Don't ask to ask, just ask
	PerlMonks