blob: e61bf17dfd523d94c6f94dde549abceddbaadefa (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
|
# Ryan Thompson
## Week 052 Solutions
### Task 1 › Stepping Numbers
* [Perl](perl/ch-1.pl)
* [Raku](raku/ch-1.p6)
### Task 2 › Lucky Winner
* [Perl](perl/ch-2.pl)
* [Raku](raku/ch-2.p6)
## Blogs
* [Week 052 › Stepping Numbers](http://ry.ca/2020/03/stepping-numbers/)
* [Week 052 › Lucky Winner](http://ry.ca/2020/03/lucky-winner/)
***
## Documentation for `perl/ch-2.pl`
# NAME
ch-2.pl - Lucky Winner Simulator 9000
# SYNOPSIS
```
ch-2.pl [options] [algorithm1 algorithm2 ...]
ch-2.pl --human=<cpu_algorithm>
ch-2.pl --help
```
# OPTIONS
```
--count=<iter> Play <iter> games Default: 1000
--coins=<N> Every game uses <N> coins Default: 8
--maxcoin=<N> Maximum coin value Default: 200
--help Full help page
--human=<cpu_alg> Human vs CPU, CPU uses <cpu_alg>
--seed=<N> Use specific random number seed (integer)
--verbose Enable extra output
--noverbose Disable extra output
```
# ALGORITHMS
- `human` › Human input. Only available with `--human` option.
- `bozo` › Real stupid algorithm; chooses left or right randomly.
- `worst` › Somehow even stupider. Always picks lowest option.
- `greedy` › Greedy algorithm. Always picks highest option, but doesn't look
ahead.
- `ahead1`, `ahead3`, `ahead5` › Looks ahead **1**, **3**, or **5** turns, and
picks the option that maximizes (**my\_score** - **their\_score**)
# AUTHOR
Ryan Thompson <rjt@cpan.org>
|
