Spending Time on Saving Time [golf]

by eyepopslikeamosquito (Chancellor)
 on Apr 01, 2012 at 07:14 UTC Need Help??

```        o
o       o
...

m       o
o
```
```        o
o       x
...

o       o
o
```
```        0
11       1
...

7       5
6
```
```        1
0       2
...

0       1
0
```
```for my \$i ( map {\$_,11-\$_} 0..5 ) {
\$x = (\$i<6)+(\$i&&\$i<5);
printf "%2d: %d\n", \$i, 0+\$x;
}
```
``` 0: 1
11: 0
...
7: 0
5: 1
6: 0
```
```12345678901234567
(\$i<6)+(\$i&&\$i<5)
--\$|+(\$i&&\$i<5)
--\$|+(\$i<5)-!\$i
```
```123456789012345678
substr 122221,\$i,1
(1,2,2,2,2,1)[\$i]
(1,(2)x4,1)[\$i]
vec'XX',\$i,2
```
```for ( 0..11 ) {
printf "%2d: %2d\n", \$_, 0+\$x;
\$x = 11-\$x+\$_%2;
}
```
``` 0:  0
1: 11
...
9:  7
10:  5
11:  6
```
```1234567890
11-\$x+\$_%2
11-\$x+\$|--
```
```12345678901234567
map{\$_,11-\$_}0..5
```
```1234567890123456
vec'XXXXXX',\$i,4
```
```        8
4       7
...

4       7
8
```
```for my \$i ( map {\$_,11-\$_} 0..5 ) {
\$x = vec'XXXXXX',\$i,4;
printf "%2d: %2d\n", \$i, 0+\$x;
}
```
``` 0:  8
11:  4
...
7:  4
5:  7
6:  8
```
```print\$"x(318%\$_/9),((\$_-\$`)%12?o:x)&(\$_%12^\$'/5?o:'}'),\$/x(\$_/85)for u
+npack<>!~/:/.C12,'XXXXXXXXXXXX'
```
```printf"%@{[.1*vec'XXXXXXXXXXXX',\$_,8]}s",(\$_^\$`%12?g:p)&(\$_^\$'/5?g:u)|
+"H

"for map{\$_,11-\$_}<>!~/:/..5
```
```sub k{\$k=vec'AAAAAAAAAAAAAAAAAA',\$i++,4}print\$/x k,\$"x k,(k^\$`%12?o:x)
+&(\$k^\$'/5?o:"}")for<>!~/:/..11
```
```print+(\$/x(\$k=vec'AAAAAAAAAAAAAAAAAA',\$_,4),\$"x\$k,(\$k^\$`%12?o:x)&(\$k^\$
+'/5?o:"}"))[\$_%3]for<>!~/:/..35
```
```map{\$k=vec'BBBBBBBBBBBBBBBBBBB',\$_,4;print\$_%3?(\$"^='*')x\$k:(\$k^\$`%12?
+o:x)&(\$k^\$'/5?o:"}")}<>=~/:/..36
```
```print\$"x(vec'CCCCCC',\$z,4),(\$`%12^\$z?o:x)&(\$'/5^\$z?o:"}"),\$/x(vec'EEE'
+,\$z=11-\$z+\$|--,2)for<>!~/:/..11
```
```print\$"x(vec'CCCCCC',\$_,4),(\$`%12^\$_?o:x)&(\$'/5^\$_?o:"}"),\$/x(vec'FF',
+\$_,2)for map{\$_,11-\$_}<>!~/:/..5
```
```        8
14      22
...

84      92
102
```
```        8
13      21
...

75      83
92
```
```print+(\$`%12^(\$x=index'GGGGGGGGGGGGGGGGGGGGGG',chr)?~\$x?\$x<12?o:\$/:\$":
+x)&(\$'/5^\$x?o:"}")for<>!~/:/..102
```
```print~(\$x=index'DDDDDDDDDDDD',chr)?(\$`%12^\$x?g:p)&(\$'/5^\$x?g:u)|H.\$/x(
+vec'FF',\$x,2):\$"for<>!~/:/..92
```

Create A New User
Node Status?
node history
Node Type: perlmeditation [id://962854]
Front-paged by Corion
help
Chatterbox?
 [ambrus]: GotToBTru: wait, you tell only the atom totals of what you want? Is that like ordering food in a restaurant by telling only the nutrient amounts you need, or [ambrus]: like when a medieval scientist supposedly proves his priority inventing something by having previously published an anagram of a thousand letters long summary of the invention? [choroba]: Progress! Nowadays, you can write a Perl script to generate such an anagram! [GotToBTru]: i like to order my chemicals a-la-carte ambrus ;)

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (8)
As of 2016-12-06 13:04 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
On a regular basis, I'm most likely to spy upon:

Results (104 votes). Check out past polls.