blob: e90137d7a5c3d721c8ad09924b1d6a0323952837 (
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
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
|
(require '[clojure.string :as str])
(def calls
(map
#(Integer/parseInt %)
(-> (read-line)
(str/split #",")
)
)
)
(defn read-board []
(when (not (nil? (read-line)))
(vec
(for [x (range 0 5)]
(-> (read-line)
(concat " ")
(str/join)
(str/trim)
(str/split #"\s+")
(#(map (fn [l] (Integer/parseInt l)) %))
)
))
)
)
(defn bingo-row? [row]
(every? nil? row)
)
(defn bingo? [board]
(not
(nil?
(some
bingo-row?
(concat
board
(apply mapv vector board)
)
)
)
)
)
(defn get-bingo [_board]
(loop
[board _board nums calls turns 1]
(let [new-board (vec (for [r (range 0 5)]
(replace {(first nums) nil} (get board r))))]
(if (bingo? new-board)
[new-board (first nums) turns]
(recur new-board (rest nums) (inc turns))
)
)
)
)
(def best (atom [0 0]))
(loop [board (read-board)]
(when (not (nil? board))
(let [bingo (get-bingo board)]
(when (> (get bingo 2) (first @best))
(reset! best
[(get bingo 2)
(*
(second bingo)
(->> (first bingo)
(flatten)
(filter some?)
(apply +)
)
)]
)
)
)
(recur (read-board))
)
)
(println @best)
|
