Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

EURO

by giulienk (Curate)
on Dec 18, 2001 at 01:34 UTC ( [id://132677]=obfuscated: print w/replies, xml ) Need Help??

Here in Italy we are minutes ago from changing our currency to Euro. So I thought it would be interesting to find a mnemonic to remember how many old Italian Lira is worth an Euro.
This is what I came up with: my first little obfu. 
#!/usr/bin/perl
sub E{$%%2?$---:$;;++$%.($--$%)};$-=1E1,$_=(join'',E,reverse(E,E))/1E2
+,print;

[download]

gkinueliileunikg

Replies are listed 'Best First'.
Re: EURO
by Juerd (Abbot) on Dec 18, 2001 at 03:36 UTC
    This is how many Guilders a Euro is worth: 
    $_="@{[(0..3)[(!$!+!$|)x2=>$;,2*!$?+1],7=>!!!$!]}";tr;tr:::, die;s/./$
+$./;;s;(?<=..)\.;;g;print

    [download]

    2;0 juerd@ouranos:~$ perl -e'undef christmas'
Segmentation fault
2;139 juerd@ouranos:~$

    [download]

[reply]
[d/l]
[select]
Re: EURO
by flgr (Sexton) on Dec 18, 2001 at 22:59 UTC
    Heh. I've done that, too, for the 'Deutsche Mark' or 'Deutschmark'. :)
    It was as some sort of revenge to my IT-Teacher who showed us how to write a DM<>Euro-Converter in GW-Basic. What a sick language it is...

    Just in case somebody is interested in my small converter: 
    print"Betrag? ";die"=",.01*int($$=<>)*
195.6," DM\n=",.01*int$$/.01956," E\n"

    [download]


    $§=lc(sub{}^" \6 \n");$§=~s/\(.*\)//;for(split
    ('',$§)){$/=$_;for(5..7){$/++}$:.=$/}print$:;1
[reply]
[d/l]

Back to Obfuscated Code

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: obfuscated [id://132677]
Approved by root
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (8)
As of 2025-03-27 13:04 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    When you first encountered Perl, which feature amazed you the most?










    Results (70 votes). Check out past polls.
    Notices?
    • erzuuli‥ Anonymous Monks are no longer allowed to use Super Search, due to an excessive use of this resource by robots.