Perl: the Markov chain saw PerlMonks

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

by eyepopslikeamosquito (Bishop)
 on Feb 28, 2010 at 20:10 UTC ( #825780=note: print w/replies, xml ) Need Help??

```r=*\$<;'XXXXXXXXXXXX'.each_byte{|i|\$><<"%#{327%i/9}c"%
'ohmx'[1>>(i-r.to_i)%12^2&2<<i%12-r[3,2].to_i/5]+\$/*(i/85)}
```
```1>>(i-r.to_i)%12^2&2<<i%12-r[3,2].to_i/5
```
```1>>(i-h)%12^2&2<<i%12-m
```
```# Search for Ruby solutions by building expressions from the sym
# and numsymop arrays below, then evaluating them (via eval).
...
end
end
end
```
```woohoo: ~m%i%12/11: veq=1 vneq=0
```
```(i-h)%12/~i
```
```1>>(i-h)%12^2&2<<i%12-m     # original
(i-h)%12/~i^~m%i%12/11      # new and improved
```
```r=*\$<;'XXXXXXXXXXXX'.each_byte{|i|\$><<"%#{327%i/9}c"%
'hxmo'[(i-r.to_i)%12/~i^~r[3,2].to_i/5%i%12/11]+\$/*(i/85)}
```
```r=*\$<; r r[3,2]       # original
gets;~/:/; \$_ \$'      # new
```
```gets;'XXXXXXXXXXXX'.each_byte{|i|\$><<"%#{327%i/9}c"%'ohmx'[1>>(i-\$_.to
+_i)%12^~/:/&2<<i%12-\$'.to_i/5]+\$/*(i/85)}
```
```(i-int(r[:2]))%-12/42
```
```(i-int(r[:2]))%-12/i
```
```_=raw_input()
for c in'XXXXXXXXXXXX':n=ord(c);print 3459%n/9*' '+'ohmx'[n%13==int(_[
+:2])%12::2][n%13==int(_[3:])/5]+n%3*'\n',
```
```_=raw_input()
for c in'XXXXXXXXXXXX':n=ord(c);print 247%n/7*' '+'ohmx'[n%12==int(_[:
+2])%12::2][n%12==int(_[3:])/5]+n/72*'\n',
```
```[(i%12==int(r[3:])/5)^(i-int(r[:2]))%-12/42]
[-(i%12==int(r[3:])/5)^1>>(i-int(r[:2]))%12]
[i%12==int(r[3:])/5::2][i%12==int(r[:2])%12]
[i%12==int(r[3:])/5::2][1>>(i-int(r[:2]))%12]
```

Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://825780]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (2)
As of 2021-07-27 00:21 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?

No recent polls found

Notices?