blob: fecbe7fe118a5c53e5dc8aa59748f1e0178c3cbc (
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
|
set fp [open "input" r]
set line {}
while {[gets $fp line] >= 0} {
lappend lines $line
}
close $fp
set height [llength $lines]
set width [string length [lindex $lines 0]]
proc out_of_range {x y} {
global height width
if {$x < 0 || $x >= $width} {
return 1
}
if {$y < 0 || $y >= $height} {
return 1
}
return 0
}
proc char_at {x y} {
global lines
if {[out_of_range $x $y]} {
return -1
}
return [string index [lindex $lines $y] $x]
}
proc find_path {x y expect} {
global path_cache
if {[out_of_range $x $y]} {
return 0
}
if {$expect != [char_at $x $y]} {
return 0
}
if {$expect == 9} {
return 1
}
set next [expr {$expect + 1}]
set ret [expr {
[find_path [expr {$x + 1}] $y $next]
+ [find_path [expr {$x - 1}] $y $next]
+ [find_path $x [expr {$y + 1}] $next]
+ [find_path $x [expr {$y - 1}] $next]
}]
}
set sum 0
for {set x 0} {$x < $width} {incr x} {
for {set y 0} {$y < $height} {incr y} {
incr sum [find_path $x $y 0]
}
}
puts $sum
|
