### The golf course looks great, my swing feels good, I like my chances (Part I)

by eyepopslikeamosquito (Archbishop)
 on Apr 25, 2009 at 07:08 UTC Need Help??

```use strict;
use warnings;
...
\$got eq \$i or die "expected '\$i' got '\$got'\n";
}
print "successful\n";
```
```s!.!y\$IVCXL426(-:\$XLMCDIVX\$dfor\$\$_.=5x\$&*8%29628;\${"\$\$_
"}=-\$_!egfor-4e3..0;print\${<>}
```
```sub arabic {
my(\$arg) = shift;
...
}
\$arabic;
}
```
```        \$arabic -= 2 * \$last_digit if \$last_digit < \$digit;
```
```I1V5X10L50C100D500M1e3=~\$_,\$\-=2*\$}x(\$}<\$')-(\$}=\$')for<>=~/./g;print
```
```#!perl -lp
s#\d#!(\$\+=\$.*\$&*(2cmp\$'))#eg,\$..=0while y/MDCLXVI/CLXVI51/
```
```#!perl -n
++\$I;\$\$_=\$.*=\$^F^=7for V,X,L,C,D,M;
print"I=\$I V=\$V X=\$X L=\$L C=\$C D=\$D M=\$M\n";
```
```I=1 V=5 X=10 L=50 C=100 D=500 M=1000
```
```#!perl -p
++\$I;\$\$_=\$.*=\$^F^=7for VXLCDM=~/(.)/g;
s!!(\$\$1<\${_&\$'}?'-':'+').\$\$1!eg;\$_=eval
```
```\$b=++\$I;\$\$_=\$b*=\$^F^=7for V,X,L,C,D,M;
\$\+=\$n-\$\%\$n*2while\$n=\${+getc};print
```
```use List::Util 'reduce';
print reduce{\$a+\$b*(\$b+1<=>\$a)}map{/./;\$|--&&(M999D499C99L49X9V4I=~\$&+
+\$')*y///c}reverse<>=~/((.)\2*)/g
```
```I1V5X10L50C100D500M1e3=~\$_,\$\-=2*\$}x(\$}<\$')-(\$}=\$')for<>=~/./g;print
```
```\$\+=\$'-2*\$'*(-\$'>I1V5X10L50C100D500M1e3=~\$_-\$')for<>=~/./g;print
```
```  1st  60  robin                 Perl
...
8th  73  bitsweat              Ruby
9th  73  jojo                  Perl
10th  75  shinh                 Perl
```
```\$/=\1;\$\+=-\$'*(-\$'<=>I1V5X10L50C100D500M1e3=~\$_-\$')for<>;print
```
```\$\+=\$'-2*\$'%(I1V5X10L50C100D500M1e3=~\$_*\$')for<>=~/./g;print
```
```I1V5X10L50C100D500M1e3
```
```M999D499C99L49X9V4I
```
```\$\+=\$z-2*\$z%(\$z=M999D499C99L49X9V4I=~\$_+\$')for<>=~/./g;print
```
```\$\+=\$z-2*\$z%(\$z=1 .E.(3^77%ord)%7>>y/VLD//)for<>=~/./g;print
\$\+=\$z-2*\$z%(\$z=.5**y/VLD//.E.(3^77%ord)%7)for<>=~/./g;print
...
\$\+=\$z-2*\$z%(\$z=5**y/VLD//.E.71248%ord()%5)for<>=~/./g;print
\$\+=\$z-2*\$z%(\$z=5**y/VLD//.E.(3&57532/ord))for<>=~/./g;print
\$\+=\$z-2*\$z%(\$z=.1.E.(3^85%ord)%7>>y/VLD//)for<>=~/./g;print
```
```\$\+=\$z-2*\$z%(\$z=VLD=~\$_*5+IXCM=~\$_."E@-")for<>=~/./g;print
```

Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: perlmeditation [id://759963]
Approved by Corion
Front-paged by citromatik
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others avoiding work at the Monastery: (3)
As of 2024-09-08 11:50 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?

No recent polls found

Notices?
 • erzuuli ‥ 🛈The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.