Your skill will accomplishwhat the force of many cannot PerlMonks

### EURO

by giulienk (Curate)
 on Dec 18, 2001 at 01:34 UTC 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;

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

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

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"

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

Create A New User
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? | Other CB clients
Other Users?
Others examining the Monastery: (5)
As of 2019-05-20 15:36 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
Do you enjoy 3D movies?

Results (128 votes). Check out past polls.

Notices?