Perl: the Markov chain saw PerlMonks

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

by eyepopslikeamosquito (Bishop)
 on May 19, 2009 at 09:37 UTC ( #764874=note: print w/replies, xml ) Need Help??

```t=p=0
for r in raw_input():n=int(oct(2<<6155848/ord(r)%11));t+=n/2-p%n;p=n
print t
```
```t=p=0
for r in raw_input():n=hash(r+"VFkQW")%291*5%1254;t+=n-2*p%n;p=n
print t
```
```n=hash(r+"magicstring")%1234
```
```% 1001:
4  54  19  40  39  73 101  65  49: 1000 500 100 50 10   5  834
...
% 1221:
7 101  33   5 111  70  62 112  97: 1000 500 100 50 10   5 1132
9  35  63 104  98   9  36 113  57: 1000 500 100 50 10   5  819
```
```s=chr(7)+chr(101)+chr(33)+chr(5)+chr(111)+chr(70)+chr(62)+chr(112)+chr
+(97)
t=0
for r in raw_input():n=hash(r+s)%1221%1131;t+=n-2*t%n
print t
```
```magic = chr(8)+chr(81)+chr(99)+chr(126)+chr(73)+chr(33)+chr(84)+chr(39
+)+chr(23)+chr(58)
for r in ["M", "D", "C", "L", "X", "V", "I"]:
n = hash(r + magic) % 1001
print r, n
```
```M 1000
D 500
...
X 10
V 3
I 1
```
```M 1000
D 500
...
X 10
V 5
I 1
```
```magic = chr(17)+chr(11)+chr(119)+chr(60)+chr(47)+chr(44)+chr(78)+chr(1
+03)+chr(125)+chr(48)
```

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

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (2)
As of 2020-10-25 14:11 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
My favourite web site is:

Results (249 votes). Check out past polls.

Notices?