challenge-117/abigail/awk/ch-2.awk


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

#!/usr/bin/awk

#
# See ../README.md
#

#
# Run as: awk -f ch-2.awk < input-file
#

function steps (x, y, path) {
    if (x == 0 && y == 0) {
        print path
        return
    }
    if (x > 0) {
        steps(x - 1, y,     path "R")
        steps(x - 1, y + 1, path "L")
    }
    if (y > 0) {
        steps(x,     y - 1, path "H")
    }
}

{
    steps($1, 0, "")
}