Apple-2-SW/robotwar
1
0
Fork 0
mirror of https://github.com/richardharrington/robotwar.git synced 2024-06-11 06:29:31 +00:00
Code Issues Projects Releases Wiki Activity

refactored re-find to re-matches for whole words

Browse Source
This commit is contained in:
Richard Harrington 2013-07-13 13:10:43 -04:00
parent 90152aa425
commit b0c4f798ec
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/hs_robotwar/core.clj
View File

@ -52,13 +52,13 @@
(defn str->int
"Like Integer/parseInt, but returns nil on failure"
[s]
(and (re-find #"^-?\d+$" s)
(and (re-matches #"-?\d+" s)
(Integer/parseInt s)))
(defn valid-word
"Capital letters and numbers, starting with a capital letter"
[s]
(re-find #"^[A-Z]+\d*$" s))
(re-matches #"[A-Z]+\d*" s))
(defn ignoring-args-thunk [x] (fn [& _] x))